[已解决]列提取值

bbhiox

求助：根据C列内容，提取后的值成为E列内容，不使用分类汇总，该如何做，谢谢！表格具体见附件

最佳答案

月排行榜 / 总排行榜

ligh1298

2013-4-17 12:36

楼主：是不是想要这样的？见附件！

跳转到最佳答案楼层

csmctjg

1. 
   
2. Sub aa()
   
3.     Dim i%, arr, d As Object
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     arr = Range("C6:C" & [C65536].End(3).Row)
   
6.     For i = 1 To UBound(arr)
   
7.         d(arr(i, 1)) = ""
   
8.     Next
   
9.     [E6].Resize(d.Count) = Application.Transpose(d.keys)
   
10. End Sub
    

复制代码

ligh1298

楼主：是不是想要这样的？见附件！

紫晨

这种也能提不重复的数值,只是达不到排好序,需要重新排序

好兄弟

不知道这样做行不行，请不要见笑。

bbhiox

谢谢！！！！！继续努力！！！！！！！！！