Excel VBA如何将For Each遍历Range的默认行优先改为列优先

Excel VBA 未提供官方配置项修改 Range 对象默认的行优先 For Each 遍历规则，但你可以通过封装自定义集合的方式，在保留 For Each 简洁写法的前提下实现列优先遍历，同时完美支持非连续 Range 场景。

实现代码 #

首先封装一个自定义函数，将输入的 Range 按列优先顺序整理为单元格集合：

Function GetColumnFirstCells(rng As Range) As Collection
    Dim resCol As New Collection
    Dim area As Range
    Dim colIdx As Long, rowIdx As Long
    ' 遍历非连续区域的每个独立子区域
    For Each area In rng.Areas
        ' 外层循环列、内层循环行，实现列优先
        For colIdx = 1 To area.Columns.Count
            For rowIdx = 1 To area.Rows.Count
                resCol.Add area.Cells(rowIdx, colIdx)
            Next rowIdx
        Next colIdx
    Next area
    Set GetColumnFirstCells = resCol
End Function

使用示例 #

你只需要修改原遍历语句的遍历对象，不需要改动核心遍历逻辑，写法保持简洁：

Sub TestTraverse()
    ' 支持任意非连续区域定义
    Dim targetRng As Range
    Set targetRng = Range("A1:C3,G9:H16,B14:D18")
    
    Dim cell As Range
    For Each cell In GetColumnFirstCells(targetRng)
        Debug.Print cell.Value
    Next cell
End Sub

特性说明 #

• 完全兼容非连续Range，会自动处理每个子区域的列优先顺序，无需手动拆分区域
• 遍历输出完全符合你要求的列优先规则：同列从上到下遍历完成后，再切换到下一列遍历
• 如果需要跳过隐藏的行/列，只需要在resCol.Add语句前增加可见性判断即可。

内容的提问来源于stack exchange，提问作者Michal Palko