用括号符号比较不同的范围

Question

我想将A2 与N2、A3 与N3、A4 与N4 进行比较，并希望L2 中的输出为True/False 以获取@987654329 的比较结果@ vs N2 和A3 和N3 的比较结果必须在L3 之类的。

还有N2与N16、N3与N17之间的下一个比较......

请提供您的反馈，以便我进一步处理。

我已经编写了以下代码，但选择范围对我不起作用：

Sub CompareCells()
    If [A2,A3] = [N2,N3] Then
        [L2,L3] = "yes"
    Else
        [L2,L3] = "no"
    End If
End Sub

Answer 1

如 cmets 中所述，VBA 无法处理数组操作，例如 [A1,A2] = [N2,N3] 或 [L2,L3] = "yes"，因此您需要单独进行每个测试，例如：

Sub CompareCells()
    If [A2] = [N2] Then [L2] = "yes" Else [L2] = "No"
    If [A3] = [N3] Then [L3] = "yes" Else [L3] = "No"
    If [A4] = [N4] Then [L4] = "yes" Else [L4] = "No"
End Sub

或者你需要有一个循环，例如：

Sub CompareCells()
    Dim r As Long
    For r = 2 To 4
        If Cells(r, "A").Value = Cells(r, "N").Value Then
            Cells(r, "L").Value = "yes"
        Else
            Cells(r, "L").Value = "no"
        End If
    Next
End Sub

---

您的问题中没有足够的信息来了解如何扩展此代码以比较 N2 和 N16 等，但应该很容易让您继续上述方法来处理它。

Answer 2

当您使用括号表示法时，例如[A1]你正在使用EVALUATE方法：

使用方括号（例如，“[A1:C5]”）与使用字符串参数调用 Evaluate 方法相同。

您可以通过在括号表示法指定的范围上设置 Formula 属性来使用它来执行您想要的操作，例如：

Option Explicit

Sub CompareCells1()

    [L2:L10].Formula = "=IF(A2=N2,""yes"",""no"")"

End Sub

注意使用: 来获得Range - 使用,s 意味着你会这样做：

Option Explicit

Sub CompareCells2()

    ' you need to type each cell reference upto L10....
    [L2, L3, L4, L5].Formula = "=IF(A2=N2,""yes"",""no"")"

End Sub

哪个不如CompareCells1。

您可以将范围分配给 Variant，但您不能像这样简单地比较两个数组 - 这是行不通的：

Option Explicit

Sub CompareCells3()

    Dim var1, var2

    var1 = [A2:A10]
    var2 = [N2:N10]

    ' throws a Type Mismatch error
    If var1 = var2 Then
        ' this will never happen
    End If

End Sub

您可以使用Transpose 和Join 方法suggested by Siddarth in his comment, per Tim Williams post 比较var1 和var2 以上错误示例，但如果您需要或想要，我认为CompareCells1 方法对您来说是最简单的, 使用括号表示法。

使用,s 进行比较会导致误报。例如：

Option Explicit

Sub CompareCells4()

    Dim var1, var2

    var1 = [A2,A10]
    var2 = [N2,N10]

    ' creates a string from the range values
    If var1 = var2 Then
        ' this is a false positive - check the value of var1 and var2
        [L2:L10] = "False positive"
    End If

End Sub

这里var1 只是A2 的值，var2 只是N2 的值意味着即使您可以使用括号表示法设置L2:L10 的范围，也无法得到正确的比较你的要求。