Makros_awtomaticheskoe_kopirowanie

[azh]

Dobry den!

podskazhite plz, kak napisat makros, kotory budet awtomaticheski kopirowat znachenie odnoj jachejki w neskolko drugix, t.e. naprimer:

znachenie iz C2 w D3 : D5,
C6 w D7 : D9,
C10 w D11 : D135

i t.d.

zaranee spasibo!

[SAS888]

Попробуйте так:

Код: Выделить всё

Sub Main()
    Dim a As Long, b As Long
    a = 2: Application.ScreenUpdating = False
    Do
        b = Cells(a, 1).End(xlDown).Row
        If b = Rows.Count Then Exit Do
        Range(Cells(a + 1, 4), Cells(b - 1, 4)) = Cells(a, 3): a = b
    Loop
End Sub