Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2123|回复: 6

[已解决]VBA提取重复上X行及X连号

[复制链接]
发表于 2015-11-7 23:21 | 显示全部楼层 |阅读模式
本帖最后由 56899 于 2015-11-10 21:00 编辑

在先有VBA里增加可调节X连号,原理参看另一贴子:http://www.excelpx.com/thread-371746-1-1.html
谢谢各位老师! VBA提取重复上X行及X连号.zip (26.51 KB, 下载次数: 13)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2015-11-8 00:23 | 显示全部楼层
没有明白你所谓的二连号是什么意思,就你原代码而言,修改了一下,与你的结论不同,你还是把你要的意思表达明白一下吧。
上行X行是什么意思????

VBA提取重复上X行及X连号.zip

26.93 KB, 下载次数: 5

回复

使用道具 举报

 楼主| 发表于 2015-11-8 17:22 | 显示全部楼层
fjmxwrs 发表于 2015-11-8 00:23
没有明白你所谓的二连号是什么意思,就你原代码而言,修改了一下,与你的结论不同,你还是把你要的意思表达 ...

谢谢斑主,以 123456789这行数字为例;二连号的有12,23,34,45,56,67,78,89,三连号的有123,234,345,456,567,678,789
四连号的有1234,2345,3456,4567,5678,6789,以此类推。实际上就是把原来的二连号扩展到任意连号,并同时也把第二步提取号
X连号的程序也放在一块,一键完成就方便了。

引用grf1973老师的解释VBA的原理:1、数据区域为:上X行和本统计行,共X+1行。
2、记录上X行所有出现二连号
3、本统计行和上X行所有出现的二连号相比对,如果有重复,则计数+1,重复几次加几次。

参看grf1973老师 8楼的帖子内附件 http://www.excelpx.com/thread-371809-1-1.html
回复

使用道具 举报

发表于 2015-11-9 09:36 | 显示全部楼层
还是哥哥出手吧。
优化了原代码中的排序方法。

VBA提取重复上X行及X连号.rar

21.34 KB, 下载次数: 12

回复

使用道具 举报

 楼主| 发表于 2015-11-9 20:20 | 显示全部楼层
本帖最后由 56899 于 2015-11-9 20:21 编辑
重复上一行和上二行 提取4连号.jpg grf1973 发表于 2015-11-9 09:36
还是哥哥出手吧。
优化了原代码中的排序方法。

感谢grf1973老师的帮助,但提取程序有些出入了.附上 手工示例了提取“重复上一行”的4连号及“重复上二行”的4连号 的图,供参考!
回复

使用道具 举报

发表于 2015-11-10 11:02 | 显示全部楼层    本楼为最佳答案   
你的示例是从上往下数的连号,原代码是从下往上数的连号。新附件把两种情况都做在里面了。你的要求在T列。

VBA提取重复上X行及X连号.rar

22.86 KB, 下载次数: 6

评分

参与人数 1 +3 收起 理由
56899 + 3 很给力!

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2015-11-10 21:02 | 显示全部楼层
grf1973 发表于 2015-11-10 11:02
你的示例是从上往下数的连号,原代码是从下往上数的连号。新附件把两种情况都做在里面了。你的要求在T列。

非常感谢老师的VBA~!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 08:42 , Processed in 0.616720 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表