更改时清除相应的列

Question

我有两列需要相互对应。 A2-A51＆amp; B2-B51。 A列包含名称，B列包含日期。我正在尝试创建一个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

将其放入工作表的代码中。