貌似有难度。。。比较b列每行数据，相同字符超过10个，保留一行，剩余的删除

↘蓝颜↙小杀 · 发表于 2012-6-2 11:58

本帖最后由 ↘蓝颜↙小杀于 2012-6-2 14:44 编辑

要求：比较每行数据，相同字符超过10个，保留字符最多的行（如果不行，那随便保留哪行都可），剩余的行删除

可能有点小难度，求高手。。。

这样的数据很多，附件只是手工处理了一点

见附件：

新建 Microsoft Excel 工作表.rar (3.6 KB, 下载次数: 99)

doitbest · 发表于 2012-6-2 16:38

你这种要求有什么实际意义吗？
附件行数过少，不能反映全面情况

↘蓝颜↙小杀 · 发表于 2012-6-2 18:37

doitbest 发表于 2012-6-2 16:38
你这种要求有什么实际意义吗？
附件行数过少，不能反映全面情况

有部分数据不完全相同，但是意思却差不多，就要去掉

yjh_27 · 发表于 2012-6-2 21:08

本帖最后由 yjh_27 于 2012-6-2 21:16 编辑

是这样吗 ?

↘蓝颜↙小杀 · 发表于 2012-6-2 23:16

yjh_27 发表于 2012-6-2 21:08
是这样吗 ?

非常感谢，要的就是这个效果。。。对了，一般这种vba代码处理的数据量多了会出现问题，我有段代码您能帮我看看吗？作用是删除b列每行数据前六个字符重复的行，不过处理10万行数据的时候提示类型不匹配
，谢谢了~

Sub 宏1()
Dim rng, d As Object, i&
rng = Range([b1], [b65536].End(3))
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(rng)
If Not d.Exists(Left(rng(i, 1), 6)) Then d.Add Left(rng(i, 1), 6), "" Else rng(i, 1) = ""
Next
Range([b1], [b65536].End(3)) = rng
[b:b].SpecialCells(4).Delete (3)
End Sub

复制代码

yjh_27 · 发表于 2012-6-2 23:50

本帖最后由 yjh_27 于 2012-6-2 23:54 编辑

处理10万行数据
rng = Range([b1], [b65536].End(3))

LMY123 · 发表于 2017-6-13 19:03

雷同字符删除学习，感谢帮助

civiren · 发表于 2023-11-30 20:34

楼主太厉害，解决了实际问题

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

[求助] 貌似有难度。。。比较b列每行数据，相同字符超过10个，保留一行，剩余的删除