Excel VBA问题：搜索E列含「to」单元格，将右侧F列值上移1行如何实现

核心修改点 #

• 原有代码逻辑为操作E列内容向下移动，与需求不符，改为操作目标F列值向上移动
• 增加边界判断，跳过E1单元格（不存在上一行，避免运行报错）
• 剪切F列当前行值后清空原位置内容，符合剪切操作的实际效果

调整后完整代码 #

Sub Format_DFG()
    Dim cell As Range
    Dim lastRow As Long
    
    Application.ScreenUpdating = False
    ' 获取E列最后有数据的行号
    lastRow = Cells(Rows.Count, "E").End(xlUp).Row
    ' 从E2开始遍历，跳过E1避免无匹配上一行报错
    For Each cell In Range("E2:E" & lastRow)
        ' 判断当前E列单元格是否包含文本to
        If InStr(1, cell.Text, "to", vbTextCompare) > 0 Then
            ' 将当前行F列值赋值给上一行F列
            cell.Offset(-1, 1).Value = cell.Offset(0, 1).Value
            ' 清空当前行F列原内容，实现剪切效果
            cell.Offset(0, 1).ClearContents
            ' 如需同时清空当前E列的to内容，可取消下一行注释
            ' cell.ClearContents
        End If
    Next cell
    Application.ScreenUpdating = True
End Sub

补充说明 #

• 代码中vbTextCompare参数用于实现不区分大小写匹配，如需严格区分大小写匹配to，直接删除该参数即可
• 已注释的清空当前E列内容的代码，可根据实际处理需求选择是否启用

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