Hľadanie pomoci kopírovať hodnotu z jednej bunky do druhej pomocou VBA. - excel, excel-vba, vba

Hľadám nejakú pomoc s programom Excel Macros. Ak chcete presnú hodnotu v stĺpci A, potom ju skopírujte v nasledujúcich 2 bunkách pod touto hodnotou (povedzte, že hodnota existuje v A1, mala by sa kopírovať v A2 a A3). Rovnaká vec by mala ísť až do stĺpca K. (Poznámka: ak už existuje hodnota v A3, mala by kopírovať hodnotu A1 do A2 a nemala by prepísať A3).

odpovede:

Nie som jasný o vašom stole a dátach, ale pod kódom by vám mohol dať aj predstavu o vašej implementácii. Pod kódom sa zaoberáme do stĺpca C. A1 až C2 a neskôr na prírastok o 5

Sub copy()
Dim lngVar As Long, i As Long, j As Long
j = 2
lngVar = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To lngVar
Range("C" & j).Value = Range("A" & i).Value
j = j + 5
Next i
End Sub

Netestoval som vyššie kód, pretože nemám nainštalovaný excel :(