VBA宏执行后表格数值莫名被相乘，求技术解决方案

问题根源 #

你这段TextToColumns代码里的FieldInfo:=Array(1, 1)是核心问题：这里的1对应xlGeneralFormat，Excel会自动识别单元格内容格式，但如果你的数据是文本型数值（比如单元格格式为文本，内容显示为123.00），且系统区域设置的小数分隔符和数据里的不一致（比如系统用逗号做小数分隔符，数据里用点），Excel会把.当成千位分隔符，直接将123.00解析成12300——这就是你看到“倍数不固定”的原因，本质是解析时错误识别了分隔符。

修复方案 #

方案1：修改TextToColumns的格式参数

把FieldInfo里的格式代码改成对应数值格式，比如强制按点作为小数分隔符的格式解析：

Range("L:L").TextToColumns _
    Destination:=Range("L:L"), _
    DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, _
    ConsecutiveDelimiter:=False, _
    Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=False, _
    FieldInfo:=Array(1, 4), ' 4对应xlDecimalFormat，强制按小数格式解析
    TrailingMinusNumbers:=True

如果数据是文本型纯数值，也可以先用xlTextFormat（代码2）保留文本，再转数值：

Range("L:L").TextToColumns _
    Destination:=Range("L:L"), _
    DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, _
    ConsecutiveDelimiter:=False, _
    Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=False, _
    FieldInfo:=Array(1, 2), ' 2对应xlTextFormat
    TrailingMinusNumbers:=True
' 转成真实数值
Range("L:L").Value = Range("L:L").Value

方案2：替换TextToColumns，直接转换数值格式

如果只是为了让透视表识别数据，没必要用TextToColumns，直接把文本型数值转成真实数值更稳妥：

' 批量转换文本型数值为数值
With Range("L:L")
    .NumberFormat = "0.00"
    .Value = .Value
End With

如果列里有混合内容（文本+数值），用循环精准处理：

Dim cell As Range
For Each cell In Range("L:L").SpecialCells(xlCellTypeConstants)
    If IsNumeric(cell.Value) Then
        cell.Value = CDbl(cell.Value)
        cell.NumberFormat = "0.00"
    End If
Next cell

方案3：让透视表直接识别文本型数值

如果不想修改原数据，可在透视表设置里强制识别数值：

1. 插入透视表后，找到字段列表里的目标字段
2. 右键选择字段设置
3. 在“汇总方式”里选择“求和”或其他数值类汇总，Excel会自动将文本型数值识别为数值

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