Question

我想要实现的是一个循环，它将检查是否在数组中找到一个单元格（将是字母表中的两个字母），如果是这种情况，则会发生其他事情。

到目前为止，我的代码如下：

Sub Mortgagee()

    Dim Symbol As Variant
    Dim i As Long
    Symbol = Range("C1:C11").Value

    For i = LBound(Symbol, 1) To UBound(Symbol, 1)
        If Symbol.contains("A1") Then
            Range("G1").Copy
            Range("A1").Select
            ActiveSheet.Paste
        End If
    Next i

End Sub

Answer 1

在上面的代码中，Symbol仅获取范围中第一个单元格的值 - 在这种情况下，它只是取单元格C1中的任何值。

我将假设你要做的是检查一个单元格的值是否存在于数组中 - 如果单元格本身是否存在（这意味着你有一个单元格数组，或者Range，对象）。

Sub Mortgagee()
     Dim i as Long
     Dim arrSymbol(1 to 11) as String

     For i = 1 to UBound(arrSymbol)
          If arrSymbol(i) = "value to match" Then
               'Do work here
          End If
     Next i

End Sub

如果您提供有关该问题的更多信息，特别是您要检查的值以及Codes来自哪里以及它是什么，那么我可以为您提供更多帮助。

如果值在数组中则

1 个答案: