excel vba array, redim예제

excel vba array, redim예제

Function get제품명(브랜드명)
 
    Sheets("filter_제품코드제품명").Range("a2:e7").ClearContents
    Sheets("filter_제품코드제품명").Range("d2").Value = 브랜드명
    
    Call advancedFilter("제품코드제품명", "filter_제품코드제품명")
    
    행개수 = Sheets("filter_제품코드제품명").Range("a8").CurrentRegion.Rows.Count - 1
    
    Dim 데이터개수 As Integer
    데이터개수 = 행개수 - 1
    
    Dim ar() As String
    ReDim ar(데이터개수)
 
    For i = 1 To 행개수
        제품명 = Sheets("filter_제품코드제품명").Range("b" & i + 8).Value
        ar(i - 1) = 제품명
    Next
    
    get제품명 = ar
    
End Function
 
Sub test_get제품명()
    ar = get제품명("hello")
    
    For Each Item In ar
        Debug.Print (Item)
    Next
End Sub
 

고급필터 한 결과를 array로 뽑아오기.

데이터는 제품코드제품명에 들어있다.

end.