Vba 通过范围循环-并集

尝试在我的范围内循环时出错。。“\u全局”故障的“联合”方法”。请有人帮助…在我得到更新代码“无法获取应用程序类的Union属性”之后

---

这应该能奏效。在调用

Union

之前，您需要添加

ApXL.

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

---

这回答了你的问题吗？尝试将其更改为

Set allRG=Union（chuteRG、stowRG、pickRG、shipdockRG）

，因此省略

.Cells

部分，因为这在我的工作表上有效。仍然不起作用：/。。碰巧我需要一个特定的参考？好的，试着把它改成

Set allRG=Union（chuteRG，stowRG，pickRG，shipdockRG）

，所以省略

.Cells

部分，因为这在我的工作表上有效。

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