[分享]字典+数组的多列数据不重复值查询.应用实例

彭希仁

QUOTE:

以下是引用tiger744990在2007-11-22 14:33:35的发言：

嗯,很好的．这种方法,与1楼的龙兄代码的思维方式一致，他用了动态数组．

这句Sheet2.[a2].Resize(10000, 7) = temp，改为Sheet2.[a2].Resize(x, 7) = temp,则更快．

谢谢，彭希仁、lj1226189老师让我对知识巩固了，加深了．我的２楼代码中，的确多了一个For...Next.

高

[此贴子已经被作者于2007-11-22 14:39:35编辑过]

northwolves

数据量大时,使用ADO+SQL可能要稍快些.楼主的示例数据太少.

Private Sub CommandButton1_Click()
Dim n As Long, T As Single
n = [a65536].End(xlUp).Row
Sheets("统计结果").[a2:g65536] = ""
T = Timer
Application.ScreenUpdating = False
With CreateObject("ADODB.Connection")
.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no;';data source=" & ThisWorkbook.FullName
Sheets("统计结果").[a2].CopyFromRecordset .Execute("select F1,F2,F3,F4,SUM(F5),SUM(F6),SUM(F7)  from [原始数据$a2:G" & n & "] group by F1,F2,F3,F4")
.Close
End With
Application.ScreenUpdating = True
MsgBox "Total:= " & Format(Timer - T, "0.000") & "s"
End Sub

彭希仁

QUOTE:

以下是引用northwolves在2007-11-22 17:52:10的发言：

数据量大时,使用ADO+SQL可能要稍快些.楼主的示例数据太少.

Private Sub CommandButton1_Click()
Dim n As Long, T As Single
n = [a65536].End(xlUp).Row
Sheets("统计结果").[a2:g65536] = ""
T = Timer
Application.ScreenUpdating = False
With CreateObject("ADODB.Connection")
.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no;';data source=" & ThisWorkbook.FullName
Sheets("统计结果").[a2].CopyFromRecordset .Execute("select F1,F2,F3,F4,SUM(F5),SUM(F6),SUM(F7)  from [原始数据$a2:G" & n & "] group by F1,F2,F3,F4")
.Close
End With
Application.ScreenUpdating = True
MsgBox "Total:= " & Format(Timer - T, "0.000") & "s"
End Sub

狼版最有发言权.学习

FLAMETOBOY

谢谢各位高手的事例，让小弟眼底发亮，收藏

abcd321abcd

先作一标记，回头慢慢消化。

hhzjxss

谢谢了，不错！

兰州人

一定要将数组搞定。

leekingnet

谢谢楼主分享

hhzjxss

谢谢大家了，那次我找这个东东，问了N多的人，N多的论坛！

headbegger

好，先做个记号，学习学习！