vba - Excel VBA : selected cells loop

Question

想要迭代 Excel VBA 中所选内容中的每一行。

我有:

Dim rng As Range
Dim s As String
Set rng = Application.Selection
Debug.Print "c :" & rng.Address

这会打印

c :$B$22:$C$29

如何从第 22 行到第 29 行循环/解析出开始行和结束行？

在单独的 int 变量中获取开始列和结束列？

Answer 1

在 Excel 中循环访问一系列单元格的通用解决方案:

Sub LoopSelection()

    Dim cel As Range
    Dim selectedRange As Range

    Set selectedRange = Application.Selection

    For Each cel In selectedRange.Cells
        Debug.Print cel.Address, cel.Value
    Next cel

End Sub

从最左上角的单元格开始迭代，然后向下迭代。