Excel VBA实现J列值为XY时插入复制行并修改指定列值求助

Sub InsertAndModifyRow()
    Dim lastRow As Long
    Dim i As Long
    ' 获取J列最后一个有数据的行号，避免遍历整列浪费性能
    lastRow = Cells(Rows.Count, "J").End(xlUp).Row
    
    ' 倒序遍历，防止新插入的行干扰遍历逻辑
    For i = lastRow To 1 Step -1
        If Cells(i, "J").Value = "XY" Then
            ' 复制当前行整行数据
            Rows(i).Copy
            ' 在当前行下方插入新行，自动粘贴复制的内容
            Rows(i + 1).Insert Shift:=xlDown
            ' 清空剪贴板，取消复制高亮状态
            Application.CutCopyMode = False
            
            ' 将新插入行的G、H、L列赋值为0
            Cells(i + 1, "G").Value = 0
            Cells(i + 1, "H").Value = 0
            Cells(i + 1, "L").Value = 0
        End If
    Next i
End Sub

• 原有代码遍历整列J会造成大量无意义的空单元格判断，调整为仅遍历J列有数据的行范围，运行效率大幅提升
• 原有代码正序遍历会命中刚插入的行（新行J列复制后同样是"XY"），会导致重复无限插入，调整为倒序遍历从下往上处理，完全规避这个问题
• 新增新插入行的指定列赋值逻辑，直接定位新行的G、H、L列修改值为0
• 新增清空剪贴板的逻辑，避免插入后残留复制的高亮选中状态

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