將重複資料刪除
- 帖子
- 113
- 主題
- 31
- 精華
- 0
- 積分
- 149
- 點名
- 0
- 作業系統
- xp & vista
- 軟體版本
- 2003 & 2007
- 閱讀權限
- 20
- 註冊時間
- 2010-12-29
- 最後登錄
- 2020-5-22
|
將重複資料刪除
我有一個檔案想要依據 A 欄判斷是否有重複
若在 A 欄中有重複的話就只留下第一筆資料
其餘的整行刪除
在 Excel 中有個巨集它是可以依照我的需求將重複的資料刪除
可是它連下面我的計算公式也會一起整行刪除
請問我該如何改我的程式呢?
謝謝~
Test.zip (13.3 KB)
|
|
|
|
|
|
|
- 帖子
- 113
- 主題
- 31
- 精華
- 0
- 積分
- 149
- 點名
- 0
- 作業系統
- xp & vista
- 軟體版本
- 2003 & 2007
- 閱讀權限
- 20
- 註冊時間
- 2010-12-29
- 最後登錄
- 2020-5-22
|
3#
發表於 2011-6-8 16:54
| 只看該作者
我知道 2007 有這功能
但我是 2003 的版本
不知道在 2003 是否有比較快速的方法呢?
謝謝~ |
|
|
|
|
|
|
- 帖子
- 113
- 主題
- 31
- 精華
- 0
- 積分
- 149
- 點名
- 0
- 作業系統
- xp & vista
- 軟體版本
- 2003 & 2007
- 閱讀權限
- 20
- 註冊時間
- 2010-12-29
- 最後登錄
- 2020-5-22
|
4#
發表於 2011-6-8 16:55
| 只看該作者
我知道 2007 有這功能
但我是 2003 的版本
不知道在 2003 是否有比較快速的方法呢?
謝謝~ |
|
|
|
|
|
|
- 帖子
- 12
- 主題
- 0
- 精華
- 0
- 積分
- 108
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 註冊時間
- 2010-5-23
- 最後登錄
- 2020-11-16
|
5#
發表於 2011-6-9 00:43
| 只看該作者
2003 的版本
資料>篩選>進階篩選>執行>
1 在原有範圍顯示篩選結果
2 資料範圍>a1:a20 (例)
3 不選重複的紀錄
確定 看合不合用 |
|
|
|
|
|
|
- 帖子
- 113
- 主題
- 31
- 精華
- 0
- 積分
- 149
- 點名
- 0
- 作業系統
- xp & vista
- 軟體版本
- 2003 & 2007
- 閱讀權限
- 20
- 註冊時間
- 2010-12-29
- 最後登錄
- 2020-5-22
|
6#
發表於 2011-6-9 03:17
| 只看該作者
2003 的版本我也知道可以這樣做
可是當我的資料有上萬筆的時候跑起來很慢
所以才想說可不可以用 vba 比較快將重複的資料刪除? |
|
|
|
|
|
|
- 帖子
- 1572
- 主題
- 16
- 精華
- 2
- 積分
- 1521
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office 2003
- 閱讀權限
- 150
- 性別
- 男
- 註冊時間
- 2010-5-1
- 最後登錄
- 2016-1-13

|
7#
發表於 2011-6-9 07:54
| 只看該作者
Dim EndRow As Integer: EndRow = Sheets(sheetsCaption).Range("a1").End(xlDown).Row |
|
|
|
|
|
|
- 帖子
- 113
- 主題
- 31
- 精華
- 0
- 積分
- 149
- 點名
- 0
- 作業系統
- xp & vista
- 軟體版本
- 2003 & 2007
- 閱讀權限
- 20
- 註冊時間
- 2010-12-29
- 最後登錄
- 2020-5-22
|
8#
發表於 2011-6-9 09:46
| 只看該作者
本帖最後由 Genie 於 2011-6-14 19:22 編輯
謝謝 oobird 可以順利的刪除重複的資料了
可是為什麼Range(Col & "65536").End(xlUp)改成Range("a1").End(xlDown)就可以了呢? |
-
-
Test.zip
(12.66 KB)
|
|
|
|
|
|
靜思自在 : 【時日莫空過】一個人在世間做了多少事,就等於壽命有多長。因此必須與時間競爭,切莫使時日空過。