|
- Sub Demo()
- Dim i, j, c, it, Arr, sList, iCnt, sNew, oC As New Collection
- Arr = Range("B3:C12")
- oC.Add Arr(1, 1) & " " & Arr(1, 2)
- For i = LBound(Arr) + 1 To UBound(Arr)
- iCnt = oC.Count
- For j = iCnt To 1 Step -1
- sList = oC(j): sNew = ""
- If InStr(sList, Arr(i, 1)) Then
- sNew = sList & " " & Arr(i, 2)
- Exit For
- ElseIf InStr(sList, Arr(i, 2)) Then
- sNew = sList & " " & Arr(i, 1)
- Exit For
- End If
- Next
- If sNew = "" Then
- oC.Add Arr(i, 1) & " " & Arr(i, 2)
- Else
- oC.Add sNew
- oC.Remove j
- End If
- Next
- Set c = Range("K10")
- For Each it In oC
- Arr = Split(it)
- c.Resize(1, UBound(Arr) + 1).Value = Arr
- Set c = c.Offset(1)
- Next
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|