Delete duplicate words from last row in worksheet

[Gogleguy]

I have data as shown below. The LAST ROW has duplicate values in few columns (D, E, F, G) separated by line break. I want delete the duplicate value and retain only 1 value in the row.
The generic solution would be that macro deletes everything after line break in the last row cells . Please help.

tom.peter@info.com

TOM

English

Jack Barn Jack Barn

Jack Jack

jack.barn@info.com jack.barn@info.com

Read/Complete Read/Complete

Incomplete - Overdue

4

1

 

[kweaver]

If you want the results in a new row, you can use:

=LEFT(D5,FIND(CHAR(10),D5))

If you want to have the results change the cell(s), you would need to use VBA.

 

[kweaver]

A possible macro (no error checking; i.e., there must be a break on each of those cells) that replaces the last row:

Sub Removedup()
Dim lr As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
Cells(lr, "D") = Left(Cells(lr, "D"), InStr(1, Cells(lr, "D"), Chr(10)) - 1)
Cells(lr, "E") = Left(Cells(lr, "E"), InStr(1, Cells(lr, "E"), Chr(10)) - 1)
Cells(lr, "F") = Left(Cells(lr, "F"), InStr(1, Cells(lr, "F"), Chr(10)) - 1)
Cells(lr, "G") = Left(Cells(lr, "G"), InStr(1, Cells(lr, "G"), Chr(10)) - 1)
End Sub