|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
回复 1304楼 zhoujianwen001 的帖子
用一个简单的宏可以自动操作,我试过论坛中有过的,不过不记得具体详情,因为未完全懂,只会用
:
Sub Uniquedata1()
Dim myList As New Collection, Cel As Range, itm, i As Integer
On Error Resume Next
'遍历数据区域的单元格
For Each Cel In Range("I1:I250")
'判断单元格内容是否为空
If Cel <> "" Then myList.Add Cel.Value, CStr(Cel.Value)
Next
On Error GoTo 0
i = 1
'将非重复值写入工作表
For Each itm In myList
Cells(i, 16) = itm
i = i + 1
Next
End Sub
这个可以灵活应用,适当修改即可。
[ 本帖最后由 cingdy 于 2009-7-1 16:10 编辑 ] |
|