清除相应的变化列

我有两列需要相互对应。 A2-A51和B2-B51。 列A包含名称，列B包含date。 我正在尝试创build一个on-change事件，如果列A中的某个单元格被清除，那么同一行中的对应单元在列B中被清除。

Option Explicit Private Sub Worksheet_Change() If Intersect(ActiveCell, Range("A2:A51")) Is Nothing Then If ActiveCell.Value = "" Then Range("B" & Range("A2:A51").Row).Clear End If End If End Sub 

Answer 1

尝试这个：

 Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range Set KeyCells = Range("A2:A51") If Not Application.Intersect(KeyCells, Target) Is Nothing Then If Target.Value = "" Then Range("B" & Target.Row).Clear End If End If End Sub 

把它放在你的工作表的代码中。