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

我的工作簿中有多张工作表。 每张表格的单元格（A1）都有完全相同的文本“报告（月）（年）”。 每个月只有月份和年份值发生变化。 示例：2月份的文本为“2013年2月报告”。 如何在一张图纸中进行更改，并将相同的更改复制到其余图纸？

---

我知道如何复制单元格，但这样代码就会变得冗长。

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

假设您已经为当前工作表执行了此操作

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

---

范围（“A1”）。选择Application.CutCopyMode=假选择。复制图纸（“Sheet1”）。选择范围（“A1”）。选择活动图纸。粘贴图纸（“Sheet2”）。选择范围（“A1”）。选择活动图纸。粘贴图纸（“Sheet3”）。选择范围（“A1”）。选择活动图纸。粘贴图纸（“Sheet4”）。选择范围（“A1”）。选择活动页。粘贴范围（“A1”）。选择应用程序。剪切复制模式=假选择。复制页（“Sheet1”）。选择范围（“A1”）。选择活动页。粘贴页（“Sheet2”）。选择范围（“A1”）。选择活动页。粘贴页（“Sheet3”）。选择范围（“A1”）。选择活动页。粘贴页（“Sheet4”）。选择范围（“A1”）。选择“ActiveSheet.Paste”并将其附加到按钮上，以便单击时将更改粘贴到所有图纸。我在VBA非常新。请告诉我在何处粘贴此代码以及它将如何工作。@Nishant Kumar，您可以将子模块放入模块中，创建一个按钮/或从“开发人员”选项卡-->宏调用它。您好，您发送的此代码工作得很好，没有任何问题。但我所做的改变是大胆的。所有单元格中复制的值都是普通文本。我能在这里做什么？