[已解决]關于數組的問題

010203400

請教關于數組的問題:
如附件, A欄和B欄, 我各設定為一個數組, 想在F3:J3下面, 帶出A欄對應的B欄, 請幫忙給個宏.

最佳答案

月排行榜 / 总排行榜

suye1010

2014-10-15 13:30

1. Sub test()
   
2. Dim d As Object, i As Integer, j As Integer, arr0, arr
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. arr0 = Range("A1").CurrentRegion
   
5. arr = Range("F2").CurrentRegion
   
6. For i = 1 To UBound(arr0)
   
7.     d(arr0(i, 1)) = arr0(i, 2)
   
8. Next i
   
9. For j = 1 To UBound(arr, 2)
   
10.     arr(1, j) = d(arr(1, j))
    
11. Next j
    
12. Range("F3").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
    
13. End Sub
    

复制代码

跳转到最佳答案楼层

baksy

F3公式，横拉；
=VLOOKUP(F2,$A$1:$B$8,2,)

010203400

baksy 发表于 2014-10-15 13:08
F3公式，横拉；
=VLOOKUP(F2,$A$1:$B$8,2,)

不好意思, 我是要在宏里面來運行的, 可以幫忙寫宏嗎.
并且, 我這個只是舉例子, 我實際寫的宏比較複雜, 想看看能不能改善.

suye1010

1. Sub test()
   
2. Dim d As Object, i As Integer, j As Integer, arr0, arr
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. arr0 = Range("A1").CurrentRegion
   
5. arr = Range("F2").CurrentRegion
   
6. For i = 1 To UBound(arr0)
   
7.     d(arr0(i, 1)) = arr0(i, 2)
   
8. Next i
   
9. For j = 1 To UBound(arr, 2)
   
10.     arr(1, j) = d(arr(1, j))
    
11. Next j
    
12. Range("F3").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
    
13. End Sub
    

复制代码

grf1973

1. Sub tt()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = [a1].CurrentRegion
   
4.     For i = 1 To UBound(arr)
   
5.         d(arr(i, 1)) = arr(i, 2)
   
6.     Next
   
7.     brr = [f2:j3]
   
8.     For i = 1 To UBound(brr, 2)
   
9.         brr(2, i) = d(brr(1, i))
   
10.     Next
    
11.     [f2:j3] = brr
    
12. End Sub
    

复制代码

grf1973

请看附件。

010203400

suye1010 发表于 2014-10-15 13:30

重來沒有用過數組, 現在看來有點半解, 還在研究中, 先謝謝你.

010203400

grf1973 发表于 2014-10-15 13:32

你好, 我還在研究4樓的, 先謝謝你.

010203400

suye1010 发表于 2014-10-15 13:30

你好, 還有些地方不太明白, 可否幫忙詳細說明一下, 感謝你了.

Sub test()

Dim d As Object, i As Integer, j As Integer, arr0, arr

******不太明白這行的用處, 請幫忙解答.
Set d = CreateObject("Scripting.Dictionary")

******我的範例中是豎的數組, 如果我數組的是行內容呢, 下面的CurrentRegion要不要改?
arr0 = Range("A1").CurrentRegion
arr = Range("F2").CurrentRegion

******下面的意思, 是將A欄和B欄的對應關系, 讀在內存中, 可以這樣理解嗎?
For i = 1 To UBound(arr0)
    d(arr0(i, 1)) = arr0(i, 2)
Next i

******下面的不太懂, 能否詳細說明一下.
For j = 1 To UBound(arr, 2)
    arr(1, j) = d(arr(1, j))
Next j

******下面的不太懂, 能否詳細說明一下.
Range("F3").Resize(UBound(arr, 1), UBound(arr, 2)) = arr

End Sub

010203400

grf1973 发表于 2014-10-15 13:32

你好,
我執行的代碼, 結果OK.
但我不太明白各行的意思, 可否幫忙詳細解釋了.
不然我沒法套用到我的宏里面.