標題: [發問] 移除重複清單，並寫至指定頁面 [打印本頁]

---

作者: yifan2599    時間: 2016-11-16 22:30     標題: 移除重複清單，並寫至指定頁面

您好：
想請問一下，附件『DATA｜頁面有很多資料。
想將不管是否重複的 料號/品名/批號 ，都只帶一筆資料至『彙整』頁面。
如附加檔，請在幫忙解惑

---

作者: mistery    時間: 2016-12-21 10:49

Sub test()

    Sheets("DATA").Select
    Columns("A:C").Copy
   
    Sheets("彙整").Select
    Range("A1").Select
    ActiveSheet.Paste
   
    ActiveSheet.Range("A:C").RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes
   
End Sub

---

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