VBA批量将单元格区域乘常量时出现Type Mismatch Error求助

错误原因 #

出现Type Mismatch Error的核心问题：

• 遍历的单元格中存在非数值类型内容（比如文本、错误值、空文本），代码尝试对这些内容执行* 0.64运算时，因类型不兼容触发错误。
• 原代码未做任何类型校验，直接对所有单元格执行运算，一旦遇到非数值单元格就会报错。

修复后的代码 #

Sub Multiply()
    Dim rng As Range
    Dim cell As Range ' 变量名改为cell更直观
    
    Set rng = Range("B2:DR82")
    For Each cell In rng
        ' 先校验单元格内容是否为可运算的数值，跳过非数值单元格
        If Not IsError(cell.Value) And IsNumeric(cell.Value) Then
            cell.Value = Round(cell.Value * 0.64, 2)
        End If
    Next cell
End Sub

额外说明 #

• IsNumeric()用于判断单元格内容是否为可转换的数值，避免文本与数值运算的冲突。
• Not IsError(cell.Value)用于排除单元格中的错误值（比如#VALUE!、#N/A），这类值也会导致运算失败。
• 若想保留空单元格（不把空值转为0.00），可以在判断里加上cell.Value <> ""：

  If Not IsError(cell.Value) And IsNumeric(cell.Value) And cell.Value <> "" Then
  

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