VBA如何实现清空指定单元格后下方内容自动上移填充

该需求完全可以通过Excel VBA的工作表事件功能实现，具体操作和代码如下：

操作步骤 #

• 打开目标Excel文件，按下Alt + F11快捷键唤出VBA编辑器
• 在左侧工程资源管理器面板中，找到你要实现该功能的工作表，双击打开对应的代码编辑窗口
• 将下方的VBA代码粘贴到编辑窗口中
• 保存文件时选择*Excel 启用宏的工作簿（.xlsm）*格式，否则宏功能无法正常生效

完整VBA代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅处理单个单元格的修改操作
    If Target.CountLarge > 1 Then Exit Sub
    ' 仅响应A5:A100范围内的单元格修改
    If Intersect(Target, Me.Range("A5:A100")) Is Nothing Then Exit Sub
    
    ' 检测单元格是否被清空
    If Target.Value = "" Then
        ' 临时关闭事件触发，避免操作单元格时循环触发本事件
        Application.EnableEvents = False
        
        ' 将清空位置下方的所有内容上移一行
        Target.Offset(1).Resize(Me.Range("A100").Row - Target.Row).Copy Target
        ' 清空区域最后一个单元格的冗余内容
        Me.Range("A100").ClearContents
        
        ' 恢复事件触发，不影响其他宏功能运行
        Application.EnableEvents = True
    End If
End Sub

自定义调整说明 #

• 如果你只需要A44单元格清空时触发上移逻辑，把代码中If Intersect(Target, Me.Range("A5:A100")) Is Nothing Then Exit Sub这一行替换为If Target.Address <> "$A$44" Then Exit Sub即可
• 操作前建议提前备份原有Excel文件，避免误操作导致数据丢失

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