Các bác giúp xóa dấu xuống dòng (Alt+enter)

[Duong_VBA]

Em có danh sách 5000 dòng (Em ví dụ trong file), trong mỗi ô đều có 1 dấu xuống dòng khi co dòng thì không nhìn thấy nội dung, các bác giúp em cách xóa nhanh bằng lệnh hoặc code VBA.
Cảm ơn.

 

[ndu96081631]

Em có danh sách 5000 dòng (Em ví dụ trong file), trong mỗi ô đều có 1 dấu xuống dòng khi co dòng thì không nhìn thấy nội dung, các bác giúp em cách xóa nhanh bằng lệnh hoặc code VBA.
Cảm ơn.

Vầy thôi:

Sub RemoveAltEnter()
  ActiveSheet.UsedRange.Replace Chr(10), "", xlPart
End Sub