標題: [發問] 如何使用VBA提取唯一值呈現於非資料來源之工作表 [打印本頁]

---

作者: p212    時間: 2014-8-8 09:23     標題: 如何使用VBA提取唯一值呈現於非資料來源之工作表

本帖最後由 p212 於 2014-8-8 09:30 編輯

由於資料筆數眾多，使用陣列函數提取唯一值處理效率甚差。
就圖示範例，煩請各位前輩賜教，如何使用VBA提取唯一值呈現於非資料來源之工作表(Fig2)，謝謝！

---

作者: mistery    時間: 2014-8-26 15:15

Sub test()
    Columns("C:C").Select
    Columns("C:C").AdvancedFilter Action:=xlFilterCopy, _
    CopyToRange:=Sheets(2).Range("A1"), Unique:=True
    Sheets(2).Select
End Sub

---

作者: mistery    時間: 2014-8-26 15:23

也可以試試這個

Sub test2()

    Columns("C").Copy Sheets(2).Columns("A")
    Sheets(2).Columns("A:A").RemoveDuplicates Columns:=1, Header:=xlYes

End Sub

---

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