Как добавить новые листы в excel с помощью vba

Вы можете использовать следующие методы в VBA для добавления новых листов в книгу Excel:

Способ 1. Добавьте новый лист.

 Sub AddSheetToWorkbook()
Sheets.Add
End Sub

Этот макрос добавит в книгу новый лист с автоматически созданным именем, описывающим номер листа, который он представляет в книге.

Например, если в книге три листа и вы запустите этот макрос, будет создан новый лист с именем Лист4 .

Примечание . По умолчанию 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

Этот макрос добавит в книгу новый лист с именем 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 в самом начале книги.

В следующих примерах показано, как использовать каждый метод на практике со следующей книгой Excel с тремя существующими листами:

Пример 1. Добавьте новый лист.

Мы можем создать следующий макрос, чтобы добавить в книгу новый лист с автоматически сгенерированным именем:

 Sub AddSheetToWorkbook()
Sheets.Add
End Sub

Когда мы запускаем этот макрос, в книгу добавляется новый лист с именем Sheet4 непосредственно перед листом Teams , который мы выбрали при запуске макроса:

Пример 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: как посчитать количество листов в книге