워크시트 추가하기

1. Sheets개체를 이용하여 시트를 추가합니다.

Sub AddSheet()

    '변수 선언
    Dim ws As Worksheet

    '새 시트 생성
    Set ws = Sheets.Add

    '시트 이름 설정
    ws.Name = "New Sheet"

End Sub

2. Worksheets 개체를 이용하여 시트를 추가합니다.

Sub AddSheet()

    '변수 선언
    Dim ws As Worksheet

    '새 시트 생성
    Set ws = Worksheets.Add

    '시트 이름 설정
    ws.Name = "New Sheet"

End Sub

3.지정한 시트 앞에 시트를 추가합니다.

Sub AddSheetBefore()

    '변수 선언
    Dim ws As Worksheet

    '새 시트 생성
    Set ws = Worksheets.Add(Before:=Worksheets("Sheet3"))

    '시트 이름 설정
    ws.Name = "New Sheet"

End Sub

4.지정한 시트 뒤에 시트를 추가합니다.

Sub AddSheetAfter()

    '변수 선언
    Dim ws As Worksheet

    '새 시트 생성
    Set ws = Worksheets.Add(Before:=Worksheets("Sheet1"))

    '시트 이름 설정
    ws.Name = "New Sheet"

End Sub

5.Count 매개변수를 이용하여 "Sheet1" 앞에 3개의 시트를 추가합니다.

Sub AddSheetBefore()

    '변수 선언
    Dim ws As Worksheet

    '새 시트 생성
    Set ws = Worksheets.Add(Before:=Worksheets("Sheet1"), Count:=3)
    
End Sub

6.Count 매개변수를 이용하여 "Sheet3" 뒤에 3개의 시트를 추가합니다.

Sub AddSheetAfter()

    '변수 선언
    Dim ws As Worksheet

    '새 시트 생성
    Set ws = Worksheets.Add(After:=Worksheets("Sheet3"), Count:=3)
    
End Sub

7.개체 변수를 선언하고 새로운 시트를 만듭니다.

Sub CreateAndAddSheet()

    '시트 개체를 위한 변수를 선언합니다.
    Dim ws As Worksheet

    '새로운 시트를 만듭니다.
    Set ws = Sheets.Add

    '시트의 이름을 설정합니다.
    ws.Name = "새 시트"

    '시트의 A1 셀의 값을 설정합니다.
    ws.Cells(1, 1) = "이것은 새 시트입니다."

End Sub

8 맨 뒤에 새로운 시트를 추가합니다.

Sub AddSheetToEnd()

    Dim newSheet As Worksheet

    ' 새로운 시트 생성 및 맨 뒤에 추가
    Set newSheet = ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count))

    ' 새로운 시트의 이름 설정
    newSheet.Name = "New Sheet"

End Sub

9 시트를 맨 뒤에 추가하고 특정 시트 앞으로 이동합니다.

Sub CreateAndMoveSheet()

    Dim newSheet As Worksheet
    Dim existingSheet As Worksheet
    
    ' 새로운 시트 생성
    Set newSheet = ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count))
    newSheet.Name = "New Sheet"
    
    ' 이동할 시트 선택
    Set existingSheet = ThisWorkbook.Sheets("Sheet2")
    
    ' 새로운 시트를 선택한 시트 앞으로 이동
    newSheet.Move Before:=existingSheet
    
End Sub

10. 시트를 맨 뒤에 추가하고 특정 시트 뒤로 이동합니다.

Sub CreateAndMoveSheet()

    Dim newSheet As Worksheet
    Dim existingSheet As Worksheet
    
    ' 새로운 시트 생성
    Set newSheet = ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count))
    newSheet.Name = "New Sheet"
    
    ' 이동할 시트 선택
    Set existingSheet = ThisWorkbook.Sheets("Sheet2")
    
    ' 새로운 시트를 선택한 시트 뒤로 이동
    newSheet.Move After:=existingSheet
    
End Sub