Note: The other languages of the website are Google-translated. Back to English

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

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


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

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

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

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

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

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

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

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


광고 복사 여러 워크 시트 01

Excel 용 Kutools - 300개 이상의 편리한 Excel용 도구가 포함되어 있습니다. 전체 기능 무료 평가판 30-day, 신용카드 불필요! 이제 그것을 잡아

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-day, 신용카드 불필요! 이제 그것을 잡아

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

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

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

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

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


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

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

Excel 용 Kutools - 300개 이상의 편리한 Excel용 도구가 포함되어 있습니다. 전체 기능 무료 평가판 30-day, 신용카드 불필요! 이제 그것을 잡아

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

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

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

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

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

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

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


최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

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

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (25)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
VBA 코드를 사용하면 복제된 워크시트의 이름이 역순으로 지정됩니다. Sheet10의 복사본을 1개 만든다고 가정해 보겠습니다. Sheet1, Sheet1(10), Sheet1(9), Sheet1(8)로 끝납니다........ 정상적인 순서로 가질 수 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
VBA 코드를 시도했고 아래 첨자가 범위를 벗어났습니다 오류(9). 나는 시트 이름을 이미 통합 문서에 있다고 생각할 수 있는 것으로 대체했습니다. 내가 뭘 잘못했는지 알아? 또한 각 시트의 이름을 점진적으로 지정하는 방법이 있습니까? 이것은 Michael의 질문과 관련이 있을 것입니다. 저는 확신합니다. 그의 질문에 대한 대답은 After 대상을 "시트"+x로 어떻게든 설정해야 하고 새 시트의 이름을 지정할 방법이 있는 경우 내 질문에 적용된다는 것입니다. 나는 항상 내 상사의 "마스터"를 "0월 XNUMX" 또는 어떤 달로 변경할 수 있지만 스크립트가 자동으로 이름을 지정하면 그녀가 이해하기 더 쉬울 것입니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
고마워, vba 코드는 거대했다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
와우, VBA 코드 주셔서 감사합니다. 정말 많은 도움이 됩니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
[인용] VBA 코드를 사용하여 복제된 워크시트의 이름은 역순입니다. Sheet10의 복사본을 1개 만든다고 가정해 보겠습니다. Sheet1, Sheet1(10), Sheet1(9), Sheet1(8)로 끝납니다........ 정상적인 순서로 가질 수 있습니까?마이클 타다시[/인용] 이 질문에 답할 수 있는 사람이 있습니까? 72개의 사본을 생성해야 하지만 순서대로(1에서 72이 아닌 72에서 1까지) 사본을 만들어야 합니다. 감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
[인용][인용]VBA 코드를 사용하여 복제된 워크시트의 이름은 역순입니다. Sheet10의 복사본을 1개 만든다고 가정해 보겠습니다. Sheet1, Sheet1(10), Sheet1(9), Sheet1(8)로 끝납니다........ 정상적인 순서로 가질 수 있습니까?후안으로[/인용] 이 질문에 답할 수 있는 사람이 있습니까? 72개의 사본을 생성해야 하지만 순서대로(1에서 72이 아닌 72에서 1까지) 사본을 만들어야 합니다. 감사합니다!마이클 타다시[/인용]e] 시트 사본을 역순이 아닌 순차적인 순서로 하려면 다음 줄을 변경하십시오... 이후:=ActiveWorkbook.Sheets("시트1") 이에... 이후:=ActiveWorkbook.Sheets(워크시트. 개수) 완성된 코드는 2개의 InputBox 프롬프트를 사용하여 동적 사본 수와 워크시트 이름을 허용하는 다음과 같습니다. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("얼마나 많은 사본이 필요합니까?") s = InputBox("복사할 워크시트의 이름을 입력하십시오") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
연속 번호를 매기는 방법은 무엇입니까? 복사하려는 시트의 이름이 I002이고 다음 시트의 이름을 I003,I004,I005로 지정하고 싶습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
단어 "After"를 검색하고 "Before"로 변경합니다. 이렇게 하면 "이전" Sheet1에 올바른 순서로 복사본이 만들어집니다. 기억해야 할 유일한 것은 원본 시트가 항상 첫 번째 사본으로 계산되기 때문에 번호 매기기는 항상 (2)부터 시작한다는 것입니다. 또한 "Sheet1"을 복사하려는 탭의 이름으로 바꿀 수 있습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
네 덕분에 작동합니다. vba 코드 thnx를 많이 사용하여 동일한 통합 문서에서 단일 워크시트의 여러 복사본을 성공적으로 만들었습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
동일한 열 너비로 복사하는 방법
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
원본 워크시트와 동일한 열 너비 또는 모든 열 너비를 동일하게 하시겠습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나는 Theou와 같은 오류를 얻었고 아무도 그것을 해결하지 않은 것 같습니다. 내 탭의 이름은 이미 PO 51, PO 52 등이며 Sheet1을 PO 51로 대체하여 복사하고 아래 첨자 오류가 범위를 벗어났습니다. (9) Schuyler의 코드를 따라 올바른 순서를 얻었지만 여전히 오류가 발생합니다. 항상 다음 두 줄로 인해 발생합니다. ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
[인용] 저와 같은 오류가 발생했는데 아무도 해결하지 못한 것 같습니다. 내 탭의 이름은 이미 PO 51, PO 52 등이며 Sheet1을 PO 51로 대체하여 복사하고 아래 첨자 오류가 범위를 벗어났습니다. (9) Schuyler의 코드를 따라 올바른 순서를 얻었지만 여전히 오류가 발생합니다. 항상 다음 두 줄로 인해 발생합니다. ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)데비디버그하기 쉽도록 전체 코드를 포함할 수 있습니까? "아래 첨자 오류가 범위를 벗어남"은 일반적으로 코드가 존재하지 않는 것을 참조한다는 의미입니다. 오타나 그와 유사한 것이 있을 때 내 코드에서 이것을 찾습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
'numtimes'가 정의되지 않았다는 오류가 발생합니다...?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
vba에서 위의 코드를 삽입할 위치는 다음 내부에 공통 버튼을 생성해야 합니까 ?? 문안 인사.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
다음 단계를 따르세요.
1. 위의 코드를 복사
2. Alt + F11 키를 누르고 있으면 Microsoft Visual Basic for Applications 창이 열립니다.
2. 삽입 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여넣습니다.
4. 그런 다음 F5 키를 눌러 코드를 실행합니다.
5. 원하는 매수를 묻는 프롬프트 상자가 나타납니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
처음 시도했을 때 Sheet1 이름을 변경하지 않았기 때문에 오류 메시지가 나타납니다. 오류의 원인을 알게 된 후 매크로에 시트 이름을 수동으로 입력하고 싶지 않았기 때문에 조금 더 조사했습니다. 그리고 이 기능이 필요할 때 거의 항상 현재 시트에 대한 것입니다. a = activesheet.name 줄을 추가하고 다음 줄을 수정했습니다:=activeworkbook.sheets("sheet1") to activeworkbook.sheets(a).copy _ 잘 작동했지만 번호 매기기가 반대로 된 것을 알았습니다 ... 어쨌든 수동으로 새 시트의 이름을 바꿀 것이기 때문에 귀찮게하지 않았습니다. Schuyler의 게시물을 보고 activeworkbook.sheets(a).copy _ 라인을 after:=activeworkbook.sheets(worksheets.count) 로 추가 수정했습니다. 이제 결과에 만족합니다. 내 완성된 매크로: Sub copys() Dim x As Integer x = InputBox("Sheet1을 복사할 횟수를 입력하십시오.") For numtimes = 1 To x ActiveWorkbook.Sheets("Sheet1").Copy _ After:=ActiveWorkbook.Sheets( Worksheets.Count) Next End Sub --- 최선을 다해, Barry
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
배리님 정말 감사합니다. 완성된 매크로는 저에게 효과가 있었던 유일한 것입니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
"After:=ActiveWorkbook.Sheets(Worksheets.Count)"에서 구문 오류가 발생했습니다.


