시트복사 (3) 썸네일형 리스트형 엑셀 시트 한번에 여러개 신규, 복사 해서 만드는 매크로( 신규 생성, 복사 생성) 엑셀로 작업을 하다보면 한번에 많은 시트를 새로 만들거나, 기존 시트를 여러개 복사해야 할 때가 있습니다. 그 때 사용하는 매크로입니다. 첫번째는 새로 여러개의 시트를 한 번에 생성하는 매크로 1. 생성할 시트 이름을 미리 아래와 같이 입력 한 다음,2. 시트 일괄 생성을 클릭하여, 입력해 둔 셀들을 선택한 다음 확인을 클릭하면 새로운 시트가 일괄 생성 됩니다. Sub CreateSheets() Dim rng As Range Dim cell As Range Dim str As String On Error GoTo Errorhandling '선택 박스 Set rng = Application.InputBox(Prompt:="시트 생성을 위한 레인지를 선택해주세요~!:", _ Title:="Create sh.. 엑셀 현재 작업 워크시트 파일에 다른 파일의 시트들을 불러와 합치는 매크로 함수(시트 불러오기, 시트 머지, 시트 병합, 시트 합치기) 엑셀로 작업 할 때 다른 파일의 시트들을 불러와 합쳐서 작업해야 할 때 시트를 복사 / 이동하는 방법과 한꺼번에 파일 전체 시트를 불러와 합쳐주는 매크로 함수 입니다. 복사 해야 할 시트가 많지 않은 경우 1. 이동 / 복사 할 대상 엑셀 파일을 열어 둔 다음 아래와 같이 시트 탭에서 우측 버튼을 누르고, 2. 이동 / 복사 메뉴에서 현재 시트들을 이동 시킬 대상 파일을 선택 한 다음, 3. 시트 들이 복사 / 이동 했을 때의 위치를 정해준 후 복사본 만들기를 체크 해 주고 확인 버튼을 누르면 선택한 엑셀 파일로 선택 한 시트 들이 복사됩니다. 복사 해야 할 시트가 많을 때 시트가 많아 일일이 복사하기가 번거로울 때 한번에 시트들을 불러와 합쳐주는 매크로 함수입니다.(시트 병합, 시트 머지) [ 매.. 엑셀 에서 현재 열을 맨 마지막 열에 복사 하는 매크로 엑셀 작업중, 반복적으로 열을 복사 해서 사용할 때 유용한 함수로, 현재 열을 시트의 비어 있는 마지막 열로 복사해줍니다. Sub copyToLastRow() Application.ScreenUpdating = False Dim copySheet As Worksheet '시트가 다를 경우 예비 'Dim pasteSheet As Worksheet '작업하는 시트 이름 Set copySheet = Worksheets("Sheet1") '작업하는 시트 이름 'Set pasteSheet = Worksheets("Sheet2") Range("A" & Selection.Row & ":AG" & Selection.Row).Select Selection.Copy 'copySheet.Range("A" & Selectio.. 이전 1 다음
