[엑셀] 다른 시트에 있는 데이터, 원하는 시트로 붙이기 VBA

안녕하세요. yyDandy입니다. 사무실 칼퇴보장 알잘딱깔센 엑셀 활용법! 

 

---

오늘은 다른 시트에 있는 데이터를 원하는 시트로 붙이는 법을 알려 드릴게요! 우선 저는 파일명을 Test와 Act로 했구요. Test에 있는 시트 1번을 Act 엑셀 1번에 옮기는 작업을 할 거 랍니다!

 

반응형

Sub AppendSheet()
    Dim SourceWorkbook As Workbook
    Dim DestinationWorkbook As Workbook
    Dim SourceWorksheet As Worksheet
    Dim DestinationWorksheet As Worksheet
    
    ' 소스 워크북 열기 (TEST.xlsx)
    Set SourceWorkbook = Workbooks.Open("C:\Users\Downloads\새 폴더\TEST.xlsx")
    ' 대상 워크북 열기 (Act.xlsx)
    Set DestinationWorkbook = Workbooks.Open("C:\Users\Downloads\새 폴더\Act.xlsx")
    
    ' 소스 시트(첫 번째 시트) 및 대상 시트 지정
    Set SourceWorksheet = SourceWorkbook.Sheets(1)
    Set DestinationWorksheet = DestinationWorkbook.Sheets(1) ' 수정 필요한 경우 대상 시트 지정
    
    ' 소스 시트의 데이터를 대상 시트에 붙이기
    SourceWorksheet.Copy After:=DestinationWorksheet
    
    ' 워크북 저장 및 닫기
    DestinationWorkbook.Save
    DestinationWorkbook.Close
    
    SourceWorkbook.Close False
End Sub

 

반응형

 

우선 코드는 위와 같아서 그대로 붙이면 사용하실 수 있어요. 하지만 고쳐야 하는 부분은 워크북 열기의 위치인데요. 저 부분을 여러분의 파일 패스에 맞게 수정해주시면 돼요.

 

 

바로 이 부분을 복사해서 여기에 붙여서 수정해주시면 된답니다!

 

 

그리고 붙여넣고 나서 워크북 Close가 있기 때문에 파일은 닫히게 되는데요. 저 마지막 줄을 지울 경우에는 그대로 유지할 수 있어요.