VBA循环跳过最后一次迭代求助：复制非零值插入行代码故障

原代码存在的问题 #

1. 循环逻辑缺陷：从前往后循环时，插入行会让后续行的行号后移，但初始固定的lastRow会导致新增行和原末尾部分数据没被处理；另外手动写i = i + 1会强制跳过一行，容易漏过需要处理的单元格。
2. 空白判断不准确：IsEmpty仅能判断单元格是否未被赋值，若单元格是空字符串（比如手动清空过），它会返回False，无法正确跳过这类空白单元格。
3. 目标列写错：需求是把值粘贴到H列，但代码里写的是I列（"I"）。

修复后的代码 #

Sub CopyNonZeroValuesAndInsertRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim nextRow As Long

    Set ws = ActiveSheet
    ' 初始获取K列最后一行
    lastRow = ws.Cells(ws.Rows.Count, "K").End(xlUp).Row

    ' 倒序循环，避免插入行影响未处理的行
    For i = lastRow To 3 Step -1
        ' 只处理非零且非空白的单元格
        If ws.Cells(i, "K").Value <> 0 And Trim(ws.Cells(i, "K").Value) <> "" Then
            nextRow = i + 1
            ' 跳过所有空白（含空字符串）单元格，定位下一个非空白行
            Do While nextRow <= ws.Cells(ws.Rows.Count, "K").End(xlUp).Row And Trim(ws.Cells(nextRow, "K").Value) = ""
                nextRow = nextRow + 1
            Loop

            ' 只要nextRow未超出工作表最大行数，就插入行并粘贴值
            If nextRow <= ws.Rows.Count Then
                ws.Rows(nextRow).Insert Shift:=xlDown
                ' 修正为H列，符合需求
                ws.Cells(nextRow, "H").Value = ws.Cells(i, "K").Value
            End If
        End If
    Next i
End Sub

关键修改说明 #

• 倒序循环：从最后一行往第3行循环，插入行只会影响当前行下方的行，不会干扰未处理的上方行，避免行号偏移导致的遗漏。
• 动态判断数据范围：每次查找nextRow时重新获取K列最后一行，确保插入行后的数据范围始终准确。
• 严谨的空白判断：用Trim(ws.Cells(nextRow, "K").Value) = ""代替IsEmpty，能同时跳过未赋值单元格和空字符串单元格。
• 修正目标列：把原代码的"I"改成"H"，匹配需求。
• 移除手动修改i：删掉i = i + 1，让For循环自行控制步长，避免跳过行。

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