![如何将单个单元格复制到 Excel 中的多个工作表中?](https://linux22.com/image/1232614/%E5%A6%82%E4%BD%95%E5%B0%86%E5%8D%95%E4%B8%AA%E5%8D%95%E5%85%83%E6%A0%BC%E5%A4%8D%E5%88%B6%E5%88%B0%20Excel%20%E4%B8%AD%E7%9A%84%E5%A4%9A%E4%B8%AA%E5%B7%A5%E4%BD%9C%E8%A1%A8%E4%B8%AD%EF%BC%9F.png)
我有大约 30 个工作表,我需要将我的名字放在左上角(单元格 A1)。有没有一种简单的方法可以做到这一点,而不必将其写入或粘贴到每个工作表中?
答案1
选择所有工作表(选择第一张工作表,按住 shift,选择最后一张工作表)
在 A1 中输入您的姓名
按 Enter。
这将为非代码人员完成此操作。
答案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 执行)