Đếm số từ trong một file của Excel ?

Cách làm như sau : 1. Mở Excel , bấm tổ hợp phím ALT-F11 2. Cửa sổ Microsoft Visual Basic mở ra , chọn menu Insert , chọn Module 3. Bạn cắt dán theo nội dung dưới đây Sub CountWords() Dim WordCount As Long Dim Rng As Range Dim S As String Dim N As Long For Each Rng In ActiveSheet.UsedRange.Cells S = Application.WorksheetFunction.Trim(Rng.Text) N = 0 If S <> vbNullString Then N = Len(S) - Len(Replace(S, " ", "")) + 1 End If WordCount = WordCount + N Next Rng MsgBox "So tu trong Sheet: " & Format(WordCount, "#,##0") End Sub 4 . Quay trở về Excel 5. Để chạy Macro này , bấm Tools , chọn Macro , chọn tiếp Macros , chạy CountWords