Добавить пустые строки после каждой группы строк

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Добавить пустые строки после каждой группы строк (Формулы/Formulas)

Sortafreel

Дата: Пятница, 12.02.2016, 12:30 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

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

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

Excel 2013

День добрый.

Есть файл с промеченными группами строк:

Столбец 1 Столбец 2
Какое-то слово 1
Какое-то слово 1
Какое-то слово 1
Какое-то слово 2
Какое-то слово 2
Какое-то слово 2
Какое-то слово 2
Какое-то слово 3
Какое-то слово 3

В первом столбце - текст, во втором - собственно, номер группы. Нужно добавить по 3 пустых строки после каждой группы. Как это можно сделать максимально простым путем?

Ответить

Wasilich

Дата: Пятница, 12.02.2016, 13:02 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

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

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

2003

Строки можно вставлять только макросом, а это в ветке "Вопросы по VBA"
[vba]

Код

Sub www()
  Dim s&,  i&, x
  s = Range("A" & Rows.Count).End(xlUp).Row
  x = Cells(s, 2)
  For i = s To 1 Step -1
      If Cells(i, 2) <> x Then
        x = Cells(i, 2)
        Rows(i + 1 & ":" & i + 3).Insert Shift:=xlDown
      End If
  Next
End Sub

[/vba]

Сообщение отредактировал Wasilic - Пятница, 12.02.2016, 13:20

Ответить

Sortafreel

Дата: Пятница, 12.02.2016, 13:51 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

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

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

Excel 2013

Цитата Wasilic, 12.02.2016 в 13:02, в сообщении № 2

Строки можно вставлять только макросом, а это в ветке "Вопросы по VBA"

Понял, спасибо большое, разберусь

Ответить

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