Автоматически создавать листы с помощью макроса

Anonim

Вот как вы создаете книги так, как хотите

Хотите убедиться, что вы создали в своей таблице целую серию пустых листов и переименовали их все в соответствии с вашими пожеланиями?

Если делать это вручную, потребуется много времени. Переименование таблиц вручную занимает особенно много времени.

С макросом проще. Введите имена таблиц в область таблицы. На следующем рисунке показано, как это может выглядеть:

Затем вызовите следующий макрос для создания таблиц:

Sub FuegeBlaetterMithNamenEin ()
Тусклая область как строка
Тусклая ячейка как диапазон
Развернуть таблицу как рабочий лист
Площадь = "a1: a24"
С ActiveWorkbook
Для каждой ячейки в ActiveSheet.Range .Cells
Установить table = .Sheets.Add (После: =. Sheets (Sheets.Count))
Table.Name = Cell.Text
Следующая ячейка
Конец с
Конец подписки

Положите с переменной площадь определяет, из какой области вашей таблицы взяты имена рабочих листов.

На следующем рисунке показана рабочая книга, в которой были созданы имена таблиц за 2010 и 2011 годы:

Совет: Если вы хотите узнать, как вводить и запускать макросы в Excel, вы найдете здесь краткое описание: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html