Excel VBA 字典/数组 示例

A 将数组作为字典的ValuePrivate Sub CommandButton3_Click()Dim arr, arr1, i&, d As Objectarr = Sheets(3).[a1].CurrentRegionarr1 = [a1].CurrentRegionSet d = CreateObject("scripting.dictionary")For i = 2 To UBound(arr)  d(arr(i, 1)) = ""Next iFor i = 2 To UBound(arr1)  If d.exists(arr1(i, 1)) Then d(arr1(i, 1)) = Array("", arr1(i, 3), "", arr1(i, 5), arr1(i, 6))Next iSheets(3).[b2].Resize(d.Count, UBound(arr, 2) - 1) = Application.Transpose(Application.Transpose(d.items))End SubB法Private Sub CommandButton1_Click()arr = [a1].CurrentRegionSet d = CreateObject("scripting.dictionary")For i = 2 To UBound(arr)  d(arr(i, 1)) = iNext ibrr = Sheet3.Range("a1").CurrentRegionFor i = 2 To UBound(brr)  n = d(brr(i, 1))  brr(i, 3) = arr(n, 3)  brr(i, 5) = arr(n, 5)  brr(i, 6) = arr(n, 6)NextSheet3.Range("a1").CurrentRegion = brrEnd Subc = Array(3, 5, 6)For i = 2 To UBound(brr)  n = d(brr(i, 1))  For j = 0 To 2    brr(i, c(j)) = arr(n, c(j))  NextNext原贴http://club.excelhome.net/thread-1057654-1-1.htmlhttp://club.excelhome.net/thread-698873-1-1.html