VBA代码清除指定范围内容时误删表头及其他单元格问题求助

这问题我之前处理过好几次，核心坑点在于Select/Selection的滥用，以及SpecialCells在找不到匹配单元格时的默认行为，再加上你的代码没有严格限定工作表范围，才会导致误删指定区域外的内容。

问题根源拆解 #

• 未严格限定工作表：你的With MyResults块里，Range("A16:K" & Rows.Count)前面没加.，导致这行代码是基于当前活动工作表计算最后行，而不是MyResults工作表，范围直接就错了。
• Select的不可靠性：用Select和Selection完全依赖当前选中的单元格/区域，一旦活动对象意外变化，操作就会跑偏，而且代码可读性和稳定性极差。
• SpecialCells的默认行为：如果指定范围内没有找到符合条件的常量单元格，SpecialCells会自动选中整个工作表里的匹配单元格——这就是表头和A9会被误删的直接原因。

修正后的代码（保留公式，仅清除目标范围常量） #

With MyResults
    ' 严格限定在MyResults工作表内计算最后行
    Dim LastRowResults As Long
    LastRowResults = .Range("A" & .Rows.Count).End(xlUp).Row
    
    ' 确保目标范围从A16开始，避免行数小于16时出错
    If LastRowResults >= 16 Then
        Dim targetRange As Range
        On Error Resume Next ' 处理没有找到常量单元格的情况
        Set targetRange = .Range("A16:K" & LastRowResults).SpecialCells(xlCellTypeConstants, 23)
        On Error GoTo 0 ' 恢复默认错误处理
        
        ' 只有找到目标单元格时，才执行清除操作
        If Not targetRange Is Nothing Then
            targetRange.ClearContents
        End If
    End If
End With

代码关键改进点 #

1. 严格限定工作表：所有Range和Rows前面都加了.，确保完全在MyResults工作表内操作，彻底摆脱活动工作表的干扰。
2. 移除Select/Selection：直接用对象变量targetRange操作，避免选中无关区域，代码逻辑更清晰、运行更稳定。
3. 容错处理SpecialCells：用On Error Resume Next捕获“找不到匹配单元格”的场景，既避免代码报错，又防止误选整个工作表。
4. 边界判断：增加If LastRowResults >=16的判断，防止当数据行数小于16时，出现A16:K15这种无效区域。

这样修改后，就能精准清除A16到K列最后一行范围内的常量内容，完全保留该区域内的公式，也绝不会碰到底15行表头和A9单元格了。

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