[已解决]vba怎么实现把某一列不重复的内容依次排列在另外一列？

ampa

vba怎么实现把某一列不重复的内容依次排列在另外一列？譬如，我的a列有
b
b
b
a
a
a
c
c
我想把
b
a
c
依次排列在b列，
由于数据需要更新，a列不重复的内容可能不止abc，所以想写一段代码来实现，请问vba代码该怎么写？谢谢各位老师

最佳答案

月排行榜 / 总排行榜

hrpotter

2012-3-6 17:44

1. Sub test()
   
2.     Dim d As Object
   
3.     Dim i As Long
   
4.     Dim ar
   
5.     On Error Resume Next
   
6.     Set d = CreateObject("scripting.dictionary")
   
7.     ar = Range("a1:a" & Range("a65536").End(xlUp).Row)
   
8.     For i = 1 To UBound(ar)
   
9.         d(ar(i, 1)) = ""
   
10.     Next i
    
11.     Range("b:b").Clear
    
12.     Range("b1").Resize(d.Count, 1) = Application.Transpose(d.keys)
    
13. End Sub

复制代码

跳转到最佳答案楼层

hrpotter

1. Sub test()
   
2.     Dim d As Object
   
3.     Dim i As Long
   
4.     Dim ar
   
5.     On Error Resume Next
   
6.     Set d = CreateObject("scripting.dictionary")
   
7.     ar = Range("a1:a" & Range("a65536").End(xlUp).Row)
   
8.     For i = 1 To UBound(ar)
   
9.         d(ar(i, 1)) = ""
   
10.     Next i
    
11.     Range("b:b").Clear
    
12.     Range("b1").Resize(d.Count, 1) = Application.Transpose(d.keys)
    
13. End Sub

复制代码

cbg2008

这个是典型的字典解法

'声明函数名与参数,参数不确定
'第一参数为必须参数,其后为可选参数。参数可以是区域、文本、常量数组，及表达式
Function only(Item As Long, ParamArray rng()) As String
  With CreateObject("scripting.dictionary")  '创建字典引用
    On Error Resume Next   '防错
    Dim arr, cell As Range, cell2 As Variant, arr2 '声明变量
    For Each arr In rng  '遍历参数rng
      If TypeName(arr) = "Range" Then '如果参数是单元格引用
        For Each cell In arr '遍历所有单元格
        If Len(cell) > 0 Then .Add CStr(cell.Text), "" '如果单元格非空，则加入字典中
        Next cell
      ElseIf TypeName(arr) = "Variant()" Then '如果是数组
        For Each cell2 In arr  '遍历数组的每一个元素
         If Len(cell2) > 0 Then .Add CStr(cell2), "" '添加到字典中
        Next cell2
      ElseIf TypeName(arr) = "Error" Then '如果错误值
                        '完全忽略
      Else  '如果是其它值
         If Len(arr) > 0 Then .Add CStr(arr), ""  '如果非空，则加入字典中
      End If
    Next
    arr2 = .keys '输出字典的关键字
    only = arr2(Item - 1) '取值，赋予函数作为结果
  End With
End Function

ampa

hrpotter 发表于 2012-3-6 17:44

太谢谢啦 如果是把b列再排个序哪？

hrpotter

ampa 发表于 2012-3-6 18:12
太谢谢啦 如果是把b列再排个序哪？

排序的话直接点排序就行了呀，或者录个排序的宏，放在刚才的代码后面就行了

jzzhmm425

hrpotter 发表于 2012-3-6 17:44

【求助】帅哥能不能抽空看看帮我遇到的问题了，谢谢了。
http://www.excelpx.com/thread-298256-1-1.html