返回列表 上一主題 發帖

將重複資料刪除

Genie

帖子
113 
主題
31 
精華
0 
積分
149 
點名
0  
作業系統
xp & vista 
軟體版本
2003 & 2007 
閱讀權限
20 
註冊時間
2010-12-29 
最後登錄
2020-5-22 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-6-8 15:03 | 只看該作者

將重複資料刪除

我有一個檔案想要依據 A 欄判斷是否有重複
若在 A 欄中有重複的話就只留下第一筆資料
其餘的整行刪除

在 Excel 中有個巨集它是可以依照我的需求將重複的資料刪除
可是它連下面我的計算公式也會一起整行刪除

請問我該如何改我的程式呢？

謝謝∼
Test.zip (13.3 KB)
收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
276  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-12-22 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2011-6-8 15:38 | 只看該作者
回復 1# Genie

play.gif
學海無涯_不恥下問

TOP

Genie

帖子
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 是否有比較快速的方法呢？
謝謝∼

TOP

Genie

帖子
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 是否有比較快速的方法呢？
謝謝∼

TOP

wang

帖子
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 不選重複的紀錄
確定                            看合不合用

TOP

Genie

帖子
113 
主題
31 
精華
0 
積分
149 
點名
0  
作業系統
xp & vista 
軟體版本
2003 & 2007 
閱讀權限
20 
註冊時間
2010-12-29 
最後登錄
2020-5-22 
6#
發表於 2011-6-9 03:17 | 只看該作者
2003 的版本我也知道可以這樣做
可是當我的資料有上萬筆的時候跑起來很慢
所以才想說可不可以用 vba 比較快將重複的資料刪除？

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
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

TOP

Genie

帖子
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)

TOP

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題