메인 컨텐츠로 가기

Excel에서 여러 시트를 여러 번 복사하는 방법은 무엇입니까?

때로는 통합 문서에 지정된 워크 시트의 복사본을 하나 또는 여러 개 만들어야 할 수도 있습니다. 다음은 Excel에서 한 워크 시트 또는 여러 워크 시트를 여러 번 쉽게 복사하는 데 도움이되는 몇 가지 빠른 방법입니다.


이동 또는 복사 명령을 사용하여 여러 워크 시트의 복사본을 활성 통합 문서 또는 다른 통합 문서로 한 번 만듭니다.

와 더불어 이동 또는 복사 Excel에서 명령을 사용하면 한 번에 하나의 워크 시트 복사본, 여러 특정 워크 시트 또는 모든 워크 시트를 활성 통합 문서 또는 다른 통합 문서로 만들 수 있습니다.

1. 워크 시트를 복사 할 특정 통합 문서의 시트 탭 모음에서 여러 워크 시트를 선택합니다.
주의 사항: 홀딩 CTRL 키를 사용하면 시트 탭 막대에서 하나씩 클릭하여 인접하지 않은 여러 시트 탭을 선택할 수 있습니다. 보유 SHIFT 키를 사용하면 시트 탭 표시 줄에서 첫 번째 시트 탭과 마지막 탭을 클릭하여 인접한 여러 시트 탭을 선택할 수 있습니다.

2. 시트 탭 모음에서 선택한 시트 탭을 마우스 오른쪽 버튼으로 클릭하고 이동 또는 복사 상황에 맞는 메뉴에서. 스크린 샷보기 :
문서 복사 여러 시트 01

3. 에서 이동 또는 복사 대화 상자에서 다음 설정을 지정하십시오.
(1) 워크 시트를 복사 할 대상 워크 북을 지정하십시오. 예약하려면 드롭 다운 목록. 필요에 따라 활성 통합 문서, 열려있는 다른 통합 문서 또는 새 통합 문서를 선택할 수 있습니다.
(2) 시트 탭 바에서 복사 된 시트의 위치를 ​​지정하고, 기존 시트의 모든 뒤에서 선택할 수 있습니다.
(3) 확인 사본 만들기 이 옵션을 선택하지 않으면 선택한 워크 시트가 대상 통합 문서로 이동됩니다.
(4) OK 버튼을 클릭합니다.

이제 선택한 워크 시트를 지정된 통합 문서에 하나만 복사합니다. 이러한 워크 시트의 복사본을 여러 개 만들려면 작업을 여러 번 반복 할 수 있습니다.

몇 번의 클릭만으로 활성 통합 문서에서 여러 워크 시트의 여러 복사본을 만들 수 있습니다.

일반적으로 여러 워크 시트를 이동 또는 복사 Excel의 기능. 그러나이 기능은 한 번에 하나의 사본 만 만들 수 있습니다. 여기, Excel 용 Kutools를 사용하여 워크 시트 복사 유틸리티를 사용하면 몇 번의 클릭만으로 활성 통합 문서에서 필요한만큼 많은 워크 시트의 복사본을 쉽게 만들 수 있습니다.


광고 복사 여러 워크 시트 01

Excel 용 Kutools - 300개 이상의 필수 도구로 Excel을 강화하세요. 신용카드 없이 모든 기능을 갖춘 30일 무료 평가판을 즐겨보세요! 이제 그것을 잡아

VBA 코드를 사용하여 하나의 지정된 워크 시트의 여러 복사본을 활성 통합 문서로 만듭니다.

지정된 워크 시트의 복사본을 10 개 만들려면 이동 또는 복사 명령은 시간이 많이 걸리는 방법이므로 작업을 여러 번 반복해야합니다. 그러나 다음 VBA 코드를 사용하면 워크 시트를 한 번에 10 번 빠르게 복사 할 수 있습니다.

1. 누르고 ALT + F11 키가 열립니다. 응용 프로그램 용 Microsoft Visual Basic 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여 넣습니다.

VBA : 특정 워크 시트의 여러 복사본을 활성 통합 문서로 만들기

Sub Copier ()
Dim x As Integer
x = InputBox("Enter number of times to copy Sheet1")
For numtimes = 1 To x
ActiveWorkbook.Sheets("Sheet1").Copy _
After:=ActiveWorkbook.Sheets("Sheet1")
Next
End Sub

주의 사항: 위 코드에서 "Sheet1"를 복사 할 시트의 이름으로 바꿉니다.

3. 그런 다음 F5 키를 눌러 코드를 실행하면 원하는 매수를 묻는 프롬프트 상자가 나타납니다.

