標題: [分享] 困擾了三分鐘的問題，excel取不重複值，已爬文找到答案，分享上來 [打印本頁]

---

作者: ketrddem    時間: 2016-4-25 23:45     標題: 困擾了三分鐘的問題，excel取不重複值，已爬文找到答案，分享上來

想著如何用vba實現。上網爬了文，找到了答案
執行效果也很好，分享上來

Sub 取不重複值()
    Dim myList As New Collection, Cel As Range, itm, i As Integer
    On Error Resume Next '遍歷數據區域的單元格
    For Each Cel In Sheets("資料所在的工作表").Range("R1:R65536")
        If Cel <> "" Then myList.Add Cel.Value, CStr(Cel.Value)'判斷單元格內容是否為空
    Next
    Sheets("工作表1").Range("a:a").NumberFormatLocal = "@"
    On Error GoTo 0
    i = 1 '將非重複值寫入工作表
    For Each itm In myList
        Sheets("準備要輸入的工作表").Cells(i, 1) = Format(itm, "@")
        i = i + 1
    Next
End Sub

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)