Excel VBA宏需求：基于E列STAT值插入并复制行

这个需求完全可以通过Excel VBA实现。你现有的代码思路（反向遍历避免插入行干扰循环计数）是正确的，但存在几个关键问题：目标判断列是E列而非C列、未实现插入两行的逻辑、代码不完整、未指定到"Entry"工作表且未限定从第14行开始处理。

以下是修正后的完整代码：

Public Sub DuplicateSTATRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 指定操作的工作表为"Entry"
    Set ws = ThisWorkbook.Worksheets("Entry")
    
    ' 获取E列最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row
    
    ' 从最后一行反向遍历到第14行，避免插入行影响循环
    For i = lastRow To 14 Step -1
        ' 判断当前行E列单元格是否包含"STAT"（不区分大小写）
        If InStr(1, ws.Cells(i, "E").Value, "STAT", vbTextCompare) > 0 Then
            ' 在当前行下方插入两行
            ws.Rows(i + 1 & ":" & i + 2).Insert Shift:=xlDown
            
            ' 复制当前行内容到第一行新插入行
            ws.Rows(i).Copy Destination:=ws.Rows(i + 1)
            ' 复制当前行内容到第二行新插入行
            ws.Rows(i).Copy Destination:=ws.Rows(i + 2)
        End If
    Next i
    
    ' 清除剪贴板内容，避免后续操作受影响
    Application.CutCopyMode = False
End Sub

关键说明： #

• 指定工作表：直接锁定"Entry"工作表，避免因激活其他工作表导致错误
• 反向遍历：从最后一行往第14行循环，插入新行不会改变未遍历行的行号，避免遗漏或重复处理
• 包含判断：用InStr函数实现"包含"逻辑（而非精确等于），vbTextCompare参数确保不区分大小写（如果需要区分，可去掉该参数）
• 插入两行：通过Rows(i+1 & ":" & i+2).Insert一次性插入两行，比逐行插入更高效
• 复制内容：分别将原行内容复制到两个新插入行，确保格式和数据完全一致

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