Các từ thường được kết hợp với một trình xử lý văn bản, chẳng hạn như Microsoft Word. Tuy nhiên, nhiều người cũng làm việc với các từ trong chương trình bảng tính của họ. (Tôi đã từng có một đồng nghiệp sử dụng Excel để viết ghi nhớ mọi lúc.) Có thể có lúc bạn muốn đếm số từ trong trang tính mà bạn nhận được từ ai đó. Có những khả năng tự nhiên để thực hiện một tác vụ như vậy trong Word, nhưng không phải trong Excel.

Tất nhiên, một giải pháp là tải sổ làm việc của bạn vào Word, thực hiện đếm từ ở đó, rồi đóng tệp. Tuy nhiên, điều này gần như không linh hoạt bằng việc tạo macro để đếm từ trong chính Excel. Macro sau đây, CountWords, đếm số lượng từ trong bất kỳ phạm vi nào bạn chọn trong trang tính:

Sub CountWords()

Dim MyRange As Range     Dim CellCount As Long     Dim TotalWords As Long     Dim NumWords As Integer     Dim Raw As String

Set MyRange = ActiveSheet.Range(ActiveWindow.Selection.Address)

TotalWords = 0     For CellCount = 1 To MyRange.Cells.Count         If Not MyRange.Cells(CellCount).HasFormula Then             Raw = MyRange.Cells(CellCount).Value             Raw = Trim(Raw)

If Len(Raw) > 0 Then                 NumWords = 1             Else                 NumWords = 0             End If             While InStr(Raw, " ") > 0                 Raw = Mid(Raw, InStr(Raw, " "))

Raw = Trim(Raw)

NumWords = NumWords + 1             Wend             TotalWords = TotalWords + NumWords         End If     Next CellCount     MsgBox "There are " & TotalWords & " words in the selection."

End Sub

Lưu ý rằng macro bước qua từng ô trong phạm vi bạn chọn.

Sau đó, nó bỏ qua bất kỳ ô nào có chứa công thức. Trong tất cả các ô khác, về cơ bản nó đếm số lượng khoảng trống trong ô. (Một hoặc nhiều khoảng trắng được cho là để phân tách các từ.) Sau đó, số lượng từ được hiển thị trong hộp thông báo để bạn chỉnh sửa.

Macro khá nhanh trên phạm vi tương đối nhỏ. Nếu bạn chọn một phạm vi lớn (chẳng hạn như toàn bộ trang tính), thì macro có thể mất rất nhiều thời gian để hoàn thành công việc của nó. Mục đích của điều này là đảm bảo rằng bạn chỉ chọn phạm vi thực tế bạn muốn phân tích trước khi gọi macro.

_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 (11748) áp dụng cho Microsoft Excel 2007, 2010, 2013 và 2016.