提取关键字重复的数据并统计重复的组数

grf1973 · 发表于 2023-6-29 09:29

换个思路，代码更简洁明了。

APPLE123 · 发表于 2023-6-29 10:48

盼盼198310 发表于 2023-6-29 08:30
................

谢谢老师的帮助！
可否增加弹窗提示共有几组重复数据几条重复记录
谢谢

APPLE123 · 发表于 2023-6-29 10:52

fzxba 发表于 2023-6-29 08:46

谢谢老师的帮助！
可否在结果表中增加一颗计数作为新序号
谢谢
另外请教一下
For Each k In dict.Keys
i = .UsedRange.Find("*", , -4163, 1, 1, 2).Row + 1
dict(k).Copy .Range("A" & i)
Next
i = .UsedRange.Find("*", , -4163, 1, 1, 2).Row - 1
这是什么意思？ -4163起什么作用？
麻烦老师了

盼盼198310 · 发表于 2023-6-29 10:53

本帖最后由盼盼198310 于 2023-6-29 10:54 编辑

APPLE123 发表于 2023-6-29 10:48
谢谢老师的帮助！
可否增加弹窗提示共有几组重复数据几条重复记录
谢谢

...............

APPLE123 · 发表于 2023-6-29 10:57

grf1973 发表于 2023-6-29 09:29
换个思路，代码更简洁明了。

谢谢老师的帮助！已提取重复数据！
可否增加弹窗提示共有几组重复数据几条重复记录
并在提取结果表中增加一列计数所为新序号
谢谢

APPLE123 · 发表于 2023-6-29 11:04

ykcbf1100 发表于 2023-6-29 08:54
附件供参考。。。

谢谢老师的帮助！
可否再增加弹窗提示“共有几组重复数据几条重复记录”
谢谢

ykcbf1100 · 发表于 2023-6-29 11:34

本帖最后由 ykcbf1100 于 2023-6-29 11:38 编辑

APPLE123 发表于 2023-6-29 11:04
谢谢老师的帮助！
可否再增加弹窗提示“共有几组重复数据几条重复记录”
谢谢

小改一下即可。

APPLE123 · 发表于 2023-6-29 12:49

Yalishanda30 发表于 2023-6-29 08:53
测试。。。。。。

谢谢老师帮助！
请教一下，为何将代码复制到其他工作簿运行会提示：用户定义类型未定义 clsSQL As ClassSQL

Yalishanda30 · 发表于 2023-6-29 12:51

APPLE123 发表于 2023-6-29 12:49
谢谢老师帮助！
请教一下，为何将代码复制到其他工作簿运行会提示：用户定义类型未定义 clsSQL As Class ...

类模块也要复制过去

APPLE123 · 发表于 2023-6-29 12:59

Yalishanda30 发表于 2023-6-29 12:51
类模块也要复制过去

谢谢老师的指点，谢谢！

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

[求助] 提取关键字重复的数据并统计重复的组数

评分

评分

评分

评分