基于单列关键词拆分Excel工作表及合并行VBA代码优化需求

需求说明 #

将主工作表中F列包含关键词“HN”的行（含合并行整体）移动到名为“HN”的工作表，剩余不包含该关键词的数据保留在原工作表。

原代码问题 #

原VBA代码处理合并行时会自动取消合并，且合并区域内的部分行无法被正确移动，导致数据拆分异常。

修改后的VBA代码 #

Sub MoveDataWithMergedRows()
    Dim targetSheet As Worksheet
    Dim lastRow As Long, i As Long
    Dim mergeStartRow As Long, mergeEndRow As Long
    Dim deleteRange As Range
    
    ' 指定目标工作表
    Set targetSheet = ThisWorkbook.Worksheets("HN")
    
    ' 获取原工作表F列最后一行行号
    lastRow = ThisWorkbook.ActiveSheet.Cells(Rows.Count, "F").End(xlUp).Row
    
    ' 从下往上遍历，避免删除行导致的索引错乱
    For i = lastRow To 2 Step -1
        With ThisWorkbook.ActiveSheet.Cells(i, "F")
            ' 判断当前单元格是否包含关键词"HN"，且为合并区域左上角（防止重复处理合并行）
            If InStr(.Value, "HN") > 0 Then
                ' 获取合并区域的起止行号
                If .MergeCells Then
                    mergeStartRow = .MergeArea.Row
                    mergeEndRow = .MergeArea.Row + .MergeArea.Rows.Count - 1
                Else
                    mergeStartRow = i
                    mergeEndRow = i
                End If
                
                ' 复制整个行范围（A到V列，对应原代码的列范围）到目标表的末尾
                ThisWorkbook.ActiveSheet.Range("A" & mergeStartRow & ":V" & mergeEndRow).Copy _
                    targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Offset(1)
                
                ' 收集需要删除的区域
                If deleteRange Is Nothing Then
                    Set deleteRange = ThisWorkbook.ActiveSheet.Range("A" & mergeStartRow & ":V" & mergeEndRow)
                Else
                    Set deleteRange = Union(deleteRange, ThisWorkbook.ActiveSheet.Range("A" & mergeStartRow & ":V" & mergeEndRow))
                End If
                
                ' 跳过已处理的合并行，避免重复遍历
                i = mergeStartRow
            End If
        End With
    Next i
    
    ' 删除原表中已移动的行（保留合并格式）
    If Not deleteRange Is Nothing Then
        deleteRange.Delete Shift:=xlUp
    End If
    
    ' 清除剪贴板缓存
    Application.CutCopyMode = False
End Sub

核心改进点 #

• 逆向遍历：从最后一行往第一行遍历，避免删除行后后续行的索引错位问题
• 合并区域识别：自动判断单元格是否属于合并区域，获取整个合并区域的行范围，确保合并行被整体移动
• 避免重复处理：处理完合并区域后，将循环索引跳转到合并区域的起始行，防止重复遍历合并区域内的行
• 保留合并格式：直接复制整个合并区域，移动后目标工作表中仍保留原有的合并格式

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