Excel VBA双击插入行后仅清除指定列内容的实现问题

以下是可实现「双击行后在下方插入新行，仅清空新行E-R列、T列内容」的完整可运行代码：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    ' 定位新插入行的位置
    With Target.Offset(1)
        ' 插入空行
        .EntireRow.Insert
        ' 复制原行的格式、公式、内容到新行
        Target.EntireRow.Copy .EntireRow
        ' 清空指定列内容：E到R列、T列
        .Range("E1:R1").ClearContents
        .Range("T1").ClearContents
    End With

    ' 若需要保留新行内的公式，仅清空常量内容，可注释上面两行清空逻辑，放开以下代码
    ' On Error Resume Next
    ' Intersect(Target.Offset(1).EntireRow, Range("E:R,T:T")).SpecialCells(xlConstants).ClearContents
    ' On Error GoTo 0
End Sub

逻辑说明 #

• 原有代码的错误原因是操作对象为用户双击的原行Target，而非下方新插入的行，使用Target.Offset(1)即可精准定位到新插入的行
• 基于新行的位置调用Range方法时，E1、R1是相对当前行的位置，不需要手动拼接动态行号，代码会自动适配当前插入行的位置

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