小编jum*_*and的帖子

我正在尝试组合一系列单元格中的值。我创建了一个范围如下：

Dim rng As Range
Set rng = Application.Union(Range("A1:A3"), Range("C1:E2"))
For Each Address In rng
Debug.Print Address.Address
Next

我想按水平顺序读取单元格：A1、C1、D1、E1、A2、C2...等。但它们被读取 A1、A2、A3、C1、C2...等

我怎样才能水平阅读它们？谢谢