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

Excel捕获一个单元格中的更改并复制其他工作表中的更改

1 个答案: