[求助]想要两个词语组合同时出现在一列文本记录中的次数！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

想要两个词语组合同时出现在一列文本记录中的次数，写了各代码，但是数据量有点大，求个简化的、计算快的代码~

Dim i As Integer

Dim j As Integer

Dim a As Integer

For i = 0 To Tables("原因0全部").Rows.count-1

a=0

For j = 0 To Tables("全部原因").Rows.count-1

If Tables("全部原因").Rows(j)("原因").contains(Tables("原因0全部").Rows(i)("关键词1")) And Tables("全部原因").Rows(j)("原因").contains(Tables("原因0全部").Rows(i)("关键词2")) Then

a= a+1

End If

Tables("原因0全部").Rows(i)("条目数") = a

主题：[求助]想要两个词语组合同时出现在一列文本记录中的次数！