Sub s()
arr = [a1].CurrentRegion 'choose a1-b35
Set d = CreateObject("scripting.dictionary")
ReDim brr(1 To UBound(arr), 1 To 5)
For i = 2 To UBound(arr)
If d.exists(arr(i, 2)) Then
d(arr(i, 2)) = d(arr(i, 2)) & "##" & arr(i, 1) & "#" & i
Else
d(arr(i, 2)) = arr(i, 1) & "#" & i
End If
Next
n = 2
For Each k In d.keys
If InStr(d(k), "##") > 0 Then
Cells(n, 9) = k
Cells(n, 8) = Split(Split(d(k), "##")(0), "#")(0)
Cells(n, 10) = Split(Split(d(k), "##")(0), "#")(1)
Cells(n, 11) = Split(Split(d(k), "##")(1), "#")(0)
Cells(n, 12) = Split(Split(d(k), "##")(1), "#")(1)
n = n + 1
End If
Next
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/35148.html
標籤：VBA
下一篇：vb如何獲取mcgs里的開關量。