4. 그런 다음 OK, 지정된 워크 시트가 활성 통합 문서에 100 번 복사되었습니다.


Excel 용 Kutools를 사용하여 여러 워크 시트의 여러 복사본을 활성 통합 문서로 만듭니다.

Excel에서 여러 워크 시트의 복사본을 만드는 것은 간단하지만 현재 통합 문서에서 여러 워크 시트의 복사본을 여러 개 만들려면 다음을 사용해야 할 수 있습니다. 이동 또는 복사 명령 항목을 몇 번이고. 한 번의 클릭으로 작업을 완료 하시겠습니까? 와 더불어 워크 시트 복사 타사 추가 기능의 유틸리티 Excel 용 Kutools, Excel에서 한 번의 클릭으로 여러 워크 시트의 여러 복사본을 만들 수 있습니다.

Excel 용 Kutools - 300개 이상의 필수 도구로 Excel을 강화하세요. 신용카드 없이 모든 기능을 갖춘 30일 무료 평가판을 즐겨보세요! 이제 그것을 잡아

1. 딸깍 하는 소리 쿠툴즈 플러스 > 워크 시트 복사. 스크린 샷보기 :

주의 사항: 클릭 쿠툴즈 플러스 > 워크 시트 > 워크 시트 복사 이 기능도 제공됩니다.

2. 설정 적용 여러 워크 시트 복사 대화 상자 :
(1) 복사 할 워크 시트 확인 선택한 워크 시트 복사 안내
(2) 지정 사본 수.
(3) 복사 된 시트의 위치를 ​​결정합니다. 예를 들어, 모든 워크 시트의 앞이나 뒤, 현재 워크 시트의 앞이나 뒤에 있습니다.
(4) Ok 버튼을 클릭합니다.

3. 확인한 워크 시트가 필요에 따라 여러 번 복사되었음을 알리는 프롬프트 상자가 나타납니다. OK 버튼을 눌러 종료하십시오. 스크린 샷보기 :

여러 워크 시트 복사 특징 Excel 용 Kutools 몇 번의 클릭만으로 활성 통합 문서에 지정된 여러 워크 시트의 여러 복사본을 만듭니다. 무료 평가판을 받으십시오!


여러 통합 문서의 여러 워크 시트를 새 문서로 복사

Excel 용 Kutools가 설치되어있는 경우 워크 시트 결합 Excel에서만 몇 번의 클릭으로 여러 개의 닫힌 통합 문서의 여러 워크 시트를 새 통합 문서로 복사하는 기능입니다.

Excel 용 Kutools - 300개 이상의 필수 도구로 Excel을 강화하세요. 신용카드 없이 모든 기능을 갖춘 30일 무료 평가판을 즐겨보세요! 이제 그것을 잡아

1. 딸깍 하는 소리 쿠툴즈 플러스 > 결합 워크 시트 결합 기능을 활성화합니다.

2. 워크 시트 결합 – 1 단계 중 3 단계 마법사에서 통합 문서의 여러 워크 시트를 하나의 워크 시트로 결합 옵션을 클릭하고 다음 보기 단추. 스크린 샷보기 :

3. 워크 시트 결합 – 2 단계 중 3 단계 마법사에서 다음 스크린 샷을 수행하십시오.
(1) 클릭 추가 > 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 or 폴더 워크 북을 추가하려면 워크 시트를 복사합니다.
(2) 통합 문서 목록 섹션에서 워크 시트를 복사 할 워크 북을 확인하십시오.
(3) 워크 시트 목록 섹션에서 복사 할 워크 시트를 확인하십시오.
(4) 위의 반복 (2) (3) 복사 할 다른 통합 문서에서 워크 시트를 선택합니다.
(5) 다음 보기 버튼을 클릭합니다.

4. 워크 시트 결합 – 3 단계 중 3 단계 마법사에서 필요에 따라 복사 설정을 구성하고 마감재 버튼을 클릭합니다.

5. 이제 새 대화 상자에서 새 통합 문서를 저장할 대상 폴더를 지정하고 새 통합 문서의 이름을 파일 이름 상자를 클릭하고 찜하기 단추. 스크린 샷보기 :

이제 또 다른 두 개의 대화 상자가 나타나고 새 통합 문서를 열고 조합 시나리오를 저장하라는 메시지가 표시됩니다. 필요에 따라 버튼을 클릭하십시오. 지금까지 한 번에 여러 통합 문서에서 지정된 모든 워크 시트를 복사했습니다.

