麻辣家族討論版版's Archiver

wayne0303 發表於 2022-2-18 19:24

跨工作表迴圈

問題如附件。
請問該如何跨工作表迴圈

謝謝~

samwang 發表於 2022-2-19 08:45

[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

wayne0303 發表於 2022-2-19 15:15

[b]回復 [url=http://forum.twbts.com/redirect.php?goto=findpost&pid=118439&ptid=23585]2#[/url] [i]samwang[/i] [/b]


可以了!!謝謝samwang
看來跨頁的迴圈比較麻煩一點

還是不懂~要多學習~

謝謝

頁: [1]

麻辣家族討論版版為 麻辣學園 網站成員  由 昱得資訊工作室 © Since 1993 所提供