Зациклить макрос.

[Константин С]

Hello.

Необходимо, чтобы следующие действие повторялись с последующими строками (2к.)

PHP код:

Sub Макрос1()
'
' Макрос1 Макрос
'

'
    Range("J2").Select
    ActiveCell.FormulaR1C1 = _
        "Вал вторичный 50-110сс мото (36/31/27/24) комплект купить в Одессе, Киеве, Харькове, Львове, Днепропетровске, Черкасах"
    Range("G9").Select
End Sub 


Благодарю за дельные комментарии.

[Hugo121]

Может так (или я не понял задачу...)

Sub tt()
[j2:j2002].Value = "Вал вторичный 50-110сс мото (36/31/27/24) комплект купить в Одессе, Киеве, Харькове, Львове, Днепропетровске, Черкасах"
End Sub

[Константин С]

Требуется макрос, который вставляет в ячейку (в ячейке текст уже есть, вставка должна идти через пробел) текст из буфера.

Макрос который я привел выполняет нужную мне задачу только для одной ячейки. Нужно, чтобы он повторил это действие в данном столбце со всеми остальными ячейками по вертикали.

[Hugo121]

Sub CopyFromClip()
    Dim t$
    With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .GetFromClipboard
    [j2:j2002].Value = .GetText(1)
    End With
End Sub

Выполнить, когда данные в буфере.

[Константин С]

Работает! Но, он заменяет текст который уже есть в ячейке, а нужно, чтобы добавил через пробел.

[Hugo121]

Sub CopyFromClip()
    Dim x
    Application.ScreenUpdating = False

    With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .GetFromClipboard
        For Each x In [j2:j2002]
            x.Value = x.Value & " " & .GetText(1)
        Next
    End With

    Application.ScreenUpdating = True
End Sub

Но может быть есть вариант и без цикла...

[Константин С]

Превосходно!
Hugo121, мои благодарности..

[Hugo121]

Кстати, чуть быстрее будет так:

Dim t$
    With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .GetFromClipboard
        t = .GetText(1)
        For Each x In [j2:j2002]
            x.Value = x.Value & " " & t
        Next
    End With

[Казанский]

> может быть есть вариант и без цикла...

Sub CopyFromClip1()
    Dim x$
    With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .GetFromClipboard
        x = Replace$(.GetText(1), """", """""")
    End With
    With [j2:j2002]
        .Value = Evaluate(.Address & "&"" " & x & """")
    End With
End Sub

[Hugo121]

Спасибо.
А я и так крутил, и эдак... До такого недодумался
Так работает

Public Sub www()
[a1:a200] = [a1:a200&"ttt"]
End Sub

а с переменной никак