이와 함께 결합 (워크 시트) 유틸리티를 사용하면 다음 목록과 같이 워크 시트와 통합 문서를 쉽게 복사하고 결합 할 수 있습니다. 무료 평가판을 받으십시오!
(1) 통합 문서의 여러 워크 시트 / 범위를 하나의 워크 시트로 빠르게 결합합니다.
(2) 통합 문서에서 동일한 이름의 모든 워크 시트를 하나의 워크 시트로 빠르게 병합 / 결합합니다.
(3) 워크 시트 또는 워크 북을 하나의 워크 북으로 빠르게 병합 / 결합합니다.
(4) 여러 워크 시트의 데이터를 하나의 워크 시트로 빠르게 요약 / 계산합니다.

최고의 사무 생산성 도구

🤖 Kutools AI 보좌관: 다음을 기반으로 데이터 분석을 혁신합니다. 지능형 실행   |  코드 생성  |  사용자 정의 수식 만들기  |  데이터 분석 및 차트 생성  |  Kutools 기능 호출...
인기 기능: 중복 항목 찾기, 강조 표시 또는 식별   |  빈 행 삭제   |  데이터 손실 없이 열이나 셀 결합   |   수식없이 반올림 ...
슈퍼 조회: 다중 기준 VLookup    다중 값 VLookup  |   여러 시트에 걸친 VLookup   |   퍼지 조회 ....
고급 드롭다운 목록: 드롭다운 목록을 빠르게 생성   |  종속 드롭다운 목록   |  다중 선택 드롭 다운 목록 ....
열 관리자: 특정 개수의 열 추가  |  열 이동  |  Toggle 숨겨진 열의 가시성 상태  |  범위 및 열 비교 ...
특색 지어진 특징: 그리드 포커스   |  디자인보기   |   큰 수식 바    통합 문서 및 시트 관리자   |  리소스 라이브러리 (자동 텍스트)   |  날짜 선택기   |  워크 시트 결합   |  셀 암호화/해독    목록으로 이메일 보내기   |  슈퍼 필터   |   특수 필터 (굵게/기울임꼴/취소선 필터링...) ...
상위 15개 도구 세트12 본문 도구 (텍스트 추가, 문자 제거,...)   |   50+ 거래차트 유형 (Gantt 차트,...)   |   40+ 실용 방식 (생일을 기준으로 나이 계산,...)   |   19 삽입 도구 (QR 코드 삽입, 경로에서 그림 삽입,...)   |   12 매출 상승 도구 (숫자를 단어로, 환율,...)   |   7 병합 및 분할 도구 (고급 결합 행, 셀 분할,...)   |   ... 그리고 더

Excel용 Kutools로 Excel 기술을 강화하고 이전과는 전혀 다른 효율성을 경험해 보세요. Excel용 Kutools는 생산성을 높이고 시간을 절약하기 위해 300개 이상의 고급 기능을 제공합니다.  가장 필요한 기능을 얻으려면 여기를 클릭하십시오...

상품 설명


Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
Comments (25)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am new to this I am just trying to make copies of the same sheet this is the code I am using. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub when i use the code it gives me the error of "Syntax Error" then this text turns red ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) and the is text turns yellow Sub Copier() what can i do to fix it.
This comment was minimized by the moderator on the site
Working Code

Sub Copier()
Dim s As String
Dim numtimes As Integer
Dim numCopies As Integer
numCopies = InputBox("How many copies do you need?")
s = InputBox("Enter the name of the Worksheet you want to copy")
For numtimes = 1 To numCopies
ActiveWorkbook.Sheets(s).Copy After:=ActiveWorkbook.Sheets(Worksheets.Count)
Next
End Sub

copy the entire line from ActiveWorkbook.Sheets...... that was the problem, and some spaces

