请教ForEach循环的问题

eh30040922

Dim rg As Range
Dim rgc As Range
Dim cl As Range
Dim i As Integer


Sub tst203()

    Set rg = Range("A1:E11")
    Set rgc = rg.Columns(3)
    rgc.Select
    i = 1
For Each cl In rgc

    Range("f" & i) = cl.Row
    i = i + 1
Next

之上代码只循环了一次，请教一下错因在哪里？

rg.Columns(3)改成Range("C1:C11")就正常

解答见2楼，感谢各位前辈的解答

山菊花

Set rgc = rg.Columns(3)
这一句，把区域rg的第3列赋值给变量rgc，此时，rgc的值是1个列，而非若干单元格。在后续的For循环中，赋给变量cl的值，也是以列为单位，因为rgc只有一个列，所以，循环一遍就结束了。
    For Each cl In rgc
        Debug.Print cl.Address '这样看得明白
        Range("f" & i) = cl.Row
        i = i + 1
    Next

代码这样改：

    For Each cl In rgc.Cells
        Range("f" & i) = cl.Row
        i = i + 1
    Next

或者这样：

    Set rgc = rg.Columns(3).Cells


这样，rgc就是一个单元格区域，后续的For就不会一遍结束。

leolee82

For Each cl In rgc.Cells

eh30040922

leolee82 发表于 2024-3-12 12:43
For Each cl In rgc.Cells

成功了，感谢

eh30040922

山菊花 发表于 2024-3-12 12:39
Set rgc = rg.Columns(3)
这一句，把区域rg的第3列赋值给变量rgc，此时，rgc的值是1个列，而非若干单元格 ...

感谢，已解决