Vanita có một trang tính chứa các tổ hợp chữ cái khác nhau trong mỗi ô của cột A. Anh ấy đang tìm cách trích xuất các từ “thích hợp” trong danh sách đó, nghĩa là chúng được tìm thấy trong từ điển kiểm tra chính tả.

Giả sử rằng cột chỉ chứa các từ (không có dấu cách, dấu chấm câu hoặc cụm từ), bạn có thể kiểm tra danh sách theo cách thủ công theo cách sau:

  1. Tạo một bản sao của cột A thành cột B. Bây giờ bạn có hai cột giống nhau.

  2. Chọn cột B và chạy kiểm tra chính tả.

  3. Mỗi khi đề xuất thay đổi chính tả, hãy chấp nhận nó. Khi hoàn tất, bạn phải có cột A là bản gốc và cột B là phiên bản đã được kiểm tra chính tả của cột A.

  4. Trong cột C, nhập công thức = IF (A1 = B1, B1, “”) và sao chép công thức xuống. Công thức này chỉ hiển thị một từ trong cột C nếu từ gốc khớp với phiên bản được kiểm tra chính tả của từ đó.

  5. Sao chép tất cả các từ trong cột C và sử dụng Dán Đặc biệt để dán Giá trị vào một vị trí khác. Bây giờ bạn có một danh sách các từ được đánh vần hợp lệ.

Nếu bạn cần thực hiện quá trình xác thực thường xuyên, bạn có thể muốn sử dụng macro để tạo danh sách cuối cùng của mình. Macro sau bước qua danh sách từ trong cột A và xóa bất kỳ ô nào chứa các từ không có trong từ điển. Sau khi kiểm tra tất cả các từ, nó sẽ xóa tất cả các ô đã xóa.

Sub ExtractDictionaryWords()

Dim rWords As Range     Dim rCell As Range

Application.ScreenUpdating = False     Set rWords = Range(Range("A1"), _       Range("A65536").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

Hãy nhớ rằng – macro này cố ý phá hoại hành vi của nó, nghĩa là nó xóa các ô. Nếu bạn có bất kỳ nhu cầu nào về dữ liệu gốc, bạn sẽ muốn chạy macro trên bản sao của dữ liệu, không phải trên bản sao duy nhất của bạn.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (2834) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Excel (Excel 2007 trở lên) tại đây: