Циклы - вложенны циклы?

[tigga]

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

Заранее Спасибо!

[Dophin]

Sub pp()
    Dim i, j, k, m, b
    Dim str
    b = 4
    For i = 4 To 8
        For j = 4 To 6
            For k = 4 To 6
                str = Cells(i, 1) & " - " & Cells(j, 2) & "." & Cells(k, 3) & " " & Cells(4, 4)
                Cells(b, 10) = str
                str = ""
                b = b + 1
            Next k
        Next j
    Next i

End Sub

тип того

[tigga]

Cпасибо! Сейчас попробую!

[tigga]

А если заранее неизвестно количество заданных ячеек в столбцах?

[Dophin]

Sub pp()
    Dim i, j, k, m, b
    Dim str
    b = 4
    For i = 4 To Cells(Rows.Count, 1).End(xlUp).Row
        For j = 4 To Cells(Rows.Count, 2).End(xlUp).Row
            For k = 4 To Cells(Rows.Count, 3).End(xlUp).Row
                For m = 4 To Cells(Rows.Count, 4).End(xlUp).Row
                    str = Cells(i, 1) & " - " & Cells(j, 2) & "." & Cells(k, 3) & " " & Cells(m, 4)
                    Cells(b, 10) = str
                    str = ""
                    b = b + 1
                Next m
            Next k
        Next j
    Next i

End Sub

а если бы у бабушки были яйца - она была бы дедушкой.

в следующий раз четче формулируйте что надо

[doober]

а если бы у бабушки были яйца - она была бы дедушкой.

Раз уж написал,выложу
Выделяем необходимый диапазон и жмем кнопку