< návrat zpět

MS Excel


Téma: Přeuspořádání dat ze sloupce do řádku rss

Zaslal/a 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: xlsx45160_data1.xlsx (133kB, staženo 12x)
Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

#045163
avatar
Tak bez makra.
Treba riadky skopírovať do konca.
Příloha: xlsx45163_kopia-45160_data1-1.xlsx (236kB, staženo 11x)
citovat
#045164
Stalker
Makrem
Příloha: zip45164_data1.zip (110kB, staženo 7x)
citovat
#045165
avatar
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
#045166
elninoslov
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 Sub
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse