05.05.2014 | 16:52
Ma znaš, dao si mi za misliti s onim "nije ni komplicirano".
Naravno da nisam znao nakucati, ali sam potražio po netu i eto:
Sub InsertRows()
Dim r As Long, mcol As String, i As Long
' find last used cell in Column A
r = Cells(Rows.Count, "A").End(xlUp).Row
' get value of last used cell in column A
mcol = Cells(r, 1).Value
' insert rows by looping from bottom
For i = r To 2 Step -1
If Cells(i, 1).Value <> mcol Then
mcol = Cells(i, 1).Value
Rows(i + 1).Insert
End If
Next i
End Sub
U stvari mi je ovo trebalo. Imam popis vrtića u jednom stupcu (a kako su grupirani i ponavljaju se, a opet nisu isto puta ponovljeni) i treba između njih staviti razmake.
Imam još nešto za "nakuckati", ali budem sam potražio jer jedino tako mogu nešto naučiti.
Hvala za poticaj.