Если у вас очень большое количество листов в книге, вы можете получить имена этих листов и поместить их на отдельный лист. Например, вы можете захотеть, чтобы они были в одном месте, чтобы вы могли использовать их в оглавлении или каким-либо другим способом. Следующий макрос, GetSheets, быстро извлекает имена листов в текущей книге и помещает их в первый столбец текущей книги, начиная с ячейки A1.

Sub GetSheets()

Dim J As Integer     Dim NumSheets As Integer

NumSheets = Sheets.Count     For J = 1 To NumSheets         Cells(J, 1) = Sheets(J).Name     Next J End Sub

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (2274) относится к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и новее) здесь:

link: / excelribbon-Retrieving_Worksheet_Names [Получение имен рабочих листов].