반응형 Dictionary2 카테고리별로 시트 생성하여 나누기 Sub CreateSheetsBasedOnCategory() Dim categoryCol As Variant Dim category As Variant Dim rowIndex As Long Dim categoryDict As Object Set categoryDict = CreateObject("Scripting.Dictionary") With Sheets("Product").Range("A1").CurrentRegion categoryCol = .Columns(2).Value For rowIndex = 2 To UBound(categoryCol, 1) If Not categoryDict.exists(categoryCol(rowIndex, 1)) Then Set categoryDict(categoryCo.. 2024. 2. 19. Dictionary를 이용하여 행/열 변환하기 Sub TransformAndWriteData() Dim Data As Variant ' 원본 데이터를 저장할 변수 Dim Temp As Variant ' 변환된 데이터를 저장할 변수 Dim dict As Object ' 딕셔너리 객체를 저장할 변수 Dim Valu As Long ' 데이터 열의 최대 개수를 저장할 변수 Dim i As Long ' 반복문에서 사용할 인덱스 변수 Dim x As Long ' 새로운 행의 인덱스를 저장할 변수 Dim xx As Long ' 데이터 열의 인덱스를 저장할 변수 ' Data 시트에서 데이터를 가져옴 Data = Sheets("Data").Cells(2, 2).CurrentRegion ' 딕셔너리 객체를 생성 Set dict = CreateObject("Script.. 2024. 2. 16. 이전 1 다음 반응형
