|
![](https://clubstatic.excelhome.net/image/common/ico_lz.png)
楼主 |
发表于 2012-6-2 23:16
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
yjh_27 发表于 2012-6-2 21:08 ![](static/image/common/back.gif)
是这样吗 ?
非常感谢,要的就是这个效果。。。对了,一般这种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
复制代码 |
|