< návrat zpět
MS Excel
Téma: Uspořádání dat do tabulky
Zaslal/a Marw 14.4.2024 9:30
Dobrý den, rád bych Vás požádal o pomoc. V excel mám data, uložená ve sloupci. potřeboval bych vytvořit makro (přes tlačítko), které by tyto data uspořádalo do tabulky po 6 hodnotách. 1 sloupec (hodnoty 1-6), druhý sloupec (hodnoty 7-12)... V příloze je ukázkový soubor.
Děkuji za pomoc.
M.
Příloha: 56424_hodnoty_14-04-2024.zip (8kB, staženo 10x)
elninoslov(14.4.2024 10:08)#056425 V novom Office to urobíte ľahko aj vzorcom:
=INDEX(B2:B55;TRANSPOSE(SEQUENCE(9;6)))
=INDEX(B2:B55;TRANSPOZICE(SEQUENCE(9;6)))
Makro napríklad:
Sub Rozdel()
Dim D(), V(), r As Long, s As Long, i As Long
With Worksheets("Data")
D = .Range("B2:B55").Value2
ReDim V(1 To 6, 1 To WorksheetFunction.RoundUp(UBound(D, 1) / 6, 0))
s = 1
For i = 1 To UBound(D, 1)
r = r + 1
If r = 7 Then s = s + 1: r = 1
V(r, s) = D(i, 1)
Next i
.Range("H2").Resize(6, UBound(V, 2)).Value2 = V
End With
End Subcitovat
Marw(14.4.2024 19:41)#056426 Nakonec ten vzorec bude asi lepší, funguje tak jak má.
Díky za pomoc.
M.
citovat
lubo(15.4.2024 12:10)#056427 Vzorec může být jednodušší:
=ZABALSLOUPCE(B2:B55;6)citovat
elninoslov(15.4.2024 14:19)#056429 @lubo opäť excel-entne.
Ten nový Office má kopu neznámych (mne) nových featur. Táto sa volá v SK/EN verzii
WRAPCOLS()citovat