如何将单元格区域存储到Variant变量且保留数字格式

原代码直接将单元格区域赋值给变量时，仅获取了单元格的原始数值，并未保留显示格式。要将带有数字格式的值存储到Price变量中，可通过以下方式实现：

方法：存储格式化后的文本到字符串数组 #

使用单元格的Text属性读取显示的格式化内容，存入字符串数组：

Sub StoreFormattedValuesToArray()
    Dim Price() As String
    Dim targetRng As Range
    Dim rowIdx As Integer
    
    Set targetRng = Range("A2:A4")
    ' 根据目标区域大小初始化数组
    ReDim Price(1 To targetRng.Rows.Count, 1 To targetRng.Columns.Count)
    
    ' 逐个读取格式化后的文本
    For rowIdx = 1 To targetRng.Rows.Count
        Price(rowIdx, 1) = targetRng.Cells(rowIdx, 1).Text
    Next rowIdx
    
    ' 将带格式的内容写入目标区域
    Range("B2:B4") = Price
End Sub

说明： #

• Text属性会返回单元格显示的格式化文本（比如货币格式$1,234.56、百分比格式50%等），而非单元格的原始数值。
• 数组定义为字符串类型，确保能完整存储格式化后的文本内容。

补充：直接复制格式与数值（若无需存入变量） #

如果只是需要将A2:A4的数值和格式同步到B2:B4，也可以直接用复制粘贴的方式，无需数组存储：

Sub CopyWithFormat()
    Range("A2:A4").Copy
    Range("B2:B4").PasteSpecial Paste:=xlPasteAll ' 粘贴所有内容（含格式）
    Application.CutCopyMode = False ' 清除复制状态
End Sub

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