如何将单个单元格复制到 Excel 中的多个工作表中？

Question

我有大约 30 个工作表，我需要将我的名字放在左上角（单元格 A1）。有没有一种简单的方法可以做到这一点，而不必将其写入或粘贴到每个工作表中？

Answer 1

选择所有工作表（选择第一张工作表，按住 shift，选择最后一张工作表）

在 A1 中输入您的姓名

按 Enter。

这将为非代码人员完成此操作。

Answer 2

这应该可以做到：

Sub PutMyNameInA1()
    Dim w As Worksheet

    For Each w In ThisWorkbook.Worksheets
        w.Range("A1") = "My Name"
    Next w
End Sub

代码应放在标准代码模块中。（Alt+F11，插入>模块，粘贴，在引号中更改名称，运行/F5 执行）