Recursive loop through the rows and columns

Hello everybody.
Guys help me figure out the task please
I have the following problem.

I need to combine values from all columns and rows.
At the beginning, we take the first value of the first column and append the first value of the second column to it
Then we add all the values of the third column to the result.
Then we take first value of the first column, append the second value of the second column and append all values from 3-rd column again.
And so on.

The example clearly shows what is required.

The number of columns is variable
The number of lines is different everywhere.

I understand that this can be solved by a recursive function. I tried to write it, but I did not succeed at all. Full trash..
Please help

Hi maximusa and welcome to the forum,

Here is the code that will work on your 3 column problem. This should give you a head start on doing one with an unknown number of columns.

Sub maximusa()
    Dim LastCRow As Double
    Dim LastBRow As Double
    Dim LastARow As Double
    Dim RowACtr As Double
    Dim RowBCtr As Double
    Dim RowCCtr As Double
    Dim LastERow As Double

    LastARow = Cells(Rows.Count, "A").End(xlUp).Row
    LastBRow = Cells(Rows.Count, "B").End(xlUp).Row
    LastCRow = Cells(Rows.Count, "C").End(xlUp).Row

    Columns("E:E").ClearContents
    Cells(1, "E") = "Results"

    For RowACtr = 1 To LastARow
        For RowBCtr = 1 To LastBRow
            For RowCCtr = 1 To LastCRow
                LastERow = Cells(Rows.Count, "E").End(xlUp).Row
                    Cells(LastERow + 1, "E") = Cells(RowACtr, "A") & "-" & _
                    Cells(RowBCtr, "B") & "-" & Cells(RowCCtr, "C")
            Next RowCCtr
        Next RowBCtr
    Next RowACtr

End Sub

VBA recursive loop for Maximusa.xlsm

Hey miximusu

Before you can solve harder problems, like recursion, you should see how to do it the easy way. Then take the defined variables and make them variable. This will lead you to an answer. How many columns might you have in your problem? Did my answer work for your test problem?

Instead of Columns A,B,C how would you make a variable number of columns? Perhaps using Cells(1,Columns.Count).End(xlToLeft).Column ? Are you getting an idea from my example? Instead of having a fixed number of For..Next Loops you might use a For..Each type of Loop.

Does this get you closer to what you want?