Vba를 사용하여 excel에 새 시트를 추가하는 방법

VBA에서 다음 방법을 사용하여 Excel 통합 문서에 새 시트를 추가할 수 있습니다.

방법 1: 새 시트 추가

 Sub AddSheetToWorkbook()
Sheets.Add
End Sub

이 매크로는 통합 문서에서 나타내는 시트 번호를 설명하는 자동 생성된 이름을 사용하여 통합 문서에 새 시트를 추가합니다.

예를 들어 통합 문서에 세 개의 시트가 있고 이 매크로를 실행하면 Sheet4 라는 이름의 새 시트가 만들어집니다.

참고 : 기본적으로 VBA는 현재 활성 시트 바로 앞에 새 시트를 추가합니다.

방법 2: 여러 개의 새 시트 추가

 Sub AddSheetToWorkbook()
Sheets.Add Count:=3
End Sub

이 매크로는 통합 문서에 세 개의 새 시트를 추가합니다.

방법 3: 이름이 있는 새 시트 추가

 Sub AddSheetToWorkbook()
Sheets.Add.Name = " MyNewSheet "
End Sub

이 매크로는 이름이 MyNewSheet 인 통합 문서에 새 시트를 추가합니다.

방법 4: 특정 시트 앞에 이름이 있는 새 시트 추가

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(" Teams ")).Name = " MyNewSheet "
End Sub

이 매크로는 Teams 라는 기존 시트 바로 앞에 MyNewSheet 라는 이름의 새 시트를 통합 문서에 추가합니다.

방법 5: 특정 시트 뒤에 이름이 붙은 새 시트 추가

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(" Teams ")).Name = " MyNewSheet "
End Sub

이 매크로는 Teams 라는 기존 시트 바로 뒤에 MyNewSheet라는 이름을 사용하여 통합 문서에 새 시트를 추가합니다.

방법 6: 통합 문서 끝에 이름이 있는 새 시트 추가

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(Sheets.Count)).Name = " MyNewSheet "
End Sub

이 매크로는 통합 문서 맨 끝에 MyNewSheet라는 이름으로 통합 문서에 새 시트를 추가합니다.

방법 7: 통합 문서 시작 부분에 이름이 있는 새 시트 추가

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(1)).Name = " MyNewSheet "
End Sub

이 매크로는 통합 문서 맨 처음에 MyNewSheet라는 이름으로 통합 문서에 새 시트를 추가합니다.

다음 예에서는 세 개의 기존 시트가 포함된 다음 Excel 통합 문서에서 실제로 각 방법을 사용하는 방법을 보여줍니다.

예 1: 새 시트 추가

다음 매크로를 만들어 자동으로 생성된 이름으로 통합 문서에 새 시트를 추가할 수 있습니다.

 Sub AddSheetToWorkbook()
Sheets.Add
End Sub

이 매크로를 실행하면 매크로를 실행할 때 선택한 Teams 시트 바로 앞에 Sheet4 라는 이름의 새 시트가 통합 문서에 추가됩니다.

예 2: 여러 개의 새 시트 추가

다음 매크로를 만들어 자동으로 생성된 이름으로 통합 문서에 세 개의 새 시트를 추가할 수 있습니다.

 Sub AddSheetToWorkbook()
Sheets.Add Count:=3
End Sub

이 매크로를 실행하면 매크로를 실행할 때 선택한 Teams 시트 바로 앞에 통합 문서에 세 개의 새 시트가 추가됩니다.

예 3: 이름이 있는 새 시트 추가

다음 매크로를 만들어 특정 이름의 통합 문서에 새 시트를 추가할 수 있습니다.

 Sub AddSheetToWorkbook()
Sheets.Add.Name = " MyNewSheet "
End Sub

이 매크로를 실행하면 MyNewSheet 라는 새 시트가 통합 문서에서 매크로를 실행할 때 선택한 Teams 시트 바로 앞에 추가됩니다.

예 4: 특정 시트 앞에 이름이 있는 새 시트 추가

다음 매크로를 만들어 특정 기존 시트 바로 앞에 통합 문서에 새 시트를 추가할 수 있습니다.

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(" Teams ")).Name = " MyNewSheet " 
End Sub

이 매크로를 실행하면 MyNewSheet 라는 새 시트가 통합 문서의 Teams 시트 바로 앞에 추가됩니다.

예 5: 특정 시트 뒤에 이름이 붙은 새 시트 추가

다음 매크로를 생성하여 특정 기존 시트 바로 뒤에 통합 문서에 새 시트를 추가할 수 있습니다.

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(" Teams ")).Name = " MyNewSheet " 
End Sub

이 매크로를 실행하면 MyNewSheet 라는 새 시트가 통합 문서의 Teams 시트 바로 뒤에 추가됩니다.

예 6: 통합 문서 끝에 이름이 있는 새 시트 추가

통합 문서 맨 끝에 새 시트를 추가하려면 다음 매크로를 생성할 수 있습니다.

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(Sheets.Count)).Name = " MyNewSheet "
End Sub

이 매크로를 실행하면 MyNewSheet 라는 새 시트가 통합 문서 맨 끝에 추가됩니다.

예 7: 통합 문서 시작 부분에 이름이 있는 새 시트 추가

통합 문서의 맨 처음에 새 시트를 추가하려면 다음 매크로를 생성할 수 있습니다.

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(1)).Name = " MyNewSheet "
End Sub

이 매크로를 실행하면 통합 문서 맨 처음에 MyNewSheet 라는 새 시트가 추가됩니다.

참고 : 여기에서 Sheets.Add 메서드에 대한 전체 설명서를 찾을 수 있습니다.

추가 리소스

다음 자습서에서는 VBA에서 다른 일반적인 작업을 수행하는 방법을 설명합니다.

VBA:마지막으로 사용한 줄을 찾는 방법
VBA:마지막으로 사용한 열을 찾는 방법
VBA: 통합 문서의 시트 수를 계산하는 방법