关于for each的取值顺序问题

gong198522

各位师兄：
比如下面这个代码：
sub test()
dim ing as range.
for each ing in [a1:c3]
......

在变量ing取值时，是按照顺序a1,a2,a3,b1,b2,b3......的顺序取数的，我想让变量按照a1,b1,c1,a2,b2,c2的顺序取值，请问该怎么操作？
谢谢！

西瓜9527

For i = 1 To 3
    For j = 1 To 3
        b = Cells(i, j).Value
    Next
Next

大灰狼1976

前提错误，你想要的顺序正好就是FOR EACH本来的顺序，要改顺序就按楼上的思路。

gong198522

西瓜9527 发表于 2019-6-13 21:06
For i = 1 To 3
    For j = 1 To 3
        b = Cells(i, j).Value

懂了，非常感谢！

gong198522

大灰狼1976 发表于 2019-6-13 22:13
前提错误，你想要的顺序正好就是FOR EACH本来的顺序，要改顺序就按楼上的思路。

茅塞顿开，谢谢

renkangjizhen

也可以将区域值设为数组，如何你想怎么循环自定

山菊花

先行后列：
Dim ing As Range, row As Range
For Each row In [a1:c3].Rows
    For Each ing In row.Cells

先列后行：
Dim ing As Range, Col As Range
For Each Col In [a1:c3].Columns
    For Each ing In Col.Cells

gong198522

山菊花 发表于 2019-6-14 08:29
先行后列：
Dim ing As Range, row As Range
For Each row In [a1:c3].Rows

谢谢版主，非常感谢！