Excel宏开发求助：去重后在B列每项下方插入4行并自动终止

我懂你现在的痛点：已经搞定了文本分列、复制去重的操作，现在卡在了给B列每个剩余条目下方插4行，还得确保到空单元格时自动停住。录制宏出来的代码往往冗余又不好扩展，我给你优化一下完整流程，重点解决插入行的核心问题。

完整优化后的VBA代码 #

Sub MonthlyTaskMacro()
    Dim wsOriginal As Worksheet
    Dim wsRemoveDupes As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 替换成你的原工作表名称，比如"月度任务表"
    Set wsOriginal = ThisWorkbook.Worksheets("Sheet1")
    
    ' 1. 对N列执行文本分列（这里默认用逗号分隔，可根据实际修改参数）
    With wsOriginal.Columns("N:N")
        .TextToColumns Destination:=.Cells(1), DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
            Semicolon:=False, Comma:=True, Space:=False, Other:=False
    End With
    
    ' 2. 创建或激活"Remove Duplicates"工作表
    On Error Resume Next
    Set wsRemoveDupes = ThisWorkbook.Worksheets("Remove Duplicates")
    On Error GoTo 0
    If wsRemoveDupes Is Nothing Then
        Set wsRemoveDupes = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        wsRemoveDupes.Name = "Remove Duplicates"
    End If
    
    ' 3. 把原表N列复制到新表B列
    wsOriginal.Columns("N:N").Copy Destination:=wsRemoveDupes.Columns("B:B")
    
    ' 4. 移除B列重复项（有表头用xlYes，无表头改xlNo）
    wsRemoveDupes.Columns("B:B").RemoveDuplicates Columns:=1, Header:=xlYes
    
    ' 5. 核心：给每个B列条目下方插入4行
    With wsRemoveDupes
        ' 找到B列最后一个有数据的行，自动识别结束点
        lastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
        
        ' 倒序循环！避免插入行后行号混乱，导致重复处理
        For i = lastRow To 2 Step -1 ' 从最后一行往回走，跳过表头行
            ' 只对有内容的单元格执行插入
            If .Cells(i, "B").Value <> "" Then
                .Rows(i + 1 & ":" & i + 4).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            End If
        Next i
    End With
    
    MsgBox "所有操作完成！", vbInformation
End Sub

关键细节解释 #

• 倒序循环的必要性：如果从第一行开始往下插行，插入后后续行号会被推挤，导致同一个条目被重复处理。倒着从最后一行往前操作，就完全不会受插入行的影响，确保每个条目只处理一次。
• 自动停止逻辑：通过lastRow = .Cells(.Rows.Count, "B").End(xlUp).Row精准定位B列最后一个有数据的行，循环只到这一行，自然在无文本的区域停止。
• 优化录制宏冗余：去掉了Select、Selection这类录制宏常见的低效操作，直接操作工作表和单元格对象，代码更稳定高效。

如果你的文本分列分隔符不是逗号，或者没有表头，记得对应修改代码里的参数就行。

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