Skip to main content

How to quickly remove line breaks in Excel?

Sometimes, when you copy some data from the website or you separate your values with Alt + Enter keys, you will get some line breaks or carriage returns, if you want to quickly remove multiple line breaks in Excel as following screenshots shown, you can get it done as follows:

doc-remove-line-breaks1 -2 doc-remove-line-breaks2

Remove multiple line breaks with Find and Replace function

Remove multiple line breaks with VBA code

Remove multiple line breaks with Kutools for Excel


arrow blue right bubble Remove multiple line breaks with Find and Replace function

You can remove multiple line breaks quickly with Find and replace function in Excel, please process it as follows:

1. Select the range that you want to remove multiple line breaks.

2. Click Home > Find & Replace > Replace or click Ctrl + F shortcuts, and a Find and Replace dialog box will pop out.

3. Then in the Find what box, please hold down the ALT key, and then click numbers 010 from the numeric keyboard. Leave the Replace with box blank or enter a space bar. See screenshot:

doc-remove-line-breaks3

4. And then click Replace All button, all of the line breaks have been removed. See screenshot:

doc-remove-line-breaks2


arrow blue right bubble Remove multiple line breaks with VBA code

The following VBA code can also help you to delete all of line breaks in a worksheet. Please do as this:

1. Click Developer > Visual Basic or press Alt+F11 keys to open the Microsoft Visual Basic for applications window, then click Insert > Module, and input the following code:

VBA code: remove multiple line breaks in a worksheet

Sub RemoveCarriage()
'Update 20131216
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = Replace(Rng.Value, Chr(10), "")
Next
End Sub

2. Then press F5 key to run this code, and a prompt box will appear to tell you to select a range that you want to remove the line breaks, see screenshot:

doc-remove-line-breaks4

3. Then click OK and all the line breaks of the selection have been deleted.


arrow blue right bubble Remove multiple line breaks with Kutools for Excel

Maybe sometimes you will forget how to use the Find and Replace function or not familiar with the code to remove multiple line breaks, in this situation, Kutools for Excel can help you to solve this problem.

Kutools for Excel: with more than 300 handy Excel add-ins, free to try with no limitation in 30 days. Get it Now

After installing Kutools for Excel, please do as following steps:

1. Select the range that you want to remove the carriage returns.

2. Click Kutools > Text Tools > Remove Characters, see screenshot:

doc-remove-line-breaks5

3. In the Remove Characters dialog box, check Non-printing option, and you can see the result from the Preview pane as well, see screenshot:

doc-remove-line-breaks6

4. And then click OK or Apply. All of the line breaks will be removed from the selected cells.

Click to know more about this Remove Characters feature.


Related Articles:

Best Office Productivity Tools

Popular Features: Find, Highlight or Identify Duplicates   |  Delete Blank Rows   |  Combine Columns or Cells without Losing Data   |   Round without Formula ...
Super Lookup: Multiple Criteria VLookup    Multiple Value VLookup  |   VLookup Across Multiple Sheets   |   Fuzzy Lookup ....
Advanced Drop-down List: Quickly Create Drop Down List   |  Dependent Drop Down List   |  Multi-select Drop Down List ....
Column Manager: Add a Specific Number of Columns  |  Move Columns  |  Toggle Visibility Status of Hidden Columns  |  Compare Ranges & Columns ...
Featured Features: Grid Focus   |  Design View   |   Big Formula Bar    Workbook & Sheet Manager   |  Resource Library (Auto Text)   |  Date Picker   |  Combine Worksheets   |  Encrypt/Decrypt Cells    Send Emails by List   |  Super Filter   |   Special Filter (filter bold/italic/strikethrough...) ...
Top 15 Toolsets12 Text Tools (Add Text, Remove Characters, ...)   |   50+ Chart Types (Gantt Chart, ...)   |   40+ Practical Formulas (Calculate age based on birthday, ...)   |   19 Insertion Tools (Insert QR Code, Insert Picture from Path, ...)   |   12 Conversion Tools (Numbers to Words, Currency Conversion, ...)   |   7 Merge & Split Tools (Advanced Combine Rows, Split Cells, ...)   |   ... and more

Supercharge Your Excel Skills with Kutools for Excel, and Experience Efficiency Like Never Before. Kutools for Excel Offers Over 300 Advanced Features to Boost Productivity and Save Time.  Click Here to Get The Feature You Need The Most...

kte tab 201905


Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

  • Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
  • Open and create multiple documents in new tabs of the same window, rather than in new windows.
  • Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Obrigado pela dica! Funcionou muito bem aqui!
This comment was minimized by the moderator on the site
Thank You so much yaar. I found it very useful for my day to day office works.
This comment was minimized by the moderator on the site
Thank you very much. it is really superb
This comment was minimized by the moderator on the site
Thank you werry helpfull for my and my MYSQL CSV import :-)
This comment was minimized by the moderator on the site
THANK YOU!!! I have been battling blank lines in cell for too long. You solved the problem...thank you so much
This comment was minimized by the moderator on the site
I am very inexperienced when it comes to macros/VBA code. How would I tweak the code you provided above and which I have pasted below to search for 2 consecutive carriage returns and replace with just one carriage return? Sub RemoveCarriage() 'Update 20131216 Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) For Each Rng In WorkRng Rng.Value = Replace(Rng.Value, Chr(10), "") Next End Sub Also, how would I locate and delete single carriage returns that have no text after them in a cell. Thank you for any assistance.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations