VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >

  • excel vba教程之用字典筛选重复值 by:oobird

1.  用字典筛选重复值 by:oobird

Private Sub CommandButton3_Click()
‘by:oobird
‘dictionary查找.xls
‘http://club.excelhome.net/dispbbs.asp?boardID=2&ID=239140&page=1&px=0
Dim dic As Object, i%
 
Columns(2).Clear
Set dic = CreateObject("Scripting.Dictionary")
  For i = 1 To 10
  If Not dic.exists(Application.Large([a1:a10], i)) Then      ‘用最大值排序
dic.Add Application.Large([a1:a10], i), ""
End If
 Next
Range("b1").Resize(dic.Count, 1) = WorksheetFunction.Transpose(dic.keys)
Set dic = Nothing
End Sub
 
狼版主的颜色对应Hex值
http://club.excelhome.net/dispbbs.asp?boardid=2&id=239127&star=1#838565
http://100055.myabc.cn/home/blog/view/6931.htm

相关教程