Sub Makro1()
For i = 1 To 21 Step 4
Range(Cells(i, 1), Cells(i, 1).Offset(3, 0)).Copy
Cells(Int(i + 3) / 4, 3).PasteSpecial Paste:=xlPasteAll, Transpose:=True
Application.CutCopyMode = False
Next
End Sub
citovat
Zaslal/a
1.2.2022 20:59Existuje spôsob, funkcia ako previesť údaje v jednom stĺpci do viacerých riadkov? Predstavoval by som si to takto: V stĺpci A mám 20 riadkov. Chcel by som to premeniť na 4 riadky a 5 stĺpcov.
Teda údaje zobrazené takto:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
zmeniť na takéto zobrazenie:
1 2 3 4
5 6 7 8
9 10 11 12
13 14 15 16
17 18 19 20
Teda aby sa po štvrtom údaji, ďalší udaj zobrazil v nasledujúcom riadku....
Ďakujem.
Rišo
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.