Як додати нові аркуші в excel за допомогою vba

У 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

Цей макрос додасть новий аркуш до книги з іменем 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: Як підрахувати кількість аркушів у робочій книзі