728x90
excel vba array, redim예제
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | 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 | cs |
고급필터 한 결과를 array로 뽑아오기.
데이터는 제품코드제품명에 들어있다.
end.
728x90
'Excel VBA > VBA 예제' 카테고리의 다른 글
excel vba 날짜 다루기 now, string -> dateObject date add (0) | 2018.06.19 |
---|---|
excel vba regexp (0) | 2018.06.02 |
excel vba array, redim예제 (0) | 2018.05.14 |
excel vba 차트 이동하기 (0) | 2018.04.21 |
해당 시트명이 없으면 sub 종료하는 로직 (0) | 2018.04.18 |
Excel VBA substring, indexOf 괄호 안에 있는 문자열 추출하기 (0) | 2018.04.18 |