Have a great day
This comment was minimized by the moderator on the site
[quote]I am new to this I am just trying to make copies of the same sheet this is the code I am using. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub when i use the code it gives me the error of "Syntax Error" then this text turns red ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) and the is text turns yellow Sub Copier() what can i do to fix it.By Tyler Dempsey[/quote] Here is the exact code you want to use: Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
This comment was minimized by the moderator on the site
Thank you, the last one saved my life :)
This comment was minimized by the moderator on the site
[quote]I am new to this I am just trying to make copies of the same sheet this is the code I am using. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub when i use the code it gives me the error of "Syntax Error" then this text turns red ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) and the is text turns yellow Sub Copier() what can i do to fix it.By Tyler Dempsey[/quote] Double check your code and make sure you don't have a space at ActiveWorkbook. Sheets(s).Copy _ or at Sheets(Worksheets.Cou nt)
This comment was minimized by the moderator on the site
Fantastic VBA code - really helped
This comment was minimized by the moderator on the site
When I first tried it, I got the error message because I didn't change the name Sheet1. After I realized what caused the error, I researched a little further, as I did not want to be manually entering the sheet name into the macro. And when I need this feature, it is almost always for the current sheet. I added the line a = activesheet.name And revised the line after:=activeworkbook.sheets("sheet1") to activeworkbook.sheets(a).copy _ That worked very well, but I did notice the numbering was reversed ... that didn't bother me as I was going to manually rename the new sheets anyway. When I saw Schuyler's post, I further revised the line activeworkbook.sheets(a).copy _ to after:=activeworkbook.sheets(worksheets.count) I am now satisfied with the result. My finished macro: Sub copies() Dim x As Integer x = InputBox("Enter number of times to copy Sheet1") For numtimes = 1 To x ActiveWorkbook.Sheets("Sheet1").Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub --- All the best, Barry
This comment was minimized by the moderator on the site
i got syntax error on "After:=ActiveWorkbook.Sheets(Worksheets.Count)


but i dunno whats wrong... Can u help me please?
This comment was minimized by the moderator on the site
Thank you so much Barry. Your finished macro is the only thing that worked for me.
This comment was minimized by the moderator on the site
where i will insert this above code in vba should i create common button then inside ?? regards.
This comment was minimized by the moderator on the site
Follow the below steps:
1. Copy the above code
2. Hold down the ALT + F11 keys, and it opens the Microsoft Visual Basic for Applications window.
2. Click Insert > Module, and paste the following code in the Module Window.
4.Then press F5 key to run the code
5.A prompt box appears to ask you the number of sheet copies you want.
This comment was minimized by the moderator on the site
I get an error that 'numtimes' is not defined...?
This comment was minimized by the moderator on the site
I got the same error as Theou and no one seems to have addressed it. My tabs are already named PO 51, PO 52, etc. and I replaced Sheet1 with PO 51 to copy that and got the subscript error out of range (9) I followed Schuyler's code to get the right order, but I still get the error and it's always due to these two lines: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)
This comment was minimized by the moderator on the site
[quote]I got the same error as Theou and no one seems to have addressed it. My tabs are already named PO 51, PO 52, etc. and I replaced Sheet1 with PO 51 to copy that and got the subscript error out of range (9) I followed Schuyler's code to get the right order, but I still get the error and it's always due to these two lines: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)By Debbi[/quote] Can you include your complete code to make it easier to debug? A "subscript error out of range" usually means that the code references something that doesn't exist. I find this in my own code when I've got a typo or something of that nature.
This comment was minimized by the moderator on the site
how to copy with same column widths
This comment was minimized by the moderator on the site
Same column widths as the original Worksheet or do you want all of the column widths to be the same?
This comment was minimized by the moderator on the site
yes it works thanks I have successfully make multiple copies of a single worksheet in same workbook by using vba code thnx a lot.
This comment was minimized by the moderator on the site
Search for word "After" and change it to "Before". This will create copies in right order "Before" Sheet1. The only thing to rememeber is that numbering will always start from (2) as the original sheet will always be counted as 1st copy. Also you can replace "Sheet1" with name of the tab you are trying to copy.
This comment was minimized by the moderator on the site
[quote]Using the VBA code, the naming of the duplicated worksheets is in reverse order. Let's say I make 10 copies of Sheet1, I'll end up with Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......is it possible to have them in normal order?By MichaelTadashi[/quote] Anyone was able to answer this question? I need to create 72 copies, but it would be needed to have them in order (1 throught 72, intead of 72 through 1) Thanks!
This comment was minimized by the moderator on the site
[quote][quote]Using the VBA code, the naming of the duplicated worksheets is in reverse order. Let's say I make 10 copies of Sheet1, I'll end up with Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......is it possible to have them in normal order?By juan[/quote] Anyone was able to answer this question? I need to create 72 copies, but it would be needed to have them in order (1 throught 72, intead of 72 through 1) Thanks!By MichaelTadashi[/quote]e] If you want the sheet copies to be in sequential order instead of backwards, change the following line... After:=ActiveWorkbook.Sheets("Sheet1") to this... After:=ActiveWorkbook.Sheets(Worksheets.Count) My completed code looked like the following which uses 2 InputBox prompts to allow for a dynamic copy count and worksheet name.. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
This comment was minimized by the moderator on the site
How do i get the coppies continuous numbered. If the sheet i want to copy is named I002, and i want the next to be named I003,I004,I005 an so on.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations