[xls] - preorganizovanie riadkov do stĺpcov

[Camillek]

Ja bych na to pustil VisualBasic BOHUZEL nemas stejnej pocet radku v kazde sekci. Mozna by pomohlo pouzit while a poskocit v J na dalsi radku kdyz najdes URL na zacatku bunky. Ale musis mit vsude URL

Sub Makro1()

Dim I As Long
Dim J As Long
Dim KonecI As Long

KonecI = 200 'Application.Sheets("povodna").Range("A1").CurrentRegion.Rows.Count
Application.ScreenUpdating = False

J = 2
For I = 1 To KonecI Step 7
  Application.Sheets("upravena").Cells(J, 1).Value = Application.Sheets("povodna").Cells(I, 2)
  Application.Sheets("upravena").Cells(J, 3).Value = Application.Sheets("povodna").Cells(I + 1, 2)
  ' a tak dale...
  J = J + 1
Next

End Sub