VBA代码，用于使用同一Excel工作簿中两个不同工作表的更新填充MI电子表格

我有三张Excel工作表：表1、表2、表3，所有工作表都有相同的标准数据（A列至E列为所有工作表中的标准数据），F列至JF列为日历日/月。对工作表1的任何更新的区别在于日历中单元格中的数字与a列中的名称相对应，而对工作表2的更新只是对适用单元格的突出显示（更新的单元格永远不是工作表1中相同的对应单元格，反之亦然，我认为这是有意义的）

表3需要针对表1和表2的每次更新进行更新

---

我希望使用VBA对工作表3进行更新。

将其添加到与工作表1相关的模块中。 代码将修改后的范围复制到第3页

---

除其他外，需要澄清：表3包含哪些内容？表1和表2的并集？猫礼物？您希望在工作表3上更新什么？工作表3的数据与工作表1和2相同（无联合，所有三张工作表都有相同的精确数据，但工作表1和工作表2中的更新将以数字形式进行，工作表2中将应用简单的高亮显示-但工作表1上更新的单元格不能与工作表2相同）表1和表2的每次更新也应反映在表3上。要突出显示表2的内容，请在

表（“表2”）.单元格（i，j）之后使用
Interior.ColorIndex=37
。单元格（i，j）。Value2=表（“表1”）.单元格（i，j）.Value2

。谢谢，但当我更新第1页或第2页时，第3页中的更改不会生效

Private Sub Worksheet_Change(ByVal Target As Range)
fr = Target.Row
lr = fr - 1 + Target.Rows.Count
fc = Target.Column
lc = fc - 1 + Target.Columns.Count

For i = fr To lr
    For j = fc To lc
        Sheets("Sheet 3").Cells(i, j).Value2 = Sheets("Sheet 1").Cells(i, j).Value2
    Next
Next

End Sub