vba - Excel 在一个单元格中捕获更改并在另一个工作表中复制更改

Question

我的工作簿中有多张工作表。每张纸的单元格（A1）具有完全相同的文本“（月）（年）报告”。每个月只有月份和年份值发生变化。例如：对于 2 月，文本将是“2013 年 2 月报告”。如何在一张纸上进行更改并将相同的更改复制到剩余的纸上？我知道如何复制单元格，但这样代码就会变得冗长。

Answer 1

您可以轻松地迭代所有工作表

假设您已经为当前工作表完成了它

Sub copyAOne()
    Dim ws As Worksheet
    Dim newValue As Range
    set newValue = ActiveSheet.Range("A1")
    For Each ws In Worksheets
        ws.Range("A1") = newValue
    Next ws
**PS** Please provide the code you tried in your question, and see if we can optimize it as well
end sub