доброго всем времени! есть таблица и в первом столбике идет код вида - цифры точка цифры. необходимо добавить две пустые строки между строками в которых у кода значения до точки отличаются. 01.01 01.02 01.03 02.01 02.02 03.01 03.02 между строками 01.03 и 02.01 и между 02.02 и 03.01 добавить по две пустые строки подскажите пожалуйста решение
доброго всем времени! есть таблица и в первом столбике идет код вида - цифры точка цифры. необходимо добавить две пустые строки между строками в которых у кода значения до точки отличаются. 01.01 01.02 01.03 02.01 02.02 03.01 03.02 между строками 01.03 и 02.01 и между 02.02 и 03.01 добавить по две пустые строки подскажите пожалуйста решениеIgor43
В прилагаемом файле макроса нет, я показываю Вам лист, для которого сделан макрос.
[vba]
Код
Sub Вставить_пустые_строки()
Dim arr(), lr As Long, i As Long
Application.ScreenUpdating = False lr = Cells(Rows.Count, "A").End(xlUp).row arr() = Range("A1:A" & lr).Value For i = 2 To UBound(arr) arr(i, 1) = Split(arr(i, 1), ".", 2)(0) Next i For i = UBound(arr) To 3 Step -1 If arr(i, 1) <> arr(i - 1, 1) Then Rows(i).Insert End If Next i Application.ScreenUpdating = True MsgBox "Готово!", vbInformation
End Sub
[/vba]
В прилагаемом файле макроса нет, я показываю Вам лист, для которого сделан макрос.
[vba]
Код
Sub Вставить_пустые_строки()
Dim arr(), lr As Long, i As Long
Application.ScreenUpdating = False lr = Cells(Rows.Count, "A").End(xlUp).row arr() = Range("A1:A" & lr).Value For i = 2 To UBound(arr) arr(i, 1) = Split(arr(i, 1), ".", 2)(0) Next i For i = UBound(arr) To 3 Step -1 If arr(i, 1) <> arr(i - 1, 1) Then Rows(i).Insert End If Next i Application.ScreenUpdating = True MsgBox "Готово!", vbInformation
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
