excel - 比较 VBA Excel 中的两个范围

Question

菜鸟问题：

我有两个包含整数值的相同大小的行向量范围。

我想比较范围的每两个十进制舍入值是否相同。

例子

    A      B      C
1.  1.103  5.501  8.620
2.  1.101  5.507  8.629

所以如果我像这样定义两个范围

Dim rng1 As Range, rng2 As Range
set rng1 = .range("A1:C1")
set rng2 = .range("A2:C2")

然后CompareRoundedValues(rng1,rng2)应该返回True。

关于如何定义的任何建议CompareRoundedValues？

Answer 1

如果您需要一些简单的粗略比较，您可以使用以下简单功能进行比较：

Function CompareRoundedValues(rng1, rng2)
    If Round(Application.Sum(rng1),1) = Round(Application.Sum(rng2),1) Then 
         CompareRoundedValues= True
    Else
         CompareRoundedValues = False
    End if
End Function

如果需要精确，您需要在函数中添加一些循环以单独比较每个单元格。