[حل شده] حذف داده های تکراری داخل تمام سلول ها

[ms5017]

سلام
من یک فایل اکسل دارم که داخل هر ردیف چند کلمه نوشته (هر کلمه در یک سلول) و این کلمات مترادف هستند. مثلا کلمات : "اب" و "پدر" در ردیف اول ستونهای 1 و دو هستند. و در جای دیگه مثلا ردیف دوم کلمات " پدر" بابا" " پاپا" وجود دارند. من میخوام کلمه اب در ردیف دوم حذف بشه و سلولش خالی بمونه. اما اب اولی حذف نشه. با استفاده از ابزار remove duplicate هم تست کردم. کل ردیف هایی که مشابه هستند را پاک میکنه نه دونه دونه سلول ها رو. از ابزار highlight duplicate هم استفاده کردم اما متاسفانه تمام تکراری ها را هایلایت میکنه و مثلا در مثال بالا کلمه "اب" هم از سطر اول و هم از سطر دوم پاک میشه.
کسی میتونه راهنمایی کنه چطور اینو درست کنم؟ تعداد سطرها زیاده و باید از ابزار استفاده بشه. دستی نمیشه.
ممنون از شما

[rahi_feri]

سلام
فایل بذارید روی فایل نشون بدید....!

[ms5017]

دو تا فایل پیوست کردم. فرض کنید فایل 1 فایل ابتدایی هست و فایل 2 نتیجه ای که میخوام. چون فایل اصلی سنگین بود نفرستادم (حدود 42000 سطر هست )
ممنون

[rasools13]

دو تا فایل پیوست کردم. فرض کنید فایل 1 فایل ابتدایی هست و فایل 2 نتیجه ای که میخوام. چون فایل اصلی سنگین بود نفرستادم (حدود 42000 سطر هست )
ممنون

سلام دوست عزیز
با استفاده از ماکروی ذیل به راحتی میتونید به چیزی که میخواین برسید...نمونه مثال در فایل پیوست هست متناسب با کارتون مقادیر رو در کد ها تغییر دهید

Sub Macro1()
'
' Macro1 Macro
'

'
    Dim RowNum, ColNum, i, j, Repeat As Double
    RowNum = Range("F3")
    ColNum = Range("F4")
    Range(Cells(1, ColNum + 8), Cells(RowNum, (ColNum * 2) + 7)).Clear
    For i = 1 To RowNum Step 1
        For j = 1 To ColNum Step 1
            Repeat = Application.WorksheetFunction.CountIf(Range(Cells(1, ColNum + 8), Cells(RowNum, (ColNum * 2) + 7)), Cells(i, j))
            If Repeat = 0 Then
                Cells(i, ColNum + 7 + j) = Cells(i, j)
                Cells(i, ColNum + 7 + j).Interior.ColorIndex = 4
            Else
                Cells(i, ColNum + 7 + j) = ""
                Cells(i, ColNum + 7 + j).Interior.ColorIndex = 2
                 With Cells(i, ColNum + 7 + j).Interior
                    .Pattern = xlSolid
                    .PatternColorIndex = xlAutomatic
                    .ThemeColor = xlThemeColorDark1
                    .TintAndShade = -0.149998474074526
                    .PatternTintAndShade = 0
                 End With
            End If
        Next
    Next
End Sub 

[ms5017]

سپاس از شما
البته چون عجله داشتم از افزونه kutools استفاده کردم. این ماکرو را تست نکردم.
تشکر از جوابتون