현재 오프라인 상태입니다. 인터넷에 다시 연결하기를 기다리고 있습니다.

Mac 용 Excel에서 VBA 코드를 사용 하 여 시트를 이동 하거나 복사 하는 방법

이 문서는 Microsoft 기계 번역 소프트웨어를 이용하여 번역되었으며 Microsoft Community에 의한 Community Translation Framework(CTF) 기술 혹은 사람이 번역한 내용에 의하여 사후 편집될 수 있습니다. Microsoft는 Knowledge Base에 있는 모든 문서에 다양한 언어로 접근할 수 있도록 하기 위하여 기계 번역, 사람에 의한 번역 및 커뮤니티가 편집한 내용을 모두 제공합니다. 번역된 문서는 어휘, 구문 및/혹은 문법에 오류가 있을 수 있습니다. Microsoft는 번역 오류로 인한 부정확성, 오류 및/또는 손해와 이를 고객이 사용하는 데에 대하여 책임을 지지 않습니다.

이 문서의 영문 버전 보기:288402
요약
복사 또는 시트를 통합 문서 또는 통합 문서 간에 이동 하려면 Microsoft Visual Basic for Applications (VBA) 코드를 사용할 수 있습니다. 여러 시트 이동 / 복사 하려는 경우 또는 시트 여러 개 만들려는 경우 특히 유용 합니다.

이 문서는 이러한 작업을 수행 하는 VBA 코드 샘플을 제공 합니다.
추가 정보
Microsoft는 모든 보증, 그림에 대 한 묵시적인 보증. 이 포함 되지만 상품성 또는 특정 목적에의 적합성의 묵시적된 보증에 국한 되지는 않습니다. 이 문서는 작성 하 고 프로시저를 디버깅할 데 사용 되는 도구 및 여기서 설명 하는 프로그래밍 언어에 익숙한 가정 합니다. Microsoft 지원 엔지니어는 특정 프로시저의 기능을 설명할 수 있지만 추가 기능을 제공 하거나 특정 요구 사항에 맞도록 프로시저를 구성 하는 이러한 예제를 수정 하지 않습니다. 참고: 없이 Mac 서비스 릴리스 1에 대 한 Microsoft Office 2001 Macintosh 용 Microsoft Excel 2001 년에서 복사할 시트에서 별도 통합 문서에 코드를 배치 해야.

복사 중인 시트와 같은 통합 문서에 시트를 복사 하는 VBA 코드 경우 Macintosh 용 Excel 2001에 문제가 발생.

이 문제는 Mac.에 대 한 Microsoft Office 2001 서비스 릴리스 1 해결 이 문제를 Mac 용 Excel 2001에서에 대 한 자세한 내용은 Microsoft 기술 자료의 다음 문서 번호를 클릭 합니다.
286266 같은 통합 문서에 워크시트를 복사할 때 Excel이 응답 하지 않는다
:

워크시트 복사 예제 코드

현재 통합 문서의 특정 시트 복사

Sub Copier1()    'Replace "Sheet1" with the name of the sheet to be copied.    ActiveWorkbook.Sheets("Sheet1").Copy _       after:=ActiveWorkbook.Sheets("Sheet1")End Sub				

여러 번은 현재 통합 문서의 특정 시트 복사

Sub Copier2()    Dim x As Integer        x = InputBox("Enter number of times to copy Sheet1")    For numtimes = 1 To x        'Loop by using x as the index number to make x number copies.        'Replace "Sheet1" with the name of the sheet to be copied.        ActiveWorkbook.Sheets("Sheet1").Copy _           After:=ActiveWorkbook.Sheets("Sheet1")    NextEnd Sub				

ActiveSheet 여러 번 복사 합니다.

Sub Copier3()   Dim x As Integer      x = InputBox("Enter number of times to copy active sheet")   For numtimes = 1 To x      'Loop by using x as the index number to make x number copies.      ActiveWorkbook.ActiveSheet.Copy _         Before:=ActiveWorkbook.Sheets("Sheet1")         'Put copies in front of Sheet1.         'Replace "Sheet1" with sheet name that you want.   NextEnd Sub				

통합 문서의 모든 시트를 한 번 복사

Sub Copier4()   Dim x As Integer   For x = 1 To ActiveWorkbook.Sheets.Count      'Loop through each of the sheets in the workbook      'by using x as the sheet index number.      ActiveWorkbook.Sheets(x).Copy _         After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)         'Puts all copies after the last existing sheet.   NextEnd Sub				

