Создать макрос, объединяющий две строки

[Vova1987]

Уважаемые программисты помогите мне сделать макрос, объединяющий две строки

[Hugo121]

Sub ОбъединитьСтроки()
Dim a As String, b As String, c As String
a = "Строка1"
b = "Строка2"
c = a & b
MsgBox c
End Sub

[SAS888]

А что вы понимаете под словом "строка"?
Это текстовое значение одной ячейки (переменной), или нескольких, которые находятся в одной строке рабочего листа Excel?

[Vova1987]

нужно что бы в строке было несколько ячеек переменных.как тогда будет выглядеть код?

[SAS888]

Пусть, например, требуется получить текстовую переменную, содержащую все значения ячеек из 1-й и 2-й строки активного рабочего листа. Для этого можно применить следующий код:

Sub qq()
    Dim a(), b(), s As String
    a = Range([A1], Cells(1, Columns.Count).End(xlToLeft)).Value
    b = Range([A2], Cells(2, Columns.Count).End(xlToLeft)).Value
    With Application
        s = .Trim(Join(.Index(a, 1, 0)) & " " & Join(.Index(b, 1, 0)))
    End With
    MsgBox s
End Sub

[Vova1987]

а как отобразить текстовую переменную, содержащую все значения ячеек из 1-й и 2-й строки в 3 строке

[SAS888]

Определитесь, что Вам нужно.
Предложенный выше макрос формирует одну текстовую переменную, состоящую из значений всех ячеек 1-й и 2-й строки. Вставить это значение, например, в ячейку "C1" можно, заменив строку кода

MsgBox s

на строку

[C1] = s

А если требуется в 3-й строке получить последовательность ячеек 1-й и 2-й строк, то макрос будет другой (Copy и Paste).

[Vova1987]

Спасибо большое буду разбираться))т.е будет Copy первой, второй строки и Paste в 3

[Hugo121]

Нет, будет copy-paste, copy-paste.
И целиком две строки в одну в одной версии экселя не втиснуть