استخراج کلمات مناسب

Question

Vanita یک کاربرگ دارد که حاوی ترکیب های مختلفی از حروف در هر سلول ستون A است. او به دنبال راهی برای استخراج کلماتی از آن فهرست است که "مناسب" هستند، به این معنی که آنها در یک فرهنگ لغت بررسی املا یافت می شوند.

با فرض اینکه ستون فقط حاوی کلمات (بدون فاصله، علامت گذاری یا عبارات) باشد، می توانید به صورت دستی لیست را به این ترتیب بررسی کنید:

1. یک کپی از ستون A در ستون B ایجاد کنید. اکنون دو ستون یکسان دارید.
2. ستون B را انتخاب کنید و غلط املایی را اجرا کنید.
3. هر بار که تغییر املایی پیشنهاد می شود، آن را بپذیرید. پس از اتمام، باید ستون A را به عنوان اصلی و ستون B را به عنوان نسخه غلط املایی ستون A داشته باشید.
4. در ستون C، فرمول =IF(A1=B1,B1,"") را وارد کنید و فرمول را به پایین کپی کنید. این فرمول فقط در صورتی یک کلمه را در ستون C نشان می دهد که کلمه اصلی با نسخه غلط املایی کلمه مطابقت داشته باشد.
5. تمام کلمات ستون C را کپی کنید و از Paste Special برای چسباندن مقادیر در مکان دیگری استفاده کنید. اکنون فهرستی از کلمات معتبر دارید.

اگر لازم است فرآیند اعتبارسنجی را به طور منظم انجام دهید، ممکن است بخواهید از یک ماکرو برای ایجاد لیست نهایی خود استفاده کنید. ماکرو زیر از فهرست کلمات در ستون A عبور می کند و سلول های حاوی کلماتی را که در فرهنگ لغت نیستند پاک می کند. پس از بررسی تمام کلمات، سپس تمام سلول های پاک شده را حذف می کند.

Sub ExtractDictionaryWords()
    Dim rWords As Range
    Dim rCell As Range

    Application.ScreenUpdating = False
    Set rWords = Range(Range("A1"), _
      Range("A1048576").End(xlUp))
    For Each rCell In rWords
        If Not Application.CheckSpelling(rCell.Value) Then
            rCell.Clear
        End If
    Next
    On Error Resume Next
    rWords.SpecialCells(xlCellTypeBlanks). _
      Delete (xlShiftUp)
    On Error GoTo 0
    Set rCell = Nothing
    Set rWords = Nothing
    Application.ScreenUpdating = True
End Sub

به یاد داشته باشید - این ماکرو عمداً در رفتار خود مخرب است، به این معنی که سلول ها را پاک می کند. اگر به داده های اصلی نیاز دارید، می خواهید ماکرو را روی یک کپی از داده ها اجرا کنید، نه روی تنها کپی خود.