VB提取不重复数据并进行排列

iuin_01 · 发表于 2017-5-12 15:00

VB提取不重复数据并进行排列.zip (28.39 KB, 下载次数: 20)
哪位老师能帮我看看，如何实现VB提取不重复数据并将数据排列，最好帮我再写一下注释，方便学习和研究，本人菜鸟！

池盛龙 · 发表于 2017-5-21 12:15

只能给你代码了，附件有工程密码，
Private Sub CommandButton1_Click()

Dim d, arr, x As Integer '汇总代码

arr = Range(Cells(2, "I"), Cells(Range("I65536").End(xlUp).Row, "I"))

Set d = CreateObject("scripting.dictionary")

For x = 1 To UBound(arr)

d(arr(x, 1)) = ""

Next x

Sheet2.[A3].Resize(d.Count) = Application.Transpose(d.keys)

End Sub

lss001 · 发表于 2017-5-21 12:51

本帖最后由 lss001 于 2017-5-21 18:03 编辑

Sub TQ()
x = [l1].End(4).Row'把I列最后一个单元地址赋给x
ar = Range("I2:I" & x)'把l列第2至第x单元格值写入数组ar
Set d = CreateObject("scripting.dictionary")'建立字典对象d
For i = 1 To UBound(ar)'循环数组ar
      d(ar(i, 1)) = ""'把数组ar不重复值写入字典
Next'结束循环
      Sheet2.[a2].Resize(d.Count) = Application.Transpose(d.keys)'把转置后字典数组写入Sheete2以[a2]开始的单元格
      Sheet2.range(cells(2, 1), cells(x, 1)).Sort Key1:=range("a2"), Order1:=1'升序排序Sheet2第1列以a2开始的单元格(注:如要降序排序可把"Order:=1"中1改为2)
End Sub

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