만약 값이 배열에 있다면

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에.

나는 셀의 값이 배열에 존재하는지 확인하는 것입니다. 셀 자체가 아니라면 (셀의 배열을 가짐을 의미합니다. , 사물).

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의 출처와 그 다음 무엇인지 좀 더 당신을 도울 수있는 당신은 또한 확인하고있다.