워크시트 이동 예제 코드

활성 시트 통합 문서에서 새 위치로 이동

Sub Mover1()    ActiveSheet.Move _       After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)       'Moves active sheet to end of active workbook.End Sub				

다른 통합 문서에 활성 시트 이동

Sub Mover2()    ActiveSheet.Move Before:=Workbooks("Test.xls").Sheets(1)    'Moves active sheet to beginning of named workbook.    'Replace Test.xls with the full name of the target workbook you want.End Sub				

ActiveWorkbook 여러 시트를 다른 통합 문서로 이동

Sub Mover3()   Dim BkName As String   Dim NumSht As Integer   Dim BegSht As Integer   'Starts with second sheet - replace with index number of starting sheet.   BegSht = 2   'Moves two sheets - replace with number of sheets to move.   NumSht = 2   BkName = ActiveWorkbook.Name        For x = 1 To NumSht      'Moves second sheet in source to front of designated workbook.      Workbooks(BkName).Sheets(BegSht).Move _         Before:=Workbooks("Test.xls").Sheets(1)         'In each loop, the next sheet in line becomes indexed as number 2.      'Replace Test.xls with the full name of the target workbook you want.    NextEnd Sub				
참조

Microsoft Excel X Mac 및 이후 버전에 대 한

Copy 메서드를 Visual Basic 편집기에서에 대 한 자세한 내용은 클릭 검색 Microsoft Visual Basic 도움말도움말 메뉴에서, 형식 copy 메서드검색을 누른 보려면 "복사 방법을." 세 개의 항목이 나열 됩니다. 워크시트에 적용 되는 것을 선택 합니다.

Move 메서드를 Visual Basic 편집기에서에 대 한 자세한 내용은 클릭 검색 Microsoft Visual Basic 도움말도움말 메뉴에서, 형식 메서드를 이동 합니다.검색을 누른 보려면 "" 이동 방법입니다. 세 개의 항목이 나열 됩니다. 워크시트에 적용 되는 것을 선택 합니다.

Macintosh 용 Excel 2001

Copy 메서드를 Visual Basic 편집기에서에 대 한 자세한 내용은 Office 길잡이 클릭 하십시오에 대 한 입력 copy 메서드검색을 누른 보려면 "Copy 메서드 (한글 엑셀 VBA)."

Move 메서드를 Visual Basic 편집기에서에 대 한 자세한 내용은 Office 길잡이 클릭 하십시오에 대 한 입력 메서드를 이동 합니다.검색을 누른 보려면 "Move 메서드 (한글 엑셀 VBA)."

코드가 동일한 통합 문서에 포함 된 워크시트를 복사 하는 문제에 대 한 자세한 내용은 Microsoft 기술 자료의 다음 문서를 참조 하려면 아래 문서 번호를 클릭 합니다.
286266 XL2001: 같은 통합 문서의 워크시트를 복사 하려고 할 때 응답 하지 않는다를 Excel

Microsoft Excel 98 Macintosh Edition

Copy 메서드를 Visual Basic 편집기에서에 대 한 자세한 내용은 Office 길잡이 클릭 하십시오에 대 한 입력 copy 메서드검색을 누른 보려면 "Copy 메서드 (Excel 97)."

Move 메서드를 Visual Basic 편집기에서에 대 한 자세한 내용은 theOffice 길잡이 종류를 클릭 합니다. 메서드를 이동 합니다.검색을 누른 보려면 "Move 메서드 (Excel 97)."

XL2001KB MAC XL2001 XL98 Excel VBA 프로그래밍 자동화 Visual Basic 매크로 전송 XLX XL2004 코드 복사

경고: 이 문서는 자동으로 번역되었습니다.

속성

문서 ID: 288402 - 마지막 검토: 05/21/2016 08:27:00 - 수정: 6.0

Microsoft Excel 2004 for Mac, Microsoft Excel X for Mac, Microsoft Excel 2001 for Mac, Microsoft Excel 98 for Macintosh

  • dftsdahomeportal kbinfo kbmt KB288402 KbMtko
피드백
/html>cript> /html>tml>le="display: none; " src="https://c1.microsoft.com/c.gif?DI=4050&did=1&t=">var varClickTracking = 1; var varCustomerTracking = 1; var Route = "76500"; var Ctrl = ""; document.write("