پيدا كردن جملات تكراري در يك ستون

[afshin3a]

سلام بر اساتيد گرامي!
در پايان هر جمله اي، نقطه داريم. (يعني ميشه به راحتي جمله ها را تشخيص داد!) يك سلول ممكن است n جمله داشته باشد. چگونه از دل اين همه سلول، جملات يونيك (منحصر به فرد) را جدا كنم؟
مثال پيوست را ببنيد.

[mokaram]

به لینک های زیر سری بزنید

split in vba 1

split in vba 2

[iranweld]

با سلام
فایل پیوست را ملاحظه بفرمایید

[afshin3a]

با سلام
دوستان جواب رو پيوست كردم براي استفاده ي دوستان!
سپاس از عزيزاني كه پاسخ دادند.

    Dim endrow1, endrow2 As Integer

Public Sub UniqeSentences()
    Dim i, j, m As Integer
    Dim namee, TxtTafcic, TxtTafcicFinal As Variant
    
    On Error Resume Next
    m = 0
    endrow1 = Sheet1.Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To endrow1
        namee = Sheet1.Cells(i, "A")
        TxtTafcic = Split(namee, ".", -1, 1)
        
        For j = 0 To UBound(TxtTafcic) - 1
            endrow2 = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1
            TxtTafcicFinal = Trim(TxtTafcic(j))
            If WorksheetFunction.CountIf(Sheet2.Range("A:A"), TxtTafcicFinal) = 0 Then
                Sheet2.Cells(endrow2, "A") = TxtTafcicFinal
                m = m + 1
            End If
        Next j
    Next i
    
    MsgBox ".ÚãáíÇÊ ÈÇ ãæÝÞíÊ ÇäÌÇã ÔÏ" & vbNewLine & "ÊÚÏÇÏ ÊÝ˜í˜ ÔÏå:" & m, , "ÝíÑæÒÌÇíí"


End Sub 

;
توجه! كد را مهندس فيروزجايي نوشتند.