首页 > 解决方案 > 如何检查值是否是来自其他工作表列的引用?

问题描述

我想根据另一个工作表自动更新某些工作表中的一行。所有这一切都与一个宏。

在第一步中,我有:

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

这样的自动复制会是什么样子?

标签: excelvba

解决方案


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

推荐阅读