比较VBA中两个单元格的内容

Question

我需要比较宏中两个单元格的内容

RC1=2.0
RC2=2

我为此使用if(RC1=RC2,"''","x")，它为上述输入打印x，但2.0和2是相同的，在这种情况下我需要它是''，请建议

Answer 1

你失败的“代码”表明你只是在使用一个公式：

if(RC1=RC2,"''","x")

如果您乐于使用公式来测试它们，您可以使用：

IF(VALUE(RC1)=VALUE(RC2),"''","x")

但请注意，空白单元格的 VALUE 为 0（零），因此空单元格将匹配包含 0.00 的单元格

Answer 2

首先

您正在尝试比较两种不同的数据类型，假设一种是integer，它没有十进制值，另一种是double，有一个小数。

我建议你仔细看看data types in VBA。

因此，我们需要将convert the types 转换为与CDbl() 相同的两个单元格以将它们转换为double。简单来说，由于integers 是doubles 的更简单形式，我们将使用两者中更完整的类型。

比较类型的代码

Sub COMPARING_TYPES()

Dim a As Double, b As Double

' Let's assume the both values are numeric
a = CDbl(Cells(1, 1))
b = CDbl(Cells(2, 1))

If a = b Then
    ' Other code to execute when the values are matching
End If

End Sub

这都是考虑到您要比较 VBA 代码中的数字。