如何利用vba，横向对比，每行提取出现最多的词

825894669 · 发表于 2019-9-15 16:02

如图所示，每行提取重复出现的值。
有没有大神有好的思路

liulang0808 · 发表于 2019-9-15 16:11

使用字典就可以的。。。或者结合函数countif函数使用的

825894669 · 发表于 2019-9-15 16:23

liulang0808 发表于 2019-9-15 16:11
使用字典就可以的。。。或者结合函数countif函数使用的

逐行使用字典么

mikezhan · 发表于 2019-9-15 16:25

提示: 作者被禁止或删除内容自动屏蔽

静看流年RSSQ · 发表于 2019-9-15 16:25

一千行，函数还是可以试一下的。

供参考。数组公式。
=IF(COUNTIF(A2:E2,A2:E2)=1,"",INDEX(A2:E2,IF((COUNTIF(A2:E2,A2:E2)=MAX(COUNTIF(A2:E2,A2:E2))),COLUMN(A2:E2))))

mikezhan · 发表于 2019-9-15 16:26

提示: 作者被禁止或删除内容自动屏蔽

lh123lh1234 · 发表于 2019-9-15 16:43

本帖最后由 lh123lh1234 于 2019-9-16 15:58 编辑

不对不对，要这样循环才行，更改一下
Sub test()
Dim i%, m%, rng As Range, a$
For i = 2 To [b1].End(xlDown).Row: m = 0
   For Each rng In Cells(i, "a").Resize(1, 5)
      If Application.CountIf(Cells(i, "a").Resize(1, 5), rng.Value) > m Then _
      m = Application.CountIf(Cells(i, "a").Resize(1, 5), rng.Value): a = rng.Value
   Next rng
   If m > 1 Then Cells(i, "f") = a
Next i
End Sub

deadzlq · 发表于 2019-9-15 17:11

PQ参考解法

825894669 · 发表于 2019-9-15 18:12

静看流年RSSQ 发表于 2019-9-15 16:25
一千行，函数还是可以试一下的。

供参考。数组公式。

公式显示的是第一列数值

825894669 · 发表于 2019-9-15 18:16

lh123lh1234 发表于 2019-9-15 16:43
一个循环就可以了
Sub test()
Dim i%

运行显示的是第一列数值

		自动登录	找回密码
密码			免费注册

[求助] 如何利用vba，横向对比，每行提取出现最多的词

评分

mikezhan mikezhan 当前离线性别保密 UID 736941 阅读权限 0 注册时间 2009-3-7 在线时间小时最后登录 1970-1-1 积分 975 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-9-15 16:25 \| 显示全部楼层 [广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★免费下载 ★ ★ 使用帮助★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

mikezhan mikezhan 当前离线性别保密 UID 736941 阅读权限 0 注册时间 2009-3-7 在线时间小时最后登录 1970-1-1 积分 975 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-9-15 16:26 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报