로그인

Select the product you need help with

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

기술 자료: 288402 - 이 문서가 적용되는 제품 보기.

기계 번역 고지 사항 보기

기계 번역된 문서와 영문 원본 문서 나란히 보기

모두 확대 | 모두 축소

요약

Visual Basic VBA 코드에 대한 시트를 통합 문서 또는 통합 문서 간에 이동하거나 복사할 수 있습니다. 여러 시트를 이동하거나 복사할 경우 또는 시트 여러 개 만들려는 경우 특히 유용합니다.

이 문서에서는 이러한 작업을 수행하는 VBA 코드 샘플을 제공합니다.

위로 가기 | 피드백 보내기

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

복사 중인 시트에 동일한 통합 문서에 시트를 복사하는 VBA 코드를 상태일 때 Excel 2001 Macintosh용 데 문제가 있습니다.

Mac.에 대한 Microsoft Office 2001 서비스 릴리스 1 이 문제가 해결된 자세한 내용은 Microsoft 기술 자료 문서를 보려면 다음 문서 번호를, Mac용 Excel 2001이 이 문제를 클릭합니다.

286266

(http://support.microsoft.com/kb/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")
    Next
End 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.
   Next
End 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.
   Next
End 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.
    Next
End Sub

위로 가기 | 피드백 보내기

참조

Mac 및 이후 버전의 Microsoft Excel X

Visual Basic 편집기에서 복사 방법에 대한 자세한 내용은 도움말 메뉴에서 Microsoft Visual Basic 도움말 검색을, 복사 방법 을 검색 을 입력한 다음 "복사 방법." 보려면 클릭하십시오. 세 개의 항목이 나열됩니다. 워크시트가 적용되는 하나를 선택하십시오.

Move 메서드 Visual Basic 편집기에서 [NULL]에 대한 자세한 내용은 도움말 메뉴에서 Microsoft Visual Basic 도움말 검색을 누릅니다. 그리고 메서드는 이동검색 을 입력한 다음 "이동 방법" 보려면 을 클릭하십시오 세 개의 항목이 나열됩니다. 워크시트가 적용되는 하나를 선택하십시오.

Macintosh용 Excel 2001

Visual Basic 편집기에서 복사 방법에 대한 자세한 내용은 Office 길잡이를, 복사 방법 을 입력합니다. 그리고 검색 을 누른 다음 보기 복사 방법 "(MS Excel VBA).

Move 메서드 Visual Basic 편집기에서 [NULL]에 대한 자세한 내용은 Office 길잡이를 클릭합니다. 그리고 메서드는 이동, 검색 을 입력하고 이동 방법 "(MS Excel VBA). 보려면 클릭하십시오

코드가 동일한 통합 문서에 포함된 워크시트를 복사하는 문제에 대해 Microsoft 기술 자료의 문서를 참조하십시오.

286266

(http://support.microsoft.com/kb/286266/EN-US/ )

XL2001: 같은 통합 문서의 워크시트 복사 지정하려고 하면 Excel이 응답하지 않는다

Microsoft Excel 98 Macintosh 버전

Visual Basic 편집기에서 복사 방법에 대한 자세한 내용은 Office 길잡이를, 형식 복사 방법 을 을 검색 을 누른 다음 보기 복사 방법 "(Excel 97).

Visual Basic 편집기에서 Move 메서드에 대한 자세한 내용은 Office 길잡이를 메서드는 이동 입력합니다, 검색 을 차례로 클릭한 보려면 클릭하십시오 "이동 방법 (Excel 97)."

위로 가기 | 피드백 보내기

속성

기술 자료: 288402 - 마지막 검토: 2007년 1월 31일 수요일 - 수정: 5.4

본 문서의 정보는 다음의 제품에 적용됩니다.

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

kbmt kbinfo KB288402 KbMtko

기계 번역된 문서

중요: 본 문서는 전문 번역가가 번역한 것이 아니라 Microsoft 기계 번역 소프트웨어로 번역한 것입니다. Microsoft는 번역가가 번역한 문서 및 기계 번역된 문서를 모두 제공하므로 Microsoft 기술 자료에 있는 모든 문서를 한글로 접할 수 있습니다. 그러나 기계 번역 문서가 항상 완벽한 것은 아닙니다. 따라서 기계 번역 문서에는 마치 외국인이 한국어로 말할 때 실수를 하는 것처럼 어휘, 구문 또는 문법에 오류가 있을 수 있습니다. Microsoft는 내용상의 오역 또는 Microsoft 고객이 이러한 오역을 사용함으로써 발생하는 부 정확성, 오류 또는 손해에 대해 책임을 지지 않습니다. Microsoft는 이러한 문제를 해결하기 위해 기계 번역 소프트웨어를 자주 업데이트하고 있습니다.

이 문서의 영문 버전 보기.

위로 가기 | 피드백 보내기