Extracting duplicate names that are similar in the first 3 words of the title.

[sofas]

Welcome. I have a list of work section titles in column A, for example,
The database was installed on the last day.
Sometimes I write it like this: The The database was installed on the last
. This is just an example. What I'm looking for is a code or Formula to extract duplicate names that are similar in the first 3 words of the title.

 

[rlv01]

One way would be to use a UDF to remove sequential duplicates.

Book2 (version 1).xlsb
	A	B
1	Before	After
2	The The database was installed on the last	The database was installed on the last
3	The The The database was installed on the last	The database was installed on the last
4	The database database database was installed on the last	The database was installed on the last
Sheet1

Cell Formulas
Range	Formula
B2:B4	B2	=removedups(A2)

Function RemoveDups(Title As String) As String
    Dim S As String, SA As Variant, I As Long
    
    SA = Split(Application.Trim(Replace(Title, Chr(160), " ")), " ")
    For I = 0 To UBound(SA) - 1
        If SA(I) = SA(I + 1) Then
            S = S & " "
        Else
            S = S & SA(I) & " "
        End If
    Next I
    S = Application.Trim(S & SA(UBound(SA)))
    RemoveDups = S
End Function