1、选择你的数据表。
2、转到“数据”选项卡。
3、选择“从表/范围”选项。
这将打开功率查询编辑器，你可以在此处添加字数。
4、转到编辑器中的“添加列”选项卡。
5、选择“自定义列”选项。
这将打开“自定义列”公式编辑器。
6、为新列命名。
List.Count(Text.PositionOf([Text]," ",Occurrence.All)) 1
7、在自定义列公式输入区域中输入上述公式，其中[Text]是要计算单词的文本列。
8、按下“确定”按钮。
这将创建一个包含单词计数结果的新列。
Text.PositionOf函数将创建文本中每个空格字符的位置列表。List.COUNT函数然后对这个列表进行计数，得到空格的总数，然后将其加1，得到单词计数。
现在你可以将其加载回Excel。转到编辑器的“开始”选项卡，然后单击“关闭并加载”命令。然后从“导入数据”菜单中选择“表格”选项，然后按“确定”按钮。
这会将数据和新词计数列加载到所选位置的新表中。
使用VBA计数单词没有为计数单词而构建的Excel函数，但你可以使用VBA为此目的构建自己的自定义函数。
然后，你将能够通过对自定义函数的简单引用来获得字数。
转到“开发工具”选项卡，然后单击功能区“代码”部分中的visual basic选项。或者，也可以按键盘上的Alt F11打开visual basic编辑器。
Function WORDCOUNT(rng As Range)
Dim arrText() As String
Dim tempCount As Long
tempCount = 0
For Each c In rng
arrText = Split(c.Value, " ")
tempCount = tempCount (UBound(arrText) 1)
Next c
WORDCOUNT = tempCount
End Function
转到visual basic编辑器的“插入”选项卡，然后选择“模块”选项以添加新模块。然后将上述代码放入模块中。
该代码创建了一个名为WORDCOUNT的函数，该函数可以像Excel工作簿中的任何其他函数一样使用。
WORDCOUNT函数获取一个范围引用，然后将该范围中所有单元格的字数相加。
它通过循环遍历每个单元格并根据空格字符将文本拆分为一个数组来实现这一点。数组中的项数加1就是该单元格的字数。
此代码为每个单元格添加此项，以在循环通过范围时创建单词计数的运行总数。
