|
Sub cl()
Application.ScreenUpdating = False
Range("d2:d65536").ClearContents
ar = Range("a1").CurrentRegion.Value
For h = 2 To UBound(ar)
If ar(h, 3) = "" Then Exit For
ls = Split(ar(h, 3), ";")
For lsh = 0 To UBound(ls)
For pnh = 2 To UBound(ar)
If InStr(ar(pnh, 2), ls(lsh)) > 0 Then
ar(h, 4) = ar(h, 4) & ";" & ar(pnh, 1)
Exit For
End If
Next pnh
If ar(h, 4) = "" Then _
ar(h, 4) = ar(h, 4) & ";" & ls(lsh)
Next lsh
ar(h, 4) = Mid(ar(h, 4), 2)
Next h
Range("a1").Resize(UBound(ar), UBound(ar, 2)) = ar
Application.ScreenUpdating = True
End Sub
|
评分
-
1
查看全部评分
-
|