跨工作表迴圈
問題如附件。請問該如何跨工作表迴圈
謝謝~ [b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=118434&ptid=23585]1#[/url] [i]wayne0303[/i] [/b]
請測試看看,謝謝
Sub test()
Dim Arr, xD, i&
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([工作表2!d1], [工作表2!e65536].End(3))
For i = 2 To UBound(Arr): xD(Arr(i, 1)) = Arr(i, 2): Next
With Sheets("工作表1")
Arr = .Range(.[c1], .[b65536].End(3))
For i = 1 To UBound(Arr)
If Arr(i, 1) = "" Then GoTo 99
If xD.Exists(Arr(i, 1)) Then
Arr(i, 2) = xD(Arr(i, 1))
Else
Arr(i, 2) = "錯誤"
End If
99: Next
.[b1].Resize(UBound(Arr), 2) = Arr
End With
End Sub [b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=118439&ptid=23585]2#[/url] [i]samwang[/i] [/b]
可以了!!謝謝samwang
看來跨頁的迴圈比較麻煩一點
還是不懂~要多學習~
謝謝
頁:
[1]