用vba代码提取某列中不重复值

TY1011 · 发表于 2009-6-18 16:26

请问双字典是如何写代码呢

alzeng · 发表于 2009-6-18 17:24

原帖由 TY1011 于 2009-6-18 16:26 发表
请问双字典是如何写代码呢

双字典列重.rar (8.81 KB, 下载次数: 340)

TY1011 · 发表于 2009-6-19 00:28

谢谢！学习中

TY1011 · 发表于 2009-6-19 00:32

一念大师能不能讲解下你的代码，期待中

diablo0583 · 发表于 2009-6-27 17:14

LangQueS 的最爽

来生缘 · 发表于 2009-6-27 17:27

原帖由 LangQueS 于 2009-5-14 23:21 发表
建议使用高级筛选：

GOOD，很多人挖空心思想很多歪招来解决问题，但却忽略了EXCEL本身的功能，悲乎？

weiguoyin868 · 发表于 2009-6-27 17:34

Sub 筛选()
Dim oCnn As Object, sSql As String
Set oCnn = CreateObject("adodb.connection")
oC
nn.Open "
Provider=Microsoft.Jet.OleDb.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
   sSql = "select DISTINCT 数据 from [Sheet1$A1:A10] "
   Sheet1.Range("B2").CopyFromRecordset oCnn.Execute(sSql)

oCnn.Close
  Set oCnn = Nothing
End Sub
如果数据量大，可以使用QSL语句，绝对快。以上代码测试过。

[ 本帖最后由 weiguoyin868 于 2009-6-27 17:36 编辑 ]

alzeng · 发表于 2009-6-27 18:12

原帖由 来生缘 于 2009-6-27 17:27 发表

GOOD，很多人挖空心思想很多歪招来解决问题，但却忽略了EXCEL本身的功能，悲乎？

就法论法而已，有什么可悲的？
任何一种方法都有其不可替代的长处，也有不及于它的短处，这也正是多种方法要并存的必要性。高级筛选诚然很强大，值得重视，但也有其应用场合的局限性。告诉别人可以用字典的方法，并不是说字典的应用在这里就是最好的，最适宜的。
不同的人能看到问题的不同面，各取所用，并非每个人都是侠圣，^_^

weiguoyin868 · 发表于 2009-6-27 19:16

同意18楼的观点，对任何人而言，方便快捷能解决问题，就行。

jebsee · 发表于 2009-7-10 14:25

多谢了,TKS!!!!!

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

[原创] 用vba代码提取某列中不重复值

回复 9楼 alzeng 的帖子

回复 12楼 alzeng 的帖子

回复 12楼 alzeng 的帖子

回复 3楼 LangQueS 的帖子