Tak bez makra.
Treba riadky skopírovať do konca.
Treba riadky skopírovať do konca.
Příloha: 
45163_kopia-45160_data1-1.xlsx (236kB, staženo 31x)
citovat45163_kopia-45160_data1-1.xlsx (236kB, staženo 31x)
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Přeuspořádání dat ze sloupce do řádku
MS Excel
Téma: Přeuspořádání dat ze sloupce do řádku 
Zaslal/a Paul123 2.12.2019 16:28
Dobrý den,
prosím o radu jak přeuspořádat data.
Data mám v jednom sloupečku, v každé buňce postupně číslo des. tečka číslo číslo číslo středník a tyto bloky pořád dokola (cca 18000 řádků) a potřeboval bych je "narovnat" do řádku aby v každé buňce nového řádku byl tento blok sloučený do jednoho čísla atd.
Věřím že to jde nějak jednoduše udělat přes makro nebo VBA ale nejsem v tom tak kovaný..
Díky za každý nápad
V přiloze jsou data i naznačené řešení
Příloha: 45160_data1.xlsx (133kB, staženo 29x)
45160_data1.xlsx (133kB, staženo 29x)Makrem
Příloha: 
45164_data1.zip (110kB, staženo 26x)
citovat45164_data1.zip (110kB, staženo 26x)Díky moc, funguje oboje!
Vzorce jsou pěkné, ale makro se mně líbí trochu víc.
Ještě jednou dík oběma.citovat
Vzorce jsou pěkné, ale makro se mně líbí trochu víc.
Ještě jednou dík oběma.citovat
Ten prevod na hodnoty by sa dal urobiť aj inak (Transpose funguje správne iba do 32767 riadkov):
Sub pokus()
Dim D() As String, V(), r As Long, rv As Long, Riadkov As Long
With List1
Riadkov = .Cells(Rows.Count, 1).End(xlUp).Row - 1
D = Split(Replace(Join(Application.Transpose(.Cells(2, 1).Resize(Riadkov).Value)), " ", ""), ";")
ReDim V(1 To Riadkov, 1 To 2)
On Error Resume Next
For r = 0 To UBound(D) Step 2
rv = rv + 1
V(rv, 1) = Val(D(r)): V(rv, 2) = Val(D(r + 1))
Next r
.Cells(2, 4).Resize(Riadkov, 2).Value = V
End With
End Subcitovat
Sub pokus()
Dim D() As String, V(), r As Long, rv As Long, Riadkov As Long
With List1
Riadkov = .Cells(Rows.Count, 1).End(xlUp).Row - 1
D = Split(Replace(Join(Application.Transpose(.Cells(2, 1).Resize(Riadkov).Value)), " ", ""), ";")
ReDim V(1 To Riadkov, 1 To 2)
On Error Resume Next
For r = 0 To UBound(D) Step 2
rv = rv + 1
V(rv, 1) = Val(D(r)): V(rv, 2) = Val(D(r + 1))
Next r
.Cells(2, 4).Resize(Riadkov, 2).Value = V
End With
End Subcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články