• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Bunky z radku pod sebe

Zaslal/a kode777 3.2.2011 10:47

Zdravim,
hledam jednoduche reseni jak dostat bunky z radku pod sebe s tim, ze se kazda bude xkrat opakovat..
vice viz priloha..

a b c

a
a
a
b
b
b
c
c
c

Diky za odpoved

Příloha: 3994_bunky-z-radku_kazda-xkrat-pod-sebe-do-sloupce.zip (6kB, staženo 14x)

Zaslat odpověď >

---

Roman(3.2.2011 11:35)#003995

Zkus toto:

Sub Přiřadit()
Dim j, i, x
Dim Odkud, Kam

Odkud = "A3"
Kam = "I5"
x = 1
j = 1
i = 1
Do Until Range(Odkud).Offset(0, j) = ""
Do Until Range(Odkud).Offset(i, 0) = ""
Range(Kam).Offset(x, 0) = Range(Odkud).Offset(0, j)
Range(Kam).Offset(x, 1) = Range(Odkud).Offset(i, 0)
Range(Kam).Offset(x, 2) = Range(Odkud).Offset(i, j)
x = x + 1
i = i + 1
Loop
i = 1
j = j + 1
Loop
End Sub

citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse