返回列表 上一主題 發帖

[發問] 移除重複清單，並寫至指定頁面

yifan2599
　暱稱: Mick

贊助會員Rank: 2

帖子
37 
主題
10 
精華
0 
積分
55 
點名
0  
作業系統
Win10(x64) 
軟體版本
Office 2016 (x64) 
閱讀權限
30 
性別
男 
註冊時間
2011-1-31 
最後登錄
2021-9-15 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-11-16 22:30 | 只看該作者

[發問] 移除重複清單，並寫至指定頁面

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

sample.zip (36.51 KB)

Sample

收藏 分享
人生不一定球球是好球，但是有歷練的強打者，隨時都可以揮棒。

mistery

帖子
82 
主題
5 
精華
0 
積分
115 
點名
0  
作業系統
Vista 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2010-5-1 
最後登錄
2025-2-6 
2#
發表於 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

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題