☰

链接不同工作表上的列

tag-icon • tag-icon microsoft-excel worksheet-function vba links
链接不同工作表上的列

我对 VBA 编码非常陌生（仅涉猎此特定项目），因此我非常感激任何有关我遇到的问题的建议。我试图将 Sheet1 上的多个列范围（例如，A2:A300、B2:B300）独立链接到 Sheet2、Sheet3 等上的各种不同列范围。这样，更改这些范围中的任何单个单元格都会更改相应工作表中的单元格，反之亦然。]我没有对链接的数据进行任何花哨的操作 - 它只需要自动更新。我目前只成功链接了一组列范围。这是我在 Sheet1 上的内容：

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error GoTo eh
  If Not Intersect(Target, Me.Range("B2:B300")) Is Nothing Then
    Application.EnableEvents = False
    Sheets("Sheet2").Range("C" & Target.Row).Value = Target.Value
eh:
    Application.EnableEvents = True
    If Err <> 0 Then MsgBox Err & " " & Err.Description, , "Error in Worksheet_Change event, Sheet1"
  End If
End Sub

以下是 Sheet2 的内容：

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error GoTo eh
  If Not Intersect(Target, Me.Range("C2:C300")) Is Nothing Then
    Application.EnableEvents = False
    Sheets("Sheet1").Range("B" & Target.Row).Value = Target.Value
eh:
    Application.EnableEvents = True
    If Err <> 0 Then MsgBox Err & " " & Err.Description, , "Error in Worksheet_Change event, Sheet2"
  End If
End Sub

所以我的问题是如何扩展它？如何将 Sheet3、Sheet4 等链接到 Sheet1 的不同列或从 Sheet1 获取链接到 Sheet2 的多个列。是否可以修改 Sheet1 中的现有命令以引用这些附加工作表，还是需要单独的命令？非常感谢！

相关内容