Developing.ru

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!

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

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

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

Developing.ru

Makros_awtomaticheskoe_kopirowanie

Makros_awtomaticheskoe_kopirowanie

Re: Makros_awtomaticheskoe_kopirowanie