Excel 2007 Merge Rows

Question

How can I merge rows together to go from this:
1
2
3
A
F
A
G
A
D
H
B
I
B
J
C
K
C
L
C
M
C
E
N
To this:
1
2
3
A
D
F, G, H
B
I, J, K
C
E
L, M, N

Answer 1

Try VBA  code:
Sub Test()
Dim d1 As Object, d2 As Object, d3 As Object, i%, arr
Set d1 = CreateObject("scripting.dictionary")
Set d2 = CreateObject("scripting.dictionary")
Set d3 = CreateObject("scripting.dictionary")
arr = Range("A1").CurrentRegion
For i = 2 To UBound(arr)
For j = 2 To Application.CountA(ActiveSheet.Range("1:1"))
d1(arr(i, 1)) = ""
d2(arr(1, j)) = ""
d3(arr(i, 1) & arr(1, j)) = d3(arr(i, 1) & arr(1, j)) & arr(i, j)
Next
Next
Range("B16").Resize(1, d2.Count) = d2.keys
Range("A17").Resize(d1.Count, 1) = Application.Transpose(d1.keys)
For i = 17 To d1.Count + 16
For y = 2 To d2.Count + 1
If d3.exists(Cells(i, 1) & Cells(16, y)) Then
Cells(i, y) = d3(Cells(i, 1) & Cells(16, y))
End If
Next
Next
End Sub
Wind Zhang
TechNet Community Support