근데 뭐가 잘못됐는지 모르겠어... 도와줄 수 있어?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
환상적인 VBA 코드 - 정말 도움이 되었습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나는 이것에 익숙하지 않습니다. 이것은 내가 사용하는 코드와 동일한 시트의 사본을 만들려고합니다. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("얼마나 많은 사본이 필요합니까?") s = InputBox("복사할 워크시트의 이름을 입력하십시오") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub 코드를 사용할 때 "구문 오류" 오류가 발생하면 이 텍스트가 빨간색 ActiveWorkbook.Sheets로 바뀝니다. (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) 및 is 텍스트가 노란색으로 바뀝니다. Sub Copier() 이 문제를 해결하려면 어떻게 해야 하나요?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
[인용] 나는 이것을 처음 사용하고 동일한 시트의 사본을 만들려고 시도하고 있습니다. 이것은 내가 사용하는 코드입니다. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("얼마나 많은 사본이 필요합니까?") s = InputBox("복사할 워크시트의 이름을 입력하십시오") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub 코드를 사용할 때 "구문 오류" 오류가 발생하면 이 텍스트가 빨간색 ActiveWorkbook.Sheets로 바뀝니다. (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) 및 is 텍스트가 노란색으로 바뀝니다. Sub Copier() 이 문제를 해결하려면 어떻게 해야 하나요?타일러 뎀시[/인용] 코드를 다시 확인하고 ActiveWorkbook에 공백이 없는지 확인하십시오. Sheets(s).Copy _ 또는 Sheets(Worksheets.Count)
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
[인용] 나는 이것을 처음 사용하고 동일한 시트의 사본을 만들려고 시도하고 있습니다. 이것은 내가 사용하는 코드입니다. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("얼마나 많은 사본이 필요합니까?") s = InputBox("복사할 워크시트의 이름을 입력하십시오") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub 코드를 사용할 때 "구문 오류" 오류가 발생하면 이 텍스트가 빨간색 ActiveWorkbook.Sheets로 바뀝니다. (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) 및 is 텍스트가 노란색으로 바뀝니다. Sub Copier() 이 문제를 해결하려면 어떻게 해야 하나요?타일러 뎀시사용하려는 정확한 코드는 다음과 같습니다. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("몇 개의 복사본이 필요합니까?") s = InputBox("Enter 복사하려는 워크시트의 이름") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
감사합니다, 마지막 하나가 제 목숨을 구했습니다 :)
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
작업 코드

서브 복사기()
문자열로 Dim s
Dim numtimes As Integer
Dim numCopies를 정수로
numCopies = InputBox("몇 장이 필요합니까?")
s = InputBox("복사할 워크시트의 이름을 입력하세요.")
numtimes = 1에서 numCopies로
ActiveWorkbook.Sheets(s).Copy After:=ActiveWorkbook.Sheets(Worksheets.Count)
다음
최종 하위

ActiveWorkbook.Sheets ......에서 전체 줄을 복사하는 것이 문제였습니다. 일부 공백

좋은 하루 되세요.
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호