hi,

Dim MergeList(), i As Integer, c As Range, n As Integer
For i = 1 To Cells(1, Cells.Columns.Count).End(xlToLeft).Column
For Each c In Range(Cells(1, i))
n = n + 1
ReDim Preserve MergeList(n)
MergeList(n) = c
Next
Next
Sheets("MergeListSheet").[A1].Resize(UBound(MergeList) + 1) =
Application.Transpose(MergeList) '---adapt name sheet

isabelle

Le 2014-07-25 12:29, ssrvant a écrit :
I am looking to merge multiple columns into one list. I have some code that will allow me to merge three columns into one list,
but I am looking to be able to merge more than three. below is an example of
what I am trying to do, and below that is the code that I am currently using for
merging three columns.