Formula or Macro to place data in one row

[howard]

I have the following data below, I need a formula or macro to copy display these in one row

Excel 2012
	A	B	C	D	E
1	KM-203	KM-206
2	KM-003	KM-006
3	KM-023	KM-026
4	KM-163	KM-166
5	KM-083	KM-086
6	KM-093	KM-096
7	KM-103	KM-106
8	KM-183	KM-186
9	KM-123	KM-126
10	KM-143	KM-146
11	KM-063	KM-066
12	KM-043	KM-046
13	KM-303	KM-306
14	KM-003	KM-006
15	KM-053	KM-056
16	KM-031	KM-032	KM-033	KM-034	KM-035
Sheet1

 

[admiral100]

Hi,

Found that on the web ...

Sub MergeListUniques()
Dim R As Long, C As Long, Data As Variant
'change your range as needed
Data = Range("A1:E" & Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row)
With CreateObject("Scripting.Dictionary")
For C = 1 To UBound(Data, 2)
For R = 1 To UBound(Data, 1)
If Len(Trim(Data(R, C))) Then .Item(Data(R, C)) = Data(R, C)
Next
Next
Columns("F").ClearContents
Range("F3").Resize(.Count) = Application.Transpose(.Items)
End With
End Sub

 

[howard]

Thanks for the code, much appreciated

 

[admiral100]

and that for one row

Sub CopytoOneRow()
Dim myArr As Variant
Dim i As Integer
Dim j As Integer
Dim k As Integer, l As Integer
Dim lc As Integer
Dim sh As Worksheet

Set sh = Sheets("Sheet2") ' change where you want the input
lc = Range("IV1").End(xlToLeft).Column
l = 1
myArr = Range("A1").CurrentRegion
For i = 1 To lc
k = 1
For j = LBound(myArr) To UBound(myArr)
sh.Cells(2, l) = myArr(k, i)
k = k + 1
l = l + 1
Next j
Next i
End Sub

 

[howard]

Thanks for the code