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