0

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

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

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
4

1 回答 1

1

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

我将假设您要做的是检查单元格的值是否存在于数组中 - 而不是单元格本身是否存在（这意味着您有一个单元格数组或范围对象）。

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来自哪里以及它是什么，那么我可以为您提供更多帮助。

于 2013-07-14T21:20:17.200 回答