Sanjence evo da te to ne izluđuje. Nije jednostavno a nije ni komplicirano.
Zapravo tvoj primjer je atipičan i njegovo rješenje nemožeš nači na Internetu.
Iskustvom češ steči rutinu i naučiti kako iz excela izvuči najbolje za pojedini problem.
Eto mislim da će ti pasati. Ajde sada jedno pitanje Gdje je najbolji roštilj u Leskovcu.
Ajde nabavi dobar recept, ja ću sve potrebne namiriice i sve ćemo izmješati jednim dobrim makroom.
Makro če sve raditi umjesto nas. Mi ćemo samo sjediti i gledati.
Je li ono leskovačka mučkalica.
Pozdrav
Luka iz Rima
Code:
Sub Homage()
' jako je važno da su podaci i formatiranja postavljeni kao u primjeru
'Croexcel za Lukarim-a posvečeno i Iveku33, puno pozdrava.
Dim y As Long
Dim i As Long
Dim c As Range
Sheets("c").Select
Range("A2:g10000").Delete
Application.Wait Now + TimeSerial(0, 0, 1) 'ovo se može izbrisati da bi makro išao glatko
Sheets("I").UsedRange.Copy Range("a2")
i = Range("a65536").End(xlUp).Row
For y = i To 1 Step -6
Range(Cells(y - 4, 1), Cells(y + 1, 1)) = Cells(y, 1)
Next
Range("A2").CurrentRegion.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Application.Wait Now + TimeSerial(0, 0, 1)
For Each c In Range("a2:a" & i + 1)
If c.Interior.ColorIndex = xlNone Then
c = ""
End If
Next
End Sub
U prilogu ti je fajl