VBA 合并单元格的排序算法

最新推荐文章于 2025-03-13 22:23:38 发布

若海隐湖

最新推荐文章于 2025-03-13 22:23:38 发布

阅读量1.3k

点赞数

文章标签： VBA 合并单元格排序算法

本文链接：https://blog.csdn.net/weixin_42578747/article/details/90109099

版权

本文介绍了一种使用VBA在Excel中实现的数据排序算法，通过动态调整单元格区域进行智能排序，避免了传统排序方法的局限性。该算法首先确定待排序区域，然后比较并交换指定条件下的数据，确保数据按需正确排序。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在这里插入图片描述

Sub test()
    Dim i As Long
    Dim j As Long
    Dim temp As Long
    Dim iRow As Long
    Dim jRow As Long
    
    i = 2
    
   Do While i < 16
    j = i + Cells(i, 1).MergeArea.Rows.Count
        Do While j < 16
            iRow = Cells(i, 1).MergeArea.Rows.Count
            jRow = Cells(j, 1).MergeArea.Rows.Count
            
            If Cells(i + iRow - 1, 3) < Cells(j + jRow - 1, 3) Then
                Range("A" & j).Resize(jRow, 3).Cut
                Range("A" & i).Insert
            End If
            
            j = j + jRow
        Loop
        i = i + Cells(i, 1).MergeArea.Rows.Count
   Loop
End Sub