엑셀 특정 열 값 추출, 주문서 양식에 맞게 통합하기

Sub CopyColumnToNewSheet()
    Dim sourceColumn As Range, targetRange As Range
    
    ' 원본 워크시트와 열 설정 ("Sheet1"의 "A" 열)
    Set sourceColumn = Worksheets("Sheet1").Columns("A")
    
    ' 새 워크시트 생성
    Dim newSheet As Worksheet
    Set newSheet = Worksheets.Add
    
    ' 목표지점 설정 (새 워크시트의 "A" 열의 첫 번째 셀)
    Set targetRange = newSheet.Range("A1")
    
    ' 열 데이터 복사 및 붙여넣기
    sourceColumn.Copy Destination:=targetRange
    
    ' 결과 메시지
    MsgBox "열 데이터가 새 워크시트에 복사되었습니다."
End Sub

Sub CopyMultipleColumnsToNewSheet()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim arrColumns As Variant
    Dim i As Integer
    
    ' 원본 워크시트 설정
    Set wsSource = ThisWorkbook.Worksheets("Sheet1")
    
    ' 새 워크시트 생성
    Set wsTarget = ThisWorkbook.Worksheets.Add
    
    ' 복사할 열 번호 또는 문자 배열 설정
    arrColumns = Array(1, 3, 5, 7, 9, 11) ' A, C, E, G, I, K 열에 해당하는 열 번호
    
    ' 배열에 지정된 각 열을 순회하며 새 워크시트에 복사
    For i = LBound(arrColumns) To UBound(arrColumns)
        ' 열 복사 & 타겟 워크시트에 붙여넣기
        wsSource.Columns(arrColumns(i)).Copy Destination:=wsTarget.Columns(i + 1)
        ' i + 1은 새 워크시트에서의 위치를 지정, 필요에 따라 조정 가능
    Next i
    
    ' 결과 메시지
    MsgBox "특정 열 데이터가 새 워크시트에 복사되었습니다."
End Sub

Sub ExtractDataFromSample1()
    ' Sample1.xlsx 파일에서 A, C, E 열의 데이터 추출
    ExtractSpecificColumns "C:\YourPath\Sample1.xlsx", Array(1, 3, 5)
End Sub

Sub ExtractDataFromSample2()
    ' Sample2.xlsx 파일에서 A, F, I 열의 데이터 추출
    ExtractSpecificColumns "C:\YourPath\Sample2.xlsx", Array(1, 6, 9)
End Sub

Sub ExtractSpecificColumns(filePath As String, arrColumns As Variant)
    Dim wbSource As Workbook
    Dim wsTarget As Worksheet
    Dim i As Integer
    
    ' 대상 엑셀 파일 열기
    Set wbSource = Workbooks.Open(filePath)
    
    ' 새 워크시트 생성
    Set wsTarget = ThisWorkbook.Sheets.Add
    
    ' 지정된 열 데이터 추출 및 새 워크시트에 붙여넣기
    For i = LBound(arrColumns) To UBound(arrColumns)
        wbSource.Sheets(1).Columns(arrColumns(i)).Copy Destination:=wsTarget.Cells(1, i + 1)
    Next i
    
    ' 원본 워크북 닫기 (저장하지 않음)
    wbSource.Close SaveChanges:=False
    
    MsgBox filePath & "에서 데이터 추출 완료!"
End Sub