比对问题,请大神入

wm1364950 · 发表于 2016-5-20 15:44

厉害厉害，实力有限，我估计我这代码要跑40多分钟(理论时间)

fkshcn · 发表于 2016-5-20 15:53

simon5412 发表于 2016-5-20 15:43
汗，原来还是你，不是发了个自定义函数了吗，难道没对？
http://club.excelhome.net/forum.php?mod=viewth ...

能不能你弄好给我,我不懂VBA

wm1364950 · 发表于 2016-5-20 15:53

本帖最后由 wm1364950 于 2016-5-20 15:54 编辑

你点那个按钮，然后等着

gbtt520 · 发表于 2016-5-20 15:57

'这样??
Sub Comm()
Dim D As Object, i As Long, N As Long
Dim K, M, P, MM
With Worksheets("sheet1")
Set D = CreateObject("scripting.dictionary")
N = .[A65536].End(3).Row
For i = 2 To N
MM = Worksheets("sheet1").Cells(i, 1).Value
D(MM) = D(MM) + 1
Next
  K = D.keys
  M = D.items
  P = D.Count
Worksheets("sheet2").Columns(2).Clear
Worksheets("sheet2").Columns(3).Clear
Worksheets("sheet2").[B2].Resize(P, 1) = Application.Transpose(K)
Worksheets("sheet2").[C2].Resize(P, 1) = Application.Transpose(M)
End With
End Sub

fkshcn · 发表于 2016-5-20 15:59

wm1364950 发表于 2016-5-20 15:53
你点那个按钮，然后等着

40分钟也很厉害了啊,对于电脑跑了4天的人来说,你已经不是一般的强了

wm1364950 · 发表于 2016-5-20 16:05

fkshcn 发表于 2016-5-20 15:59
40分钟也很厉害了啊,对于电脑跑了4天的人来说,你已经不是一般的强了

我只是跑了第四个表的数据测试了一下，然后取处理那些数据的时间，大概算下要40多分钟，我不知道电脑会不会死机。或者你可以把数据分开直行，就像我测试那样

wm1364950 · 发表于 2016-5-20 16:14

fkshcn 发表于 2016-5-20 15:59
40分钟也很厉害了啊,对于电脑跑了4天的人来说,你已经不是一般的强了

如果跑完了，VBE里的立即窗口有个时间打印出来，告诉我一下，O(∩_∩)O哈哈~

山菊花 · 发表于 2016-5-22 11:16

供参考。

fkshcn · 发表于 2016-5-27 13:16

2个大神,其中1个帮了我2次,,太感激了

wm1364950 · 发表于 2016-5-27 13:36

山菊花发表于 2016-5-22 11:16
供参考。

大神好厉害，学习了

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

[求助] 比对问题,请大神入

评分