用VBA把字典方法改写为数组
用VBA把字典方法改写为数组看这个http://pan.baidu.com/s/1cIDssu...
用VBA把字典方法改写为数组
看这个http://pan.baidu.com/s/1cIDssu 展开
看这个http://pan.baidu.com/s/1cIDssu 展开
2个回答
展开全部
'利用字典去重,下面是示例代码,去除第一列的重复项SubTest()'利用字典去重,字典的特性是key值不能重复DimDic,ArrDimiAsInteger,rAsIntegerDimStrAsStringr=Sheet1.Range("A65536").End(xlUp).RowIfr=1ThenExitSub'如果第一列没有数据那么退出程序SetDic=CreateObject("scripting.dictionary")'创建字典对象Fori=1Tor'将第一列数据添加到字典的key值中Dic(CStr(Cells(i,1)))=""NextArr=Dic.keys'返回字典key的数组SetDic=Nothing'销毁对象Str=Join(Arr,",")'将数组中的内容显示为一字符串MsgBoxStrEndSub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
Sub lqxs()
Dim arr, i&, j&
Sheet1.Activate
arr = [e8:e13]
For i = 1 To UBound(arr)
For j = 1 To UBound(arr)
If i <> j And arr(j, 1) = arr(i, 1) Then
Exit For
End If
Next
If j = UBound(arr) + 1 Then [g13] = "0次": Exit Sub
Next
[g13] = UBound(arr) & "次"
End Sub
来自：求助得到的回答
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
