Stránka 1 z 1

Rozkopírování vzorců  Vyřešeno

Napsal: 22 led 2016 17:01
od akem
Zdravím,

asi je to triviální věc, ale já na to nemohu přijít.

potřebuji rozkopírovat vzorce z políček B1, B2, B3, B4. Tak aby vzorec pokračoval posloupně to znamená =data!J5, =data!K5, =data!D5, =data!H5 a tak dále... Budu takto kopírovat cca 3000 dat, tak to nechci dělat ručně. Jenže když dám klasické rozkopírování, tak se mi číselná řada posuje o 4 číslice.

Prosím o radu.

Předem díky

Akem

test.xls
(110 KiB) Staženo 21 x

Re: Rozkopírování vzorců

Napsal: 23 led 2016 09:09
od atari
Rozkopírováním to nepůjde, protože Excel vždy posune číslo řádku o tolik, o kolik to posuneš při kopírování.
Tohle makro to udělá:

Kód: Vybrat vše

Sub Makro()
radek = 4
For i = 1 To 3000 Step 4
Cells(i + 0, 2).Formula = "=data!J" & radek
Cells(i + 1, 2).Formula = "=data!K" & radek
Cells(i + 2, 2).Formula = "=data!D" & radek
Cells(i + 3, 2).Formula = "=data!H" & radek
radek = radek + 1
Next i
End Sub

Re: Rozkopírování vzorců

Napsal: 25 led 2016 08:11
od akem
Diky moc!!!!