求可清除指定区域常量及=LEFT类公式的Excel宏按钮实现

需求：为工作表"MISC."的E2:E180区域制作宏，仅清除两类内容：

• 手动输入的常量值
• 以=LEFT(B开头的公式
  同时保留其他公式（如=IF(...)、=IFNA(...)等）

解决方案代码 #

Sub ClearTargetContent()
    Dim ws As Worksheet
    Dim cell As Range
    Dim targetRange As Range
    
    ' 绑定目标工作表和指定区域
    Set ws = ThisWorkbook.Worksheets("MISC.")
    Set targetRange = ws.Range("E2:E180")
    
    ' 遍历区域内每个单元格进行判断
    For Each cell In targetRange
        If cell.HasFormula Then
            ' 检查公式是否以"=LEFT(B"开头（不区分大小写）
            If UCase(Left(cell.Formula, 8)) = "=LEFT(B" Then
                cell.ClearContents
            End If
        Else
            ' 非公式即手动输入的常量，直接清除
            cell.ClearContents
        End If
    Next cell
End Sub

代码说明 #

1. 区域绑定：直接指定目标工作表和E2:E180区域，避免使用Select/Selection这类易出问题的操作
2. 判断逻辑：
   • 若单元格是公式，检查公式开头是否匹配=LEFT(B（用UCase统一转大写，兼容大小写输入的公式）
   • 若单元格不是公式（即手动输入的常量），直接清除内容
3. 简洁高效：无需依赖其他列的复制粘贴，直接在目标区域完成处理

可选优化：动态适配区域 #

如果需要自动适配E列有数据的行（插入行后无需手动修改宏的范围），可以将区域定义行替换为：

Set targetRange = ws.Range("E2:E" & ws.Cells(ws.Rows.Count, "E").End(xlUp).Row)

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