用VBA方法帮你完成了,A和B列都可以不要按顺序排列,任意
请测试
Sub test()
Dim d As Object, d1 As Object
Dim arr, brr(), x&, i&
Set d = CreateObject("scripting.dictionary")
Set d1 = CreateObject("scripting.dictionary")
arr = Range("A1:B" & Range("A65536").End(xlUp).Row)
ReDim brr(1 To UBound(arr))
For x = 1 To UBound(arr)
If arr(x, 2) <> "" And Not d.exists(arr(x, 2)) Then
d(arr(x, 2)) = ""
d1(arr(x, 1)) = arr(x, 2)
End If
Next x
For x = 1 To UBound(arr)
i = i + 1
Do While d.exists(arr(x, 1)) = True
x = x + 1
Loop
brr(i) = arr(x, 1)
If d1.exists(arr(x, 1)) = True Then
i = i + 1
brr(i) = d1(arr(x, 1))
End If
Next x
Range("C1").Resize(UBound(brr)) = Application.Transpose(brr)
End Sub