Excel宏开发问题：移动单元格并删除原行功能失效求助

你的代码仅完成了内容复制与清空操作，未执行原行删除，且使用For Each遍历列时删除行会导致部分单元格被跳过，以下是修复后的代码及说明：

Sub MoveDash()
    Dim x As Long
    Dim i As Long
    
    ' 获取F列最后一行行号
    x = Range("F" & Rows.Count).End(xlUp).Row
    
    ' 从最后一行往上遍历，避免删除行导致的遍历遗漏
    For i = x To 2 Step -1
        If IsNumeric(Range("F" & i).Value) Then
            ' 将当前单元格内容复制到上一行
            Range("F" & i - 1).Value = Range("F" & i).Value
            ' 删除当前单元格所在行
            Range("F" & i).EntireRow.Delete
        End If
    Next i
End Sub

关键修改说明： #

• 替换For Each循环为从下往上的For循环：从上往下遍历删除行时，后续行号会自动上移，导致跳过下一行；从下往上遍历则不会出现该问题。
• 把Cell.ClearContents改为Cell.EntireRow.Delete：直接删除包含数值单元格的整行，而非仅清空内容。
• 改用行号索引访问单元格：便于精准控制遍历顺序，规避For Each在删除行时的遍历异常。

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