如何通过VBA实现选中单元格除Sum公式单元格外均除以1000？

需求与判定条件 #

• 核心需求：将选中区域内符合条件的单元格值除以1000
• 判定规则：
  1. 单元格必须是数值类型
  2. 单元格不能包含SUM()相关公式（其他类型公式不受限制）

原代码存在的问题 #

原代码逻辑存在多处错误，无法实现预期功能：

1. 错误使用ActiveCell.Formula替代循环中的cell.Formula，导致所有单元格都和活动单元格的公式做对比，完全偏离需求
2. 条件判断逻辑混乱，Or的误用导致只要满足任一条件就弹出提示，且cell.Address = Left(...)的写法完全不符合语法
3. 循环过程中反复弹出提示框，操作体验极差

修正后的代码 #

Sub DivideBy1000ExcludeSUM()
    Dim cell As Range
    Dim hasValidCells As Boolean
    hasValidCells = False
    
    For Each cell In Selection.Cells
        ' 先判断单元格是否为数值类型
        If IsNumeric(cell.Value) Then
            ' 统一转小写，避免大小写匹配问题，检查是否为SUM相关公式
            Dim formulaStart As String
            formulaStart = LCase(Left(cell.Formula, 6))
            If Not (formulaStart = "=sum(" Or formulaStart = "=+sum" Or formulaStart = "=-sum") Then
                cell.Value = cell.Value / 1000
                hasValidCells = True
            End If
        End If
    Next cell
    
    ' 可选：若没有处理任何符合条件的单元格，统一提示
    If Not hasValidCells Then
        MsgBox "选中区域中无符合条件的单元格（非数值或为SUM公式）"
    End If
End Sub

修正说明 #

• 遍历每个选中单元格时，使用cell.Formula判断当前单元格的公式内容，确保逻辑准确
• 先验证数值类型，再检查公式前缀，逻辑更清晰
• 用hasValidCells标记是否处理过有效单元格，避免循环中频繁弹出提示
• 统一转小写处理公式前缀，兼容SUM/sum等不同大小写写法

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