Как проверить, является ли значение ссылкой на столбец других листов?

Question

Я хочу автоматически обновить строку на каком-то листе в зависимости от другого листа.Все это с помощью макроса.

На первом этапе у меня есть:

SheetA!A$1 = "first"
SheetA!A$2 = "second"
SheetA!A$3 = "third"
SheetB!A$1 = empty
SheetB!A$2 = empty
SheetB!A$2 = empty

Затем я редактирую SheetB! A $ 1 вручную

SheetA!A$1 = "first"
SheetA!A$2 = "second"
SheetA!A$3 = "third"
SheetB!A$1 = SheetA!A$1
SheetB!A$2 = empty
SheetB!A$2 = empty

Теперь макрос пинаетв

SheetA!A$1 = "first"
SheetA!A$2 = "second"
SheetA!A$3 = "third"
SheetB!A$1 = SheetA!A$1
SheetB!A$2 = SheetA!A$2
SheetB!A$2 = SheetA!A$3

Я бы предпочел поместить код в SheetB

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 'if changes in sheetB, col1
    'TODO
  End If
End Sub

Как будет выглядеть такое автоматическое копирование?

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        Sheets("SheetA").Cells(Target.Row, "A").Value = Target.Value
    End If
End Sub