以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]想要两个词语组合同时出现在一列文本记录中的次数！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178097)

--  作者：小梧桐 --  发布时间：2022/6/17 17:16:00 --  [求助]想要两个词语组合同时出现在一列文本记录中的次数！ 想要两个词语组合同时出现在一列文本记录中的次数，写了各代码，但是数据量有点大，求个简化的、计算快的代码~ 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              Next          Tables("原因0全部").Rows(i)("条目数") = a Next

--  作者：有点蓝 --  发布时间：2022/6/17 17:29:00 --   For each r as row in Tables("原因0全部").Rows     r("条目数") = Tables("全部原因").compute("count(原因)","原因 like \'%" & r("关键词1") & "%\' and 原因 like \'%" & r("关键词2") & "%\'") Next