请教各位大神如何用VBA实现排除

ykcbf1100 · 发表于 2023-5-31 14:28

向不知道为什么老师学一个，不知道有没有理解对。

笨鸟飞不高 · 发表于 2023-5-31 15:07

本帖最后由笨鸟飞不高于 2023-5-31 15:27 编辑

3333.zip (16.13 KB, 下载次数: 6)

不知道为什么 · 发表于 2023-5-31 15:55

ykcbf1100 发表于 2023-5-31 14:28
向不知道为什么老师学一个，不知道有没有理解对。

兄台谦虚拉。互相学习哦。

对楼主第一个要求：需要连续3个数及以上，因楼主没有说明清晰：1 每排数字是否升序排列？ 2 是否允许重复数字。
所以您的代码针对第一条可能会出现排除有误。如果无序（1 3 5 4 2 6）或者有重复数字（1 2 2 3 4 6）。
若说的不对，请兄台谅解

ykcbf1100 · 发表于 2023-5-31 16:14

不知道为什么发表于 2023-5-31 15:55
兄台谦虚拉。互相学习哦。

哈哈，老师说的对。还是你的代码合适。

思维百宝箱 · 发表于 2023-5-31 19:25

不知道为什么发表于 2023-5-31 11:47
附件。。。。。。。。。

谢谢不知道为什么老师的帮忙

思维百宝箱 · 发表于 2023-5-31 19:27

感谢群友的帮忙，你们的热情我感受到了，真的很感谢～！

思维百宝箱 · 发表于 2023-5-31 19:29

不知道为什么发表于 2023-5-31 15:55
兄台谦虚拉。互相学习哦。

谢谢老师指正，是升序排列，是没有重复数字的

全党 · 发表于 2023-5-31 22:01

利用字典排重特性记录符合条件的行号，试试。。。。。。。。。。。。

全党 · 发表于 2023-6-1 10:00

没注意你还要删除，给你重新改了一下，试试。

无雨谷 · 发表于 2023-6-1 11:06

吴中泉发表于 2023-5-31 11:58
二师兄好快啊,高产作家

老表进步也快，我一直是普通搬运工，不会写。知其然，不知所以然

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

[已解决] 请教各位大神如何用VBA实现排除