用VBA如何实现

用VBA如何实现

Sub test()
Dim i, j As Integer
Dim xRng As Range
Dim xStr As String
j = 1
For i = 1 To Range("A9999").End(xlUp).Row
Set xRng = Range("A" & i + 1 & ":A9999")
If InStr(Range("A" & i), "-") Then
xStr = Left(Range("A" & i), InStr(Range("A" & i), "-") + 1)
If WorksheetFunction.CountIf(xRng, xStr & "*") = 0 Then
Range("B" & j) = xStr
j = j + 1
End If
Else
If WorksheetFunction.CountIf(xRng, Range("A" & i)) = 0 Then
Range("B" & j) = Range("A" & i)
j = j + 1
End If
End If
Next i
End Sub

简单.

留下邮箱.