3W+行、30列的数据+公式，求比对代码？（问题更新）

武松打狗 · 发表于 2011-1-21 11:13

　　之前只玩过公式，前几天遇到这个难题，用公式的话机子承受不了，原帖地址在：http://club.excelhome.net/viewthread.php?tid=675049

　　看到11楼的灰袍法师建议我用VBA的字典来提速，本人电脑知识有限，顶多只会写几个简单的批处理，对EXCEL里的VBA代码一时……，故来求助各位大侠。

　　相同的附件传一份在这里：

号码信息.rar (6.58 KB, 下载次数: 23)

　　问题更新：A列（假设6W+）数据，我想查找重复数据，在这个帖子中发现他的要求和我一样的：http://club.excelhome.net/viewthread.php?tid=531017，只不过我不要求在A列直接体现出来，而是要在C列不管是不是第一次出现的，都注明“重复”OR“空白”（不重复）为手工删除做出一个判断依据。应该怎么改那个帖子中6楼“来生缘”大侠做的附件？
　　附上“来生缘”大侠写的XLS： Book3.rar (161.63 KB, 下载次数: 26)

2011-1-21 18:09 上传
点击文件名下载附件

[ 本帖最后由武松打狗于 2011-1-23 14:39 编辑 ]

武松打狗 · 发表于 2011-1-21 11:38

　　另外今天早上遇到一个问题，这3W+行的数据里有重复的，我用countif来比对，公式一拉，后面的结果大家懂得的……

Zamyi · 发表于 2011-1-21 12:03

根本不需字典，instr可以了。多弄些数据吧。

HadesBoss · 发表于 2011-1-21 12:18

用数组就行了

Sub h()
Dim aCol, aRow, arr, i&, j&
aCol = Sheet1.Range("D1:M1")'可以延伸为你需要的列
aRow = Sheet1.Range("A2:A30000")'可以延伸为你需要的行
arr = Sheet1.Range("D2:M30000")
For i = 1 To UBound(aRow) - 1
For j = 1 To UBound(aCol, 2)
If InStr(aRow(i, 1), aCol(1, j)) Then
arr(i, j) = True
Else
arr(i, j) = False
End If
Next
Next
Sheet1.Range("D2:M30000") = arr
End Sub

复制代码

[ 本帖最后由 HadesBoss 于 2011-1-21 12:20 编辑 ]

武松打狗 · 发表于 2011-1-21 15:26

感谢以上两位的回复。

这代码怎么弄到我机子上就变得没效果了呢？能否传个附件上来让我模仿一下？

PS：不好意思，这下又好像有效果了，我琢磨琢磨

[ 本帖最后由武松打狗于 2011-1-21 15:38 编辑 ]

武松打狗 · 发表于 2011-1-21 18:15

今天傍晚问题更新一下，希望各位大侠能够在百忙之中满足我这个还没入门的小菜鸟这点小小小小的要求。

HadesBoss · 发表于 2011-1-21 19:02

原帖由 武松打狗 于 2011-1-21 11:13 发表
　　之前只玩过公式，前几天遇到这个难题，用公式的话机子承受不了，原帖地址在：http://club.excelhome.net/viewthread.php?tid=675049

　　看到11楼的灰袍法师建议我用VBA的字典来提速，本人电脑知识有限，顶多 ...

号码信息.rar (11.97 KB, 下载次数: 35)

武松打狗 · 发表于 2011-1-23 14:40

问题已解决，感谢HadesBoss两回出手相助。非常感谢。

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

[已解决] 3W+行、30列的数据+公式，求比对代码？（问题更新）