如何用VBA扫描工作表，仅将含Sum的单元格上移一行？

核心实现思路 #

• 锁定搜索范围：指定需要扫描的目标单元格区域（如I2:I500）
• 精准匹配目标：仅对值等于“Sum”的单元格执行操作
• 安全遍历逻辑：从下往上遍历区域，避免因内容移动导致的遍历异常
• 执行上移操作：将目标单元格的内容转移到上一行单元格，可按需清空原单元格内容

修正后的VBA代码 #

Dim SrchRng As Range, cel As Range
Dim i As Integer

Set SrchRng = Range("I2:I500")

' 从下往上遍历，避免处理过程中单元格位置变动影响遍历结果
For i = SrchRng.Rows.Count To 1 Step -1
    Set cel = SrchRng.Cells(i)
    ' 仅匹配值为"Sum"的单元格
    If cel.Value = "Sum" Then
        ' 将当前单元格内容赋值到上一行
        cel.Offset(-1, 0).Value = cel.Value
        ' 清空原"Sum"单元格（不需要清空可删除此行）
        cel.ClearContents
    End If
Next i

原代码问题分析 #

你之前的代码逻辑完全反向：判断条件是cel.Value <> "Sum"，这会把所有非Sum的单元格内容都上移一行，最终导致整列内容上移，和需求完全不符。修正后只需将判断条件改为匹配“Sum”，并仅对这些单元格执行上移操作即可。

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