如何清除选中单元格所在行的指定列内容且不删除整行？

（需求匹配：选中单元格时仅清除该单元格起始、到指定列的同行区域内容，不执行整行删除操作，典型场景为选中D3时，清除D3,E3,F3,G3,H3范围的全部内容）

单次临时操作快速路径 #

• 点击选中目标操作单元格（如示例中的D3）
• 按住Shift键，点击同行范围内清除区间的最右侧终点单元格（如示例中的H3），即可一次性选中从当前选中单元格到终点的连续行区域
• 按下Delete键，即可清空选中区域的内容，全程不会改动其他列、其他行的内容与格式，也不会触发整行删除。

重复操作一键配置方案 #

如果需要频繁执行这类操作，可以通过VBA宏实现快捷键一键触发，无需每次手动拖拽选范围：

1. 打开对应工作表，按下Alt + F11打开VBA编辑界面
2. 在左侧对应工作表条目上右键，依次选择「插入」-「模块」，将以下代码粘贴到右侧的代码编辑区：

Sub ClearTargetRange()
    ' 可根据实际清除范围修改结束列号，示例中H列对应数字8
    Const END_COL As Integer = 8
    Dim currentRow As Long, currentCol As Long
    currentRow = ActiveCell.Row
    currentCol = ActiveCell.Column
    ' 增加边界判断，避免选中位置超出设定范围时触发错误操作
    If currentCol > END_COL Then
        MsgBox "选中单元格超出预设清除范围，未执行操作"
        Exit Sub
    End If
    ' 仅清除单元格内容，保留原有格式设置
    Range(Cells(currentRow, currentCol), Cells(currentRow, END_COL)).ClearContents
End Sub

3. 关闭VBA编辑器，回到工作表后可将该宏绑定自定义快捷键，后续选中目标单元格按下对应快捷键，即可自动完成指定范围的内容清除。

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