我要把一个工作表中的数据无重复添加到另一个工作表中

蒙蒙烟雪

这几天在学ADO, 试着写了下, 貌似速度不咋地 (想不出怎么一次性提取字段证券代码,只好掺杂一个字典, 巨汗 - -||| ) 附表.rar (114.98 KB, 下载次数: 10)

2015-1-28 00:03 上传

点击文件名下载附件

1. Sub test()
   
2. tt = Timer
   
3. Sheet3.UsedRange.Offset(1, 0).ClearContents
   
4. Sheet1.[f:f].Replace "万元", ""
   
5. Dim conn As Object, SQL$, MyFile$, rs As Object, PVDR$
   
6. Dim d As Object, Arr, r&, n&
   
7. Set d = CreateObject("scripting.dictionary")
   
8. Set conn = CreateObject("ADODB.Connection")
   
9. Set rs = CreateObject("ADODB.Recordset")
   
10. If Application.Version = "11.0" Then
    
11.     PVDR = "Provider=Microsoft.JET.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source="
    
12. Else
    
13.     PVDR = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source="
    
14. End If
    
15. MyFile = ThisWorkbook.FullName
    
16. SQL = "SELECT """",证券名称,SUM(IIF(异动类型='大额买单',单笔成交,0)) AS 大额买和,SUM(IIF(异动类型='大额卖单',单笔成交,0)) AS 大额卖和,"""","""",Max(IIF(异动类型='大额买单',单笔成交,0)) AS 最大买单,Max(IIF(异动类型='大额卖单',单笔成交,0)) AS 最大卖单 FROM [Sheet1$A1:F] GROUP BY 证券名称"
    
17. conn.Open PVDR & MyFile
    
18. Set rs = conn.Execute(SQL)
    
19. Sheet3.[A2].CopyFromRecordset rs
    
20. conn.Close
    
21. Set conn = Nothing
    
22. n = Sheet3.Cells(Rows.Count, 2).End(xlUp).Row
    
23. Arr = Sheet1.[a1].CurrentRegion
    
24. For r = 2 To UBound(Arr)
    
25.     d(Arr(r, 3)) = Arr(r, 2)
    
26. Next
    
27. For r = 2 To n
    
28.     Cells(r, 1) = d(Cells(r, 2).Value)
    
29. Next
    
30. Set d = Nothing
    
31. Range("e2:e" & n).FormulaR1C1 = "=rc[-2]-rc[-1]"
    
32. Range("f2:f" & n).FormulaR1C1 = "=rc[-3]/rc[-2]"
    
33. [f:f].SpecialCells(xlCellTypeFormulas, 16) = "无大卖单"
    
34. MsgBox Timer - tt
    
35. End Sub

复制代码

hqmtba

    有感于各位的关注特别是“Vicel”及“guaxiaodai11”的热情帮助，还借用了其他一些老师的代码，把我在论坛中的学习成果分享一下，也许对有些朋友会有所帮助！喝水不忘挖井人！基于对附件大小的限制，我删除了大部分数据，但下载后可以通过代码重新下载生成。里面肯定还有不少瑕疵，其中就包括我在28楼所说的问题，还有“凤凰市场雷达导入”中也运用的大量的公式和格式，以致体量有点大，运行速度还是不尽如人意。特别说明：“深沪Ａ股20150116”为“凤凰市场雷达导入”中的公式源文件，“凤凰市场雷达导入”中含公式部分只保留了前三行。

Vicel

hqmtba 发表于 2015-1-27 23:26
这个我注意到了，不应该一致的，是吧！

我的意思是代码放到你自己的工作簿里时，要注意工作表名与代码里的是否相应

hqmtba

    研究得有点着迷了，但是该休息了！

hqmtba

Vicel 发表于 2015-1-28 00:03

非常感谢您的帮助，完全达到了我得要求！

hqmtba

Vicel 发表于 2015-1-28 00:03

      又有个小问题，我研究了半天还是没辙，需要帮忙，就是Sheet1的H列—L列，在导入数据前没有把第一行以下数据清空，导致本次运行后，还残留上次的一部分数据（上次总行数比本次总行数多出的那部分行数），具体请参照插图，13683行以下的数据为上次的残留。

hqmtba

Vicel 发表于 2015-1-28 00:05
我的意思是代码放到你自己的工作簿里时，要注意工作表名与代码里的是否相应

      明白

hqmtba

      像"Vicel”老师一样的热情和耐心是我深入学习Excel的强大动力，实际上我还有好多问题，就是觉得不好意思花费老师们的太多时间精力，还是想先自己琢磨，实在不行再向老师请教，这样自己也能学得更多和更扎实，也有利于消化已经知道的一些东西！也请老师到时不吝赐教！

Vicel

hqmtba 发表于 2015-1-28 16:19
又有个小问题，我研究了半天还是没辙，需要帮忙，就是Sheet1的H列—L列，在导入数据前没有把第一 ...

你sheet1导入数据前，用usedrange.offset(1,0).clearcontents把除标题行以外的数据先清除掉

hqmtba

Vicel 发表于 2015-1-28 18:27
你sheet1导入数据前，用usedrange.offset(1,0).clearcontents把除标题行以外的数据先清除掉

      已解决，原来总想着在您给得代码里加入清除单元格的内容，总成功不了，在您的提示之下，在运行您的代码前做清除。但可不可以这样说：“Sheets("Sheet1").Range("A2:L65536").ClearContents”会比“Sheets("Sheet1").usedrange.offset(1,0).clearcontents”的效率高些？当然前提是我只需要清除A-L列的内容。