Добавление строк перед заполненной ячейкой

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Добавление строк перед заполненной ячейкой - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Добавление строк перед заполненной ячейкой (Макросы/Sub)

Добавление строк перед заполненной ячейкой

AVI

Дата: Пятница, 04.03.2022, 10:20 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 523

Репутация: 17 ±

Замечаний: 0% ±

Excel 2016

Добрый день!
Есть документ на многие тысячи строк. Необходимо перед каждой заполненной ячейкой в столбце а добавить три строки.

К сообщению приложен файл: __.xlsx (9.3 Kb)

Ответить

китин

Дата: Пятница, 04.03.2022, 11:14 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

может так надо?
[vba]

Код

Sub stroki()
Dim LastRow As Long, ii_&
   LastRow = Cells(Rows.Count, 1).End(xlUp).Row
     For ii_ = LastRow To 3 Step -1
       If Cells(ii_, 1) <> "" Then
          Rows(ii_ & ":" & ii_ + 2).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

       End If
     Next ii_
End Sub

[/vba]

К сообщению приложен файл: AVI.xlsm (17.5 Kb)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Добавление строк перед заполненной ячейкой (Макросы/Sub)

Страница 1 из 1
1