Happy Friday everyone! I've been trying to arrive at the solution on my own but after several hours, I haven't found it so I need some help. I want to combine info in several cells into one cell. Some of the cells have info and some don't (it's random). I'd like each string of text in the one cell to be on separate lines. This is the code I have and it works to combine all the cells into one but I can't figure out how to and where to insert the VBA code for alt enter. Thanks!
Sub SpecialConcat()
Dim lastRow As Long
Dim wsData As Worksheet
'Where is the data?
Set wsData = Worksheets("Applicants")
Application.ScreenUpdating = False
With wsData
'Find where our data ends
lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range("E2").EntireColumn.Insert
With .Range("E2:E" & lastRow)
.Formula = "=A2 & "" "" & B2 & "" "" & C2 & "" "" & D2 & "" "" "
.Copy
.PasteSpecial xlPasteValues
End With
.Range("A:D").Delete
End With
Application.ScreenUpdating = True
End Sub
Sub SpecialConcat()
Dim lastRow As Long
Dim wsData As Worksheet
'Where is the data?
Set wsData = Worksheets("Applicants")
Application.ScreenUpdating = False
With wsData
'Find where our data ends
lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range("E2").EntireColumn.Insert
With .Range("E2:E" & lastRow)
.Formula = "=A2 & "" "" & B2 & "" "" & C2 & "" "" & D2 & "" "" "
.Copy
.PasteSpecial xlPasteValues
End With
.Range("A:D").Delete
End With
Application.ScreenUpdating = True
End Sub