VBA编程解决工作的事情

最近做一个execl表，内容是查找相同信息（F列）的客户，就是把一个客户的信息，例如手机号码，或者家庭地址，跟别的客户对比，发现一样的话，把名字记录下来，如此下去，最终发现几个客户的名字（H列）并在一个格里面（I列），方便咨询单个客户跟其他人员（姓名）的关系。
涉及的客户名字可能自己跟自己重复出现，要分辨。

Sub test()
    Dim title As String
    'Set titleRange = Application.InputBox(prompt:="请选择拆分的表头，必须是第一行，且为一个单元格，如：“姓名”", Type:=8)
    'cells(x,9) 就是I列 x行的内容
    '用F列的一格，跟F列的全部内容对比，如果发现相同的，就合并H列的内容。赋值给对应行的 I列
    
    For i = 1 To 1262
        title = Cells(i, 8)
        For j = 1 To 1262
           If Cells(j, 6) = Cells(i, 6) And title <> Cells(j, 8) Then

                title = Cells(j, 8) + "," + title
             
           End If
        Next j
       
            Cells(i, 9) = title
       
    Next i

End Sub