Can I remove duplicates from a CELL?

[sewercider]

I have a spreadsheet with a few hundred URLs in it, but for whatever reason they have all doubled up.

For example, A1 looks like:

"https://website.comhttps://website.com"

Is there a way I can clean this up?

Kind regards

 

[Michael M]

Can't access the link you provided, but have you tried

Select the range of cells, or ensure that the active cell is in a table.
On the Data tab, click Remove Duplicates (in the Data Tools group).
Click OK

 

[sewercider]

Sorry just to clarify - the URLS are duplicated, back to back, in the same cell (ie. google.comgoogle.com) - am wondering how I can remove the trailing duplicate?!

 

[Michael M]

I can't access the link but somesample would help ???

 

[sewercider]

There is no link as such - the problem is that the URL is literally duplicated in each cell! Have mocked up below. Thanks for taking a look

 

[Michael M]

I think you'll need a UDF for this.
This modified from a post by J.Fox

Function RD(dString As String) As String
Dim x As Long, ct As Long, str As String
str = Trim(Left(dString, WorksheetFunction.RoundUp((Len(dString) - 1) / 2, 0)))
For x = 1 To Len(dString)
    If Mid(dString, x, Len(str)) = str Then ct = ct + 1
Next x
If ct > 1 Then
    RD = str
Else
    RD = "#N/A"
End If
End Function

Excel 2007
	A	B
1	google.comgoogle.com	google.com
2	msn.commsn.com	msn.com
3	yahoo.com.yahoo.com	yahoo.com
Sheet1

Cell Formulas
Range	Formula
B1	=RD(A1)
B2	=RD(A2)
B3	=RD(A3)