Добавление новых строк автоматически

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

Добавление новых строк автоматически (Формулы/Formulas)

misskuzi

Дата: Вторник, 14.02.2017, 18:45 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 12

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

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

Excel 2010

Добрый день, подскажите какую формулу применить к следующей задачи

Есть лист1 в нем повторяющиеся цифры в столбик

Как сделать так, чтоб после окончания каждого набора цифр вставилось еще пару строк?
чтоб выглядело как на Листе2

в оригинальном файле конечно тысячи таких нумерация, и нужно добавить новые строки в конце повторяющихся цифр

Спасибо за помощь.

К сообщению приложен файл: 1824281.xls (32.5 Kb)

Ответить

Wasilich

Дата: Вторник, 14.02.2017, 20:18 | Сообщение № 2

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

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

Сообщений: 1232

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

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

2003

Цитата misskuzi, 14.02.2017 в 18:45, в сообщении № 1 ()

какую формулу применить

Сомневаюсь в возможности формулы вставлять строки, а вот макросом точно можно.

[vba]

Код

Sub вставка()
   Dim ps&, i&, x
   ps = Range("A" & Rows.Count).End(xlUp).Row
   x = Cells(ps, 1)
   For i = ps To 2 Step -1
     If Cells(i, 1) <> x Then
        Range(Cells(i + 1, 1), Cells(i + 2, 1)).Insert Shift:=xlDown
        x = Cells(i, 1)
     End If
   Next
End Sub

[/vba]

К сообщению приложен файл: misskuzi.xls (40.0 Kb)

Сообщение отредактировал Wasilich - Вторник, 14.02.2017, 20:20

Ответить

misskuzi

Дата: Среда, 15.02.2017, 05:14 | Сообщение № 3

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

Ранг: Новичок

Сообщений: 12

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

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

Excel 2010

Спасибо! Шикарно!!!

Ответить

Добавление новых строк автоматически (Формулы/Formulas)

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