如何将数组字符串与范围值进行比较

Question

我在字典中提取了唯一的人名，然后将它们放入一个数组中：

'Extract the dictionary's keys as a 1D array
    Dim result As Variant
    result = dic.Keys

效果很好 - 我可以看到名为 result 的数组中的唯一名称 - Jane、Bob 等，其中：MsgBox Join(result, vbCrLf)

它使用一个名为 valCounter2 的循环变量，所以我应该能够使用 result(valCounter2) 循环遍历数组

现在我正在尝试在 CX 列中查找这些名称：

    Dim LSearchRow As Integer
        LSearchRow = 2
        While Len(Range("A" & CStr(LSearchRow)).Value) > 0
            If Range("CX" & CStr(LSearchRow)).Value = result(valCounter2) Then

最后一行是问题所在。如果我将该行设置为实际值，则它可以工作。所以这有效： If Range("CX" & CStr(LSearchRow)).Value = "Jane Smith" Then

如何让它使用数组变量？

Answer 1

您需要在数组元素之间进行迭代，或者使用 Match 来检查字符串是否存在。请尝试下一个代码：

Sub CheckArrayElements()
  Dim LSearchRow As Long, mtch As Variant
        'result should be take from somewhere else...
        LSearchRow = 2
        Do While Len(Range("A" & LSearchRow).Value) > 0
            mtch = Application.match(Range("CX" & LSearchRow).Value, result, 0)
            If IsNumeric(mtch) Then 'the string has been found
                'do here what you need
            End If
            LSearchRow = LSearchRow + 1
        Loop
End Sub

上面的 sub 仅向您展示了如何处理数组，以便进行比较。

如果数组来自字典并且您不想只了解数组，那么按照您在第一条评论中收到的建议会简单得多。