с помощью макроса скопировать значение всей строки(не одной ячейки, а нескольких)

[global]

Здраствуйте!

Скажите как мне с помощью макроса скопировать значение всей строки(не одной ячейки, а нескольких), а потом обработать эту строку по символьно средствами VBA в Excel.

[SAS888]

Получить строковую переменную, содержащую объединение всех ячеек заданной строки можно, например, с помощью макроса:

Sub Integr()

    Dim Stroka As Long, MyString As String, i As Integer
    Stroka = 1 'Номер строки для объединения ячеек
    
'Объединяем непустые ячейки строки "Stroka"
'от первого столбца до последнего заполненного

    For i = 1 To Cells(Stroka, "IV").End(xlToLeft).Column
        If Not IsEmpty(Cells(Stroka, i)) Then MyString = MyString & " " & Cells(Stroka, i)
    Next i
    
'Результат - строковая переменная "MyString"

    MsgBox MyString

End Sub

Здесь между значениями каждой ячейки строки вставляется символ пробела (так, наверное, будет удобнее работать дальше).
Далее работать с переменной "MyString". Что конкретно значит "обработать по-символьно", Вы не оговорили.

[Leanna]

    For i = 1 To Cells(Stroka, "IV").End(xlToLeft).Column

Что означет римская пять в кавычках? ("IV")

[Pavel55]

это так называется ваш последний столбец в вашем Excel (если у вас не Excel 2007)
Откройте любой лист Excel и посмотрите на название столбцов. Они у вас должны идти так
либо
1,2,3....256
либо так
A,B,C....IV
нажмите Ctrl+стрелочка вправо на листе

[Acro]

А не подскажите, как значения несвязанных ячеек можно скопировать в одну. Кручу, но никак не могу грамотно обьединить, чтобы потом

Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Может как то по другому можно вставлять?

[EducatedFool]

Sub test()
    ' этот макрос соединит содержимое ячеек диапазона [c4:c11] через соединитель delimiter
    ' и запишет результат в ячейку [c1]
    
    Set ra = [c4:c11]: res = "": delimiter = ", "    ' delimiter - разделитель
    ' соединяем значения ячеек исходного диапазона в переменную res
    For Each cell In ra.Cells: res = res & cell & delimiter: Next: res = Left(res, Len(res) - Len(delimiter))
    [c1] = res
End Sub

[Acro]

Гениально, к тому же сократил кучу кода. Спасибо