Rozkopírování vzorců

[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 28 x

[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

[akem]

Diky moc!!!!