Excel VBA：如何在Application.Unique返回的Variant中保留数字格式？

问题根源 #

Application.Unique返回的是Variant类型的数组（或单个数值），存储的是单元格的原始数值，而非Range对象。单元格的NumberFormat仅控制显示格式，不改变实际存储的数值（比如1和1.0在Excel中是同一个数值）。你尝试调用.NumberFormat报错，是因为数组元素没有这个属性。

解决方案 #

根据需求场景，有两种可行方案：

方案1：将唯一值写入工作表区域后设置格式

如果需要在工作表中显示带1位小数的唯一值，先把提取到的唯一值写入目标区域，再给该区域设置格式：

Dim unique_info As Variant
Dim targetRange As Range

' 提取目标列的唯一值
unique_info = Application.Unique(Range(Cells(first_row + 1, apf_rev_info_col), Cells(last_row, apf_rev_info_col)))

' 处理单个值/数组的差异
If IsArray(unique_info) Then
    Set targetRange = Sheet1.Range("A1").Resize(UBound(unique_info, 1), UBound(unique_info, 2))
Else
    Set targetRange = Sheet1.Range("A1")
End If

' 写入值并设置格式
targetRange.Value = unique_info
targetRange.NumberFormat = "0.0"

方案2：将数值格式化为带1位小数的字符串（仅代码内处理）

如果不需要写入工作表，只是要在代码中得到带格式的字符串形式，遍历数组用Format函数转换：

Dim unique_info As Variant
Dim formattedArr As Variant
Dim i As Long, j As Long

unique_info = Application.Unique(Range(Cells(first_row + 1, apf_rev_info_col), Cells(last_row, apf_rev_info_col)))

' 处理单个值的情况
If Not IsArray(unique_info) Then
    formattedArr = Format(unique_info, "0.0")
Else
    ' 初始化格式化后的数组
    ReDim formattedArr(1 To UBound(unique_info, 1), 1 To UBound(unique_info, 2))
    ' 遍历转换每个元素
    For i = 1 To UBound(unique_info, 1)
        For j = 1 To UBound(unique_info, 2)
            formattedArr(i, j) = Format(unique_info(i, j), "0.0")
        Next j
    Next i
End If

' 后续可使用formattedArr进行输出或其他操作

内容的提问来源于stack exchange，提问作者Le Dieu Ha PHI