標題: [發問] 跨工作表迴圈 [打印本頁]

---

作者: wayne0303    時間: 2022-2-18 19:24     標題: 跨工作表迴圈

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

謝謝~

---

作者: samwang    時間: 2022-2-19 08:45

回復 1# wayne0303

請測試看看，謝謝
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

回復 2# samwang


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

還是不懂~要多學習~

謝謝

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)