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

Question

能不能一键实现 excel的版本是2007

Answer 1

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

Answer 2

必须能啊