希望将单元格的.text读入数组

Question

我正在Excel VBA中构建一个简单的报表比较宏来比较我们系统中的各种不同报表。由于速度快得多，我将两个电子表格都拉到数组中并对它们进行比较，然后将结果粘贴到不同的工作簿中。

问题是两个电子表格在某些单元格中都有很长的基础值（利率和诸如3.27823202之类的东西），但我关心的只是单元格中显示的值（3.28）。我知道我可以轻松地将.values拉入数组

Dim ReportParams() as variant
Dim SH1 as Worksheet
set SH1= activeworkbook.sheets("Sheet1")
ReportParams= SH1.range(cells(1,1),cells(5,5)).Value

但是当我尝试使用.Text代替.Value时，它会给我一个运行时错误'13'：输入Mismatch。

是否有任何有效的方法将细胞的所有可见值引入阵列？