Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление строк перед заполненной ячейкой (Макросы/Sub)
Добавление строк перед заполненной ячейкой
AVI Дата: Пятница, 04.03.2022, 10:20 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 523
Репутация: 17 ±
Замечаний: 0% ±

Excel 2016
Добрый день!
Есть документ на многие тысячи строк. Необходимо перед каждой заполненной ячейкой в столбце а добавить три строки.
К сообщению приложен файл: __.xlsx(9.3 Kb)
 
Ответить
СообщениеДобрый день!
Есть документ на многие тысячи строк. Необходимо перед каждой заполненной ячейкой в столбце а добавить три строки.

Автор - AVI
Дата добавления - 04.03.2022 в 10:20
китин Дата: Пятница, 04.03.2022, 11:14 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 6895
Репутация: 1056 ±
Замечаний: 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
 
Ответить
Сообщениеможет так надо?
[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]

Автор - китин
Дата добавления - 04.03.2022 в 11:14
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление строк перед заполненной ячейкой (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!