返回列表 上一主題 發帖

[發問] 跨工作表迴圈

[發問] 跨工作表迴圈

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

謝謝~

跨頁迴圈.rar (19.84 KB)

回復 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

TOP

回復 2# samwang


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

還是不懂~要多學習~

謝謝

TOP

        靜思自在 : 忘功不忘過,忘怨不忘恩。
返回列表 上一主題