excel 如何用vba在每个sheet的第一单元格内填入当前sheet的名称

代码及注释如下：
Sub m()
For Each sh In Sheets '遍历全部工作表
If sh.Name <> ActiveSheet.Name Then '如果工作表不为当前工作表
sh.Cells(1, 1) = ActiveSheet.Name '让工作表的第一个单元格填充当前工作表名
End If
Next
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/v2rej2j2ey7x2eexr77.html