VBA将带货币格式文本的单元格区域存入数组时数值异常求助

嘿，这个问题我之前也碰到过！核心原因其实是你误解了Range.Value的作用——它取的是单元格实际存储的原始值，而不是你看到的格式化显示文本。哪怕你把单元格设成了文本格式，如果Excel后台已经把内容识别成了数值（比如你先输入数字再改格式，或者输入带货币符号时Excel自动转成了数值类型），Value就会返回那个原始数字，而不是显示的US$22,000,000.00这类文本。

下面给你几个靠谱的解决方案：

1. 直接获取显示的文本（最直接的解决办法） #

如果你就是要拿到屏幕上看到的带格式文本，把Value换成Text属性就行。不过要注意，Text不能像Value那样直接批量赋值给数组，得循环遍历单元格：

Dim arr() As String
Dim targetRng As Range
Dim rowIdx As Long, colIdx As Long

' 定义目标区域
Set targetRng = ThisWorkbook.Sheets("你的工作表名").Range("A1:B20")
' 初始化数组大小
ReDim arr(1 To targetRng.Rows.Count, 1 To targetRng.Columns.Count)

' 遍历每个单元格，把显示文本存入数组
For rowIdx = 1 To targetRng.Rows.Count
    For colIdx = 1 To targetRng.Columns.Count
        arr(rowIdx, colIdx) = targetRng.Cells(rowIdx, colIdx).Text
    Next colIdx
Next rowIdx

这个方法对于20行的小数据量来说完全没性能问题，而且能精准拿到你看到的格式化内容。

2. 确保单元格是纯文本存储（从根源避免问题） #

如果你的需求是让单元格内容本身就是纯文本（不是数值转格式），那要从输入环节就做好：

• 先把单元格设置为文本格式，再输入带货币符号的内容；
• 或者输入时先敲一个单引号'，再输入内容（比如'US$22,000,000.00），Excel会把它当成纯文本存储，不会转成数值。
  这种情况下，用arr = Range("A1:B20").Value就能直接拿到正确的文本内容，不需要额外处理。

3. 别踩坑：Value2帮不了你 #

很多人会想到用Value2，但它和Value本质类似，只是不返回日期、货币的格式信息，还是会拿到原始数字，对这个问题完全没用，别浪费时间试了。

小技巧：检查单元格的实际类型 #

你可以用这段代码快速查看单元格到底存的是数值还是文本：

MsgBox TypeName(Range("A1").Value)

如果弹出Double或Currency，说明是数值类型；如果是String，就是纯文本，这时候Value就能直接拿到正确内容。

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