Tag: 镜像

将一个Excel表格中的列镜像到其他多个Excel表格中，并自动更新

我有一个Excel工作簿，其中包含多个工作表。 为了这个问题，这些图纸被命名为Sheet1，Sheet2，Sheet3等等。 我希望将Sheet1中的Column A复制到其余的表单中，并且当新单元格添加到Sheet1中的A列时，它们将自动input到工作簿中的其他表单中。 我宁愿不要有一套“结束范围，即：A100000”。 例如，如果我在Sheet1的单元格A1中inputFirst，则单词“First”现在也应出现在Sheet2的单元格A1中。 我已经使用了下面的代码，它似乎不工作。 任何帮助将不胜感激。 Private Sub Worksheet_Change(ByVal Target As Range) Call UpdateFromSheet1 End Sub Sub UpdateFromSheet1(ByVal Sh As Object, ByVal Target As Range) If Sh.CodeName = "Sheet1" Then If Not Intersect(Target(1, 1), Range("A1:A1000")) Is Nothing Then Sh.Range("A1:A1000").Copy Sheet2.Range("A1") End If End If End Sub