有A列和B列两列数据，共490行。想要实现当清除A列中某一单元格的数据后，B列相同行的单元格数据也同时清除。不删除行，不影响其他行数据。
表格是excel表格，表格中有数据，不能直接在单元格中写入公式
第1个回答 2017-06-13
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim I%
For I = 2 To 490
If Cells(I, 1) = "" Then
Cells(I, 2) = ""
End If
Next
End Sub
或
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Offset(0, 0) = "" Then
Target.Offset(0, 1) = ""
End If
End Sub本回答被网友采纳
Dim I%
For I = 2 To 490
If Cells(I, 1) = "" Then
Cells(I, 2) = ""
End If
Next
End Sub
或
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Offset(0, 0) = "" Then
Target.Offset(0, 1) = ""
End If
End Sub本回答被网友采纳
