循环遍历范围 - 联合

Question

I am getting an error while trying to loop through my ranges.. "Method 'Union' of '_Global' failure". Please someone help...After the update code I got, "Unable to get the Union property of the Application class"

    Dim chuteRG As Range, stowRG As Range, pickRG As Range, shipdockRG As Range, allRG As Range
    Dim cell As Range

    Set chuteRG = shChuteBowler.Range("F4:S18")
    Set stowRG = shStowBowler.Range("F4:S14")
    Set pickRG = shPickBowler.Range("F4:S12")
    Set shipdockRG = shShipDockBowler.Range("F4:S17")
    Set allRG = Union(chuteRG, stowRG, pickRG, shipdockRG).Cells

    For Each cell In allRG
        If cell = "0" Then
            cell = "X"
        End If
    Next cell


UPDATED - Still not working

    Dim chuteRG As Range, stowRG As Range, pickRG As Range, shipdockRG As Range, allRG As Range
    Dim cell As Range
    Dim ApXL As Object

    Set ApXL = CreateObject("Excel.Application")
    Set chuteRG = shChuteBowler.Range("F4:S18")
    Set stowRG = shStowBowler.Range("F4:S14")
    Set pickRG = shPickBowler.Range("F4:S12")
    Set shipdockRG = shShipDockBowler.Range("F4:S17")

    Set allRG = ApXL.Union(chuteRG, stowRG, pickRG, shipdockRG).Cells

    For Each cell In allRG
        If cell = "0" Then
            cell = "X"
        End If
    Next cell

Answer 1

This should do the trick. You need to add ApXL. before calling Union .

Dim chuteRG As Range, stowRG As Range, pickRG As Range, shipdockRG As Range, allRG As Range
Dim cell As Range

Set chuteRG = shChuteBowler.Range("F4:S18")
Set stowRG = shStowBowler.Range("F4:S14")
Set pickRG = shPickBowler.Range("F4:S12")
Set shipdockRG = shShipDockBowler.Range("F4:S17")

Set allRG = ApXL.Union(chuteRG, stowRG, pickRG, shipdockRG).Cells 'AMENDED

For Each cell In allRG
    If cell = "0" Then
        cell = "X"
    End If
Next cell