[시트 전체 값으로 복사 붙여넣기후 새로운 파일로 저장하기]

[시트 전체 값으로 복사 붙여넣기후 새로운 파일로 저장하기]

Sub 값으로시트복사()

Dim wb As Workbook

Dim wa As Worksheet

Set wa = ActiveSheet ‘여기서 변수로 지정해줘야

wa.UsedRange.Select

Selection.Copy

Selection.PasteSpecial (-4163)

Set wb = Workbooks.Add ‘여기서 초점이 이동했을때

wa.Copy Before:=wb.Sheets(1) ‘여기서 쉽게 복사가능

wb.SaveAs "d:\test1.xlsx" '파일경로 및 이름 여기서 지정

End Sub