Concatenate 3 columns without spaces

[trivera648]

Hello everyone,

I would like to concatenate three columns onto a fourth column. However I don't want any spaces contained within the data concatenated on the fourth column.

I found this macro from Rick Rothstein posted on another thread, it's perfect. Except I can't figure out how to edit the code to exclude spaces between each value retrieved.

Code:     
   
       Sub ConcatColumnsABC()
Dim LastRow As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("D1:D" & LastRow) = Evaluate(Replace("A1:A#&"" ""&B1:B#&"" ""&C1:C#", "#", LastRow))
End Sub

Vba to concatenate 3 columns

Hi All Lookinga vba code to concatenate 3 columns irespective of data entered with results in columns columns d Tariff No Description Origin Tarif No Description Origin 12345678 MAZDA AE 12345678 MAZDA AE 5458789 FORD AE 5458789 FORD AE 21411ASDD TOYOTA AE 21411ASDD TOYOTA AE...

www.mrexcel.com

Any help would be most appreciated.


Thank you!

 

[maabadi]

How About:

Sub ConcatColumnsABC()
Dim LastRow As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("D1:D" & LastRow) = Evaluate(Replace("A1:A#&B1:B#&C1:C#", "#", LastRow))
End Sub

 

[trivera648]

How About:

Sub ConcatColumnsABC()
Dim LastRow As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("D1:D" & LastRow) = Evaluate(Replace("A1:A#&B1:B#&C1:C#", "#", LastRow))
End Sub

This works! Thank you maabadi!!

 

[maabadi]

You're Welcome & Thanks For FeedBack.