Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 10 Then
If Cells(Target.Row, Target.Column) = "已购买" Then Cells(Target.Row, Target.Column - 1) = ""
End If
End Sub
写的有点长了,Target就是Change的Range
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 10 Then
If Target = "已购买" Then Target.offset(0,-1) = ""
End If
End Sub