Excel VBA将双击插入行改为按钮触发 清除指定列内容 防误改表头

解决方案 #

你之前代码报「变量未定义」的原因是模块顶部开启了Option Explicit强制变量声明，你用到的r等变量没有提前用Dim声明导致的。
下面是完全符合你需求的VBA代码：

Public Sub InsertRowBelowCurrent()
    Dim selectedRow As Long
    Dim newRow As Range
    
    ' 获取选中单元格所在行号
    selectedRow = Selection.Row
    
    ' 校验行号是否符合要求
    If selectedRow < 5 Then
        MsgBox "请选择第5行及以下的单元格", vbInformation, "操作提示"
        Exit Sub
    End If
    
    ' 关闭屏幕更新提升运行速度
    Application.ScreenUpdating = False
    
    ' 在当前行下方插入新行
    Rows(selectedRow + 1).Insert Shift:=xlDown
    Set newRow = Rows(selectedRow + 1)
    
    ' 复制上一行的全部内容（包含公式、格式）
    Rows(selectedRow).Copy newRow
    
    ' 清除新行E到R列、T列的内容
    Intersect(newRow, Range("E:R,T:T")).ClearContents
    
    ' 清理剪切板、恢复屏幕更新
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

代码功能说明 #

• 自动读取当前选中单元格的行号，行号小于5时直接弹出提示终止操作，完全符合表头保护的要求
• 插入行时默认复制上一行的所有内容，公式、单元格格式、数据验证规则都会完整继承
• 仅清除新插入行的指定区域内容，不会影响其他行或者整列数据
• 加入了屏幕更新关闭逻辑，插入行时不会出现屏幕闪烁，运行更流畅

部署使用方法 #

1. 按下Alt+F11打开VBA编辑器，在对应工作表的模块或者通用模块中粘贴上述代码
2. 回到Excel界面，在「开发工具」选项卡中点击「插入」，选择按钮控件，绑定InsertRowBelowCurrent宏即可使用

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