如何用VBA提取带小数点的字符串到单元格并保留原格式（区域小数为逗号）

问题原因 #

1. 手动输入与VBA赋值的差异
   • 手动输入20.00时：你的Windows区域设置以逗号为小数分隔符，Excel识别该字符串不符合当前区域的数值规范（正确写法应为20,00），因此自动将其判定为文本，常规格式下保留原字符串内容。
   • VBA赋值时：VBA默认采用美式区域规则解析字符串（点作为小数分隔符），Mid(.Subject, 8, 5)提取的"20.00"会被自动转换为数值20。赋值到单元格后，Excel会按照当前区域设置显示该数值——常规格式下会省略末尾的.00，或显示为20,00，导致原格式丢失。

解决方案 #

要在不设置单元格为文本格式的前提下，保留20.00的显示格式，需分两步操作：

1. 正确转换提取的字符串为数值 #

使用Val函数（按美式规则解析点为小数分隔符）将提取的字符串转换为数值，避免Excel错误解析：

Dim extractedAmount As Double
extractedAmount = Val(Mid(.Subject, 8, 5))

2. 强制设置单元格数字格式 #

给目标单元格设置自定义数字格式，确保显示为带两位小数的格式。如果需要强制显示点而非逗号（不受区域设置影响），使用带转义的自定义格式：

With sh.Range("Q" & rCount)
    .Value = extractedAmount
    ' 若只需显示两位小数（跟随区域分隔符），用下面的格式
    '.NumberFormat = "0.00"
    ' 若强制显示点作为小数分隔符，用下面的格式
    .NumberFormat = "0"".""00"
End With

这样单元格存储的是数值类型（而非文本），同时显示为20.00的格式，满足你的需求。

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