Excel - Remove first line from a multiline cell

I have an Excel spreadsheet with a column in it that contains multiple lines in each cell. The lines in those cells are separated by a line break (when entering data in the cell, pressed Alt + Enter to start new lines). I want to remove the first line in every one of those cells and leave the rest of the lines.

Can you help?

Cell contents appear as follows:

This is line 1
This is line 2
This is line 3

I want the result to look as follows:

This is line 2
This is line 3
cbridgmanAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

cbridgmanAuthor Commented:
I would like to do this with a formula rather than a macro. I'll take a macro if I have to but I really don't know how to set those up.
0
ProfessorJimJamCommented:
=RIGHT(a2,LEN(a2)-FIND(CHAR(10),a2,1))  assuming your data is a2
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
cbridgmanAuthor Commented:
That almost does the trick but the line breaks disappear as follows:

Original Cell Content

This is line 1
This is line 2
This is line 3

Cell Content After Applying Formula

This is line 2This is line 3

Any way to prevent the removal of line breaks?
0
Determine the Perfect Price for Your IT Services

Do you wonder if your IT business is truly profitable or if you should raise your prices? Learn how to calculate your overhead burden with our free interactive tool and use it to determine the right price for your IT services. Download your free eBook now!

Hakan YılmazTechnical Office MEP EngineerCommented:
You may try this.
Option Explicit

Sub RemoveFirstLine(ByRef SearchRange As Range)
    Dim iterCell As Range
    For Each iterCell In SearchRange.Cells
        iterCell.Value = Right(iterCell.Value, Len(iterCell.Value) - InStr(1, iterCell.Value, Chr(10)))
    Next iterCell
End Sub

Open in new window


You should call this sub with a reference to the range object which has strings to be manipulated.

Example:
Sub StartRemove()
    RemoveFirstLine ActiveWorkbook.ActiveSheet.UsedRange
    RemoveFirstLine ActiveWorkbook.ActiveSheet.Range("B4:B5")
    RemoveFirstLine ThisWorkbook.Worksheets("Sheet1").Range("B4:B5")
End Sub

Open in new window

0
Jerry PaladinoCommented:
The formula   =MID(A2,FIND(CHAR(10),A2),999)   will remove the first line.  

Note in your file where the cells have the three line text,  "Wrap Text" is enabled by default.  You will need to set the cells where you use this formula to Wrap Text for it to display correctly.
HTH,
JerryQ_28567654_ScreenshotQ-28567654.xlsx
0
STEPHANIE HARRISCommented:
How can I manipulate the formula so that I only keep line one and line 2 and 3 are removed?
0
ProfessorJimJamCommented:
Stephanie.

it would have better if you opened a question for this. rather than adding the question on someone else question.  anyways,  you can get what you need by this formula

=LEFT(LEFT(A2,LEN(A2)-FIND(CHAR(10),A2,1)),LEN(LEFT(A2,LEN(A2)-FIND(CHAR(10),A2,1)))-FIND(CHAR(10),LEFT(A2,LEN(A2)-FIND(CHAR(10),A2,1)),1))
0
STEPHANIE HARRISCommented:
I apologize! It's my first time posting. The formula is giving me a #VALUE error.
0
ProfessorJimJamCommented:
Can you upload the workbook sample because the formula perfectly works based on the example in original post
0
STEPHANIE HARRISCommented:
Sure, attached here is an example. I only want to keep the first line for every cell. Thank you!
workbook-example.xlsx
0
Jerry PaladinoCommented:
Try this formula...  

=IFERROR(LEFT(A2, FIND(CHAR(10),A2)-1), A2)
workbook-example.xlsx
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Excel

From novice to tech pro — start learning today.