< návrat zpět

MS Excel


Téma: Uspořádání dat do tabulky rss

Zaslal/a 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: zip56424_hodnoty_14-04-2024.zip (8kB, staženo 10x)
Zaslat odpověď >

#056425
elninoslov
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 Sub
citovat
#056426
avatar
Nakonec ten vzorec bude asi lepší, funguje tak jak má.
Díky za pomoc.
M.citovat
#056427
avatar
Vzorec může být jednodušší:

=ZABALSLOUPCE(B2:B55;6)citovat
#056429
elninoslov
@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

Uživatelské menu

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

Menu

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.

On-line nástroje