Иногда вы можете получить рабочий лист от кого-то другого, и вам нужно немного места для работы с предоставленной информацией. Например, вам может быть полезно добавить несколько пустых строк между каждой из исходных строк в таблице данных. Хотя это можно сделать довольно легко с помощью меню «Вставка», это может быстро стать утомительным, особенно если у вас есть большая таблица, которую вы хотите разложить.

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

Sub SpreadOut()

Dim iBlanks As Integer     Dim J As Integer

iBlanks = InputBox("How many blank rows?", "Insert Rows")

ActiveCell.Offset(1, 0).Select     While ActiveCell.Value > "" And iBlanks > 0         For J = 1 To iBlanks             Selection.EntireRow.Insert         Next J         ActiveCell.Offset(iBlanks + 1, 0).Select     Wend End Sub

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

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

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

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

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

link: / excelribbon-Spreading_Out_a_Table [Расширение таблицы].