關於使用錄製巨集編修程式碼--->"無資料則跳過" - Excel程式區

[發問] 關於使用錄製巨集編修程式碼--->"無資料則跳過"

2016猴年全勤獎章

1^# 跳轉到 »

發表於 2016-9-7 11:49 | 顯示全部帖子

回復 1# chiang0320

試下:

Sub ZZ()
Dim ar, rng As Range, d As Object, k, t
Set d = CreateObject("scripting.dictionary")
Set rng = Range([j2], [j2].End(2))
ar = [b2].CurrentRegion
t = [c2]
For i = 2 To UBound(ar)
d(ar(i, 2) & t) = d(ar(i, 2) & t) & "|" & ar(i, 1)
Next
k = d.keys
For i = 0 To UBound(k)
j = Application.Match(k(i), rng, 0)
t = Split(Mid(d(k(i)), 2), "|")
rng.Cells(1, j).Offset(1, 0).Resize(UBound(t) + 1, 1) = Application.Transpose(t)
Next
End Sub

複製代碼

靜思自在 : 口說好話、心想好意、身行好事。