Sub 按钮1_单击()
Dim rg As Range
For Each rg In Range("a1: e200") '这个区域可以是固定的也可以是变量
If InStr(rg.Value, "-") > 1 Then
rg.Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next
End Sub
For Each Range In Range(a1, e200) '这个区域可以是固定的也可以是变量
If Search("-", Range.Value) > 1 Then
Range.Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next