VBA 合并单元格的排序算法

最新推荐文章于 2024-07-12 13:38:16 发布

若海隐湖

最新推荐文章于 2024-07-12 13:38:16 发布

阅读量1.2k

点赞数

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

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

版权

在这里插入图片描述

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