Страницы: 1
RSS
VBA вставка строки между уникальными значениями
 
Добрый день! Написал код в VBA на добавление строки между уникальными значениями (в строках, столбец один и тот же), но не уверен что правильно написал процедуру. Может быть есть возможность как-то иначе описать процедуру (проще)?

Спасибо!
 
Нашел ответ на свой вопрос (для столбца 1, а не 2), оставлю как решение (дополнил макрос немного на ограниченное исполнение) :
Код
Sub AddBlankRows()
'
Dim iRow As Integer, iCol As Integer
Dim oRng As Range

Set oRng = Range("a1")

If Cells(2, 1) = "" Then
End
End If

iRow = oRng.Row
iCol = oRng.Column

Do
'
If Cells(iRow + 1, iCol) <> Cells(iRow, iCol) Then
    Cells(iRow + 1, iCol).EntireRow.Insert shift:=xlDown
    iRow = iRow + 2
Else
    iRow = iRow + 1
End If
'
Loop While Not Cells(iRow, iCol).Text = ""
'

End Sub
 
Код
Public Sub www()
    Dim i&
    For i = Cells(Rows.Count, 2).End(xlUp).Row + 1 To 3 Step -1
        If Len(Cells(i, 2)) And Cells(i, 2).Value <> Cells(i + 1, 2).Value And Len(Cells(i + 1, 2)) Then _
           Cells(i + 1, 2).EntireRow.Insert xlDown, 0
    Next
End Sub
Я сам - дурнее всякого примера! ...
Страницы: 1
Наверх