If IsInArray (Cells (r, 2), Break_List) = True Then Excel VBA

Question

나는이 question을 매우 깊이 추종하여 Cell(r,2)을 하나의 시트에 하나의 시트에 매치 시키려고 노력했다. 시트하지만 나는 함수에서 반환 된 False 값을 계속.

Public Break_List(1 To 1000, 1 To 100) As Variant 

    If IsInArray(Cells(r, 2), Break_List) = True Then 

    Sub Store_Break_Categories() 
    Sheets("BackEnd").Select 
    Break_No_of_Rows = 0 
    'For c = 10 To 15 
    counter = 0 
     If Cells(2, 3) <> "" Then 
     lastrow = Cells(65000, 3).End(xlUp).Row 
      For r = 2 To lastrow 
       counter = counter + 1 
       'Break_List(counter, c - 9) = Cells(r, c) 
        Break_List(counter, 1) = Cells(r, 3) 
      Next r 
     End If 
     If counter > Break_No_of_Rows Then Break_No_of_Rows = counte 
    End Sub 

이

은

Function IsInArray(stringToBeFound As String, arr As Variant) As Boolean 
     IsInArray = Not IsError(Application.Match(stringToBeFound, arr, 0)) 
    End Function 

가 Application.Match 마술 100 열을 통해보고하지 않을 당신에게

Answer 1

감사 나는 위의 질문에서 통합 한 기능입니다. 당신은

Function IsInArray(stringToBeFound As String, arr As Variant) As Boolean 
    IsInArray = Not IsError(Application.Match(stringToBeFound, Application.Index(arr, 0, 1), 0)) 
End Function 

당신이 모든 열을 통해보고 싶은 경우에,

Function IsInArray(stringToBeFound As String, arr As Variant) As Boolean 
    dim a as long 
    IsInArray = false 
    for a = lbound(arr, 2) to ubound(arr, 2) 
     If Not IsError(Application.Match(stringToBeFound, Application.Index(arr, 0, a), 0)) then 
      IsInArray = true 
      exit function 
     end if 
    next a 
End Function