通过VBA实现删除指定单元格
发布网友
共1个回答
热心网友
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
