Excel VBA中如何实现单元格地址按左上到右下顺序排序

存在可直接落地的实现方案，排序规则为优先按区域左上角单元格的行号从小到大排序，行号相同时按列号从小到大排序，完全匹配左上到右下的排序要求。

核心处理逻辑 #

• 按逗号拆分传入的地址字符串，得到每个独立的单元格/连续单元格区域片段
• 对每个片段，提取其左上角单元格的行号、列号作为排序依据，兼容带$绝对引用、不带$相对引用、混合引用的各类A1样式地址写法
• 按照行优先、列次之的升序规则对所有地址片段排序
• 将排序后的片段重新用逗号拼接为最终地址字符串

可直接复用的VBA代码 #

Function SortCellAddresses(targetAddress As String) As String
    Dim arr As Variant, i As Long, j As Long
    Dim sortKeyRow() As Long, sortKeyCol() As Long
    Dim tempStr As String, tempRow As Long, tempCol As Long
    
    ' 按逗号拆分所有地址片段
    arr = Split(targetAddress, ",")
    ReDim sortKeyRow(UBound(arr))
    ReDim sortKeyCol(UBound(arr))
    
    ' 遍历每个片段，提取左上角单元格的行、列号作为排序键
    For i = LBound(arr) To UBound(arr)
        ' 取每个片段冒号前的部分（即区域左上角单元格地址）
        tempStr = Split(arr(i), ":")(0)
        ' 若需要统一输出全绝对引用格式，取消下一行注释即可（自动把$F9这类写法转为$F$9）
        ' tempStr = Range(tempStr).Address(True, True): arr(i) = tempStr
        ' 自动解析兼容各种引用格式，提取行、列号
        tempRow = Range(tempStr).Row
        tempCol = Range(tempStr).Column
        sortKeyRow(i) = tempRow
        sortKeyCol(i) = tempCol
    Next i
    
    ' 冒泡排序：先按行升序，行相同按列升序，地址片段数量不多时性能足够
    For i = LBound(arr) To UBound(arr) - 1
        For j = i + 1 To UBound(arr)
            Dim needSwap As Boolean
            needSwap = False
            If sortKeyRow(i) > sortKeyRow(j) Then
                needSwap = True
            ElseIf sortKeyRow(i) = sortKeyRow(j) And sortKeyCol(i) > sortKeyCol(j) Then
                needSwap = True
            End If
            
            If needSwap Then
                ' 交换地址片段
                tempStr = arr(i)
                arr(i) = arr(j)
                arr(j) = tempStr
                ' 同步交换排序键
                tempRow = sortKeyRow(i)
                sortKeyRow(i) = sortKeyRow(j)
                sortKeyRow(j) = tempRow
                tempCol = sortKeyCol(i)
                sortKeyCol(i) = sortKeyCol(j)
                sortKeyCol(j) = tempCol
            End If
        Next j
    Next i
    
    ' 拼接为最终结果
    SortCellAddresses = Join(arr, ",")
End Function

调用验证 #

Sub TestSort()
    Dim targetAddress As String
    targetAddress = "$E$12,$B$11:$C$12,$G$14,$F$2,$F9"
    ' 开启全绝对引用转换后，输出结果完全匹配需求：$F$2,$F$9,$B$11:$C$12,$E$12,$G$14
    Debug.Print SortCellAddresses(targetAddress)
End Sub

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