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

Question

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

Answer 1

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

在 A1 中输入您的姓名

按回车键。

这将为非代码人员做到这一点。

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, Insert>Module, 粘贴进去, 改名加引号, Run/F5 执行)