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

نویسنده afshin3a, 09 جولای 2015, 09:10

« قبلی - بعدی »

afshin3a

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

علی فیروزجایی

با سلام
خدمت دوست محترم عرض کنم، روش های متعددی برای این جواب سوال شما شاید وجود داشته باشه اما یکی از این روشها استفاده از دستور Split در Vba می باشد که در درخواست شما استفاده نمودم.امیدوارم مشکل شما رو حل کرده باشد.
با سپاس-فیروزجایی

afshin3a

نقل قول از: علی فیروزجایی در 09 جولای 2015, 10:20
با سلام
خدمت دوست محترم عرض کنم، روش های متعددی برای این جواب سوال شما شاید وجود داشته باشه اما یکی از این روشها استفاده از دستور Split در Vba می باشد که در درخواست شما استفاده نمودم.امیدوارم مشکل شما رو حل کرده باشد.
با سپاس-فیروزجایی

بسيار عالي بود كارتون استاد!
دقيقا همون چيزي بود كه دنبالش بودم! حتي فراتر از نياز من جواب داديد! صميمانه از شما تشكر مي كنم!

فرشید میدانی

با تشکر از آقای فیروزجایی، نمونه کدی که ایشان نوشته اند نیز بسیار دقیق و کامل است و می تواند نمونه ای خوبی باشد از یک کد آموزشی

    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


⭐ اگر پاسخ خود را یافتید:

۱) در پاسخ گویی به سوالات انجمن اکسل فرساران مشارکت کنید.
۲)  دوره‌های[iurl="[url="https://www.farsaran.com/excel"]https://www.farsaran.com/excel[/url]"] اکسل فرساران[/iurl] را به همکاران سازمان خود معرفی کنید.
۳)  صفحه [iurl="[url="https://www.instagram.com/farsaran_excel/"]https://www.instagram.com/farsaran_excel/[/url]"]اینستاگرام farsaran_excel[/iurl] را 🧡 کنید.