[xls] - preorganizovanie riadkov do stĺpcov

Ahojte. Potrebujeme vo firme prerobiť jednu databázu kontaktov, tak aby údaje v nej boli organizované do stĺpcov. Háčik je v tom, že údaje sú kopírované z internetu a sú vlastne organizované tak, ako boli na webe, či kde a je potrebne ich nahodiť do nového listu preorganizované. Keby sa dalo aspoň kopírovat po 4-6 riadkoch tak, aby som to mohol pastnúť tie riadky do stĺpcov. Potom to rozoberať v jednej tabuľke je lahšie než sa kvôli jednému kontaktu prepínať 10x. Neviete, že ako by sa to dalo nejak elegantne vyriešiť, napr. prevodom DB do iného formátu? Je to docela súrne, lebo inač to tu musí upravovať jedna malá armáda, a to celý deň. Vďaka.

Citace:

---

Původně odeslal e1

Ahojte. Potrebujeme vo firme prerobiť jednu databázu kontaktov, tak aby údaje v nej boli organizované do stĺpcov. Háčik je v tom, že údaje sú kopírované z internetu a sú vlastne organizované tak, ako boli na webe, či kde a je potrebne ich nahodiť do nového listu preorganizované. Keby sa dalo aspoň kopírovat po 4-6 riadkoch tak, aby som to mohol pastnúť tie riadky do stĺpcov. Potom to rozoberať v jednej tabuľke je lahšie než sa kvôli jednému kontaktu prepínať 10x. Neviete, že ako by sa to dalo nejak elegantne vyriešiť, napr. prevodom DB do iného formátu? Je to docela súrne, lebo inač to tu musí upravovať jedna malá armáda, a to celý deň. Vďaka.

---

Jestli jsem to pochopil správně, tak potřebuješ aby z řádků byly sloupce a ze sloupců řádky. Tomuto se říká v Transponovat a dokážeš to pomocí CTRL-C a pak Úpravy - Vložit jinak... - a zaškrtneš dole transponovat - OK.

a keby si si ten subor otvoril tak by si videl ze si to nepochopil

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 :(

Kód:

---

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

---