Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Добавить пустые строки между разными кодами
 
доброго всем времени!
есть таблица и в первом столбике идет код вида - цифры точка цифры. необходимо добавить две пустые строки между строками в которых у кода значения до точки отличаются.
01.01
01.02
01.03
02.01
02.02
03.01
03.02
между строками 01.03 и 02.01 и между 02.02 и 03.01 добавить по две пустые строки
подскажите пожалуйста решение
 
Где файл-пример?
По столбцу "А":
Код
Sub test()
Dim iR&, aa As Range, sh As Worksheet, txt$, a&
Set sh = ActiveSheet
iR = sh.[a1].SpecialCells(xlLastCell).Row
txt = sh.[a1].SpecialCells(xlLastCell).Value
For a = iR To 2 Step -1
  Set aa = sh.Columns(1).Rows(iR)
  If Len(aa) > 0 Then
    If Len(txt) = 0 Then txt = aa
    If Left(aa, 2) <> Left(txt, 2) Then
      txt = aa: sh.Range("A" & iR + 1).EntireRow.Resize(2).Insert
    End If
  End If
  iR = iR - 1
  If iR = 0 Then Exit For
Next
End Sub
Изменено: Anchoret - 17 Мар 2018 23:50:14
Страницы: 1
Читают тему (гостей: 1)