麻辣家族討論版版 » Excel程式區 » 將重複資料刪除

返回列表下一主題上一主題發帖

將重複資料刪除

中學生 Rank: 2

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

樓主熱帖

收藏

超級版主 Rank: 8 Rank: 8

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

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-6-8 15:38 | 只看該作者

回復 1# Genie

學海無涯_不恥下問

中學生 Rank: 2

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

中學生 Rank: 2

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

中學生 Rank: 2

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

中學生 Rank: 2

帖子: 113
主題: 31
精華: 0
積分: 149
點名: 0
作業系統: xp & vista
軟體版本: 2003 & 2007
閱讀權限: 20
註冊時間: 2010-12-29
最後登錄: 2020-5-22

6^#

發表於 2011-6-9 03:17 | 只看該作者

2003 的版本我也知道可以這樣做
可是當我的資料有上萬筆的時候跑起來很慢
所以才想說可不可以用 vba 比較快將重複的資料刪除？

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 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

中學生 Rank: 2

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

靜思自在 : 甘願做、歡喜受。

返回列表下一主題上一主題