доброго всем времени! есть таблица и в первом столбике идет код вида - цифры точка цифры. необходимо добавить две пустые строки между строками в которых у кода значения до точки отличаются. 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
В прилагаемом файле макроса нет, я показываю Вам лист, для которого сделан макрос.
Sub Вставить_пустые_строки()
Dim arr(), lr AsLong, i AsLong
Application.ScreenUpdating = False
lr = Cells(Rows.Count, "A").End(xlUp).row
arr() = Range("A1:A" & lr).Value For i = 2ToUBound(arr)
arr(i, 1) = Split(arr(i, 1), ".", 2)(0) Next i For i = UBound(arr) To3Step -1 If arr(i, 1) <> arr(i - 1, 1) Then
Rows(i).Insert EndIf Next i
Application.ScreenUpdating = True
MsgBox "Готово!", vbInformation
EndSub
В прилагаемом файле макроса нет, я показываю Вам лист, для которого сделан макрос.
Sub Вставить_пустые_строки()
Dim arr(), lr AsLong, i AsLong
Application.ScreenUpdating = False
lr = Cells(Rows.Count, "A").End(xlUp).row
arr() = Range("A1:A" & lr).Value For i = 2ToUBound(arr)
arr(i, 1) = Split(arr(i, 1), ".", 2)(0) Next i For i = UBound(arr) To3Step -1 If arr(i, 1) <> arr(i - 1, 1) Then
Rows(i).Insert EndIf Next i
Application.ScreenUpdating = True
MsgBox "Готово!", vbInformation
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
