0

私が達成しようとしているのは、セル (アルファベットの 2 文字) が配列内にあるかどうかをチェックするループです。この場合、他のことが起こります。

これまでのところ、私のコードは次のようになります。

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 にある値を取得しているだけです。

あなたがやろうとしているのは、セル自体が存在するかどうかではなく、セルの値が配列に存在するかどうかを確認することであると仮定します（つまり、セルの配列、または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から来たのか、それが何であるかなどを提供していただければ、さらにお手伝いできます。

于 2013-07-14T21:20:17.200 に答える