Horizontal merge into new cell

[Westbury]

How do I use vba to merge the contents of 3 columns on one row into a new cell on that row with each former cell separated with a comma and the last entry in quotation marks?

e.g.

AA BB CC would merge to AA,BB,"CC" in a new cell and the process repeats for n rows

I've found lots of ideas to create a single column from data but not to execute a horizontal merge.

Thanks

 

[Westbury]

Fluff, thank you for your last post. Yes, your assumption was correct, this is the solution to my needs.
Many thanks,

 

[Fluff]

You're welcome & thanks for the feedback

 

[Westbury]

Fluff, I've tested your code and it works fine on variousvamounts of data but when I use it in on 15500 rows, Excel goes into melt down. No VBA error message, but the words "not responding" appear on the excel titlebar. Is this a virtual memory issue or something else?

 

[Fluff]

With that amount of data it's going to be slow, try this instead

Sub Westbury()
   Dim Ary As Variant, Nary As Variant
   Dim i As Long
   
   With Sheets("Sheet1")
      Ary = .Range("A1", .Range("A" & Rows.count).End(xlUp).Offset(, 3)).Value2
   End With
   ReDim Nary(1 To UBound(Ary), 1 To 2)
   For i = 1 To UBound(Ary)
      Nary(i, 1) = Ary(i, 1) & "," & Ary(i, 2) & ",""" & Ary(i, 3) & """"
   Next i
   Sheets("Sheet2").Range("A1").Resize(i - 1, 2).Value = Nary
End Sub

 

[Westbury]

Fantastic! This alternative worked in a flash. Many thanks

 

[Fluff]

You're welcome & thanks for the feedback