用下面的宏代码,可以统计整张工作表全部数据的字数: Sub 统计字数() Dim k As Integer, co As Integer, Str_Count As Long k = ActiveSheet.UsedRange.Rows.Count co = ActiveSheet.UsedRange.Columns.Count For i = 1 To k For j = 1 To co Str_Count = Str_Count + Len(Cells(i, j)) Next j Next i MsgBox Str_Count End Sub