帖子: 84
主題: 15
精華: 0
積分: 123
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台南市
註冊時間: 2011-5-16
最後登錄: 2022-9-17

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2016-10-24 12:34 | 只看該作者

[發問] 清除重覆資料,只存留1筆資料

本帖最後由 linsurvey2005 於 2016-10-24 12:43 編輯

請問資料比對
核對B欄,C欄,D欄都相同,才刪除重複資料,資料整理後只要存留1筆資料

樓主熱帖

開心學習,學習很開心

starbox520

中學生 Rank: 2

帖子: 192
主題: 15
精華: 0
積分: 194
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 女
註冊時間: 2016-9-22
最後登錄: 2020-8-28

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2016-10-24 13:19 | 只看該作者

回復 1# linsurvey2005

EXCEL->資料 ->移除重複

TOP

linsurvey2005

中學生 Rank: 2

帖子: 84
主題: 15
精華: 0
積分: 123
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台南市
註冊時間: 2011-5-16
最後登錄: 2022-9-17

3^#

發表於 2016-10-24 13:48 | 只看該作者

回復 2# starbox520

感謝回覆
因為資料B C D欄同時相同情況,屬於1筆資料
但全部資料只能存在1筆,所以我沒辦法這樣子處理
請問有其他方式嗎?

開心學習,學習很開心

TOP

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

4^#

發表於 2016-10-24 14:20 | 只看該作者

如下為版內前輩之作品.試試

Sub ab()
Dim arr As Variant
Dim t As Range
Dim s As New Collection
Dim i, j As Long
Dim myRng As Range
j = [B65536].End(xlUp).Row
Set myRng = Range("B1:B" & j)
On Error Resume Next
For Each t In myRng
s.Add Item:=Range(t, t.Offset(0, 2)), key:=CStr(t)
Next
ReDim arr(1 To s.Count)
For i = 1 To s.Count
[f65536].End(xlUp).Offset(1, 0).Resize(, 3) = s(i).Value
Next
End Sub

羅

TOP

linsurvey2005

中學生 Rank: 2

帖子: 84
主題: 15
精華: 0
積分: 123
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台南市
註冊時間: 2011-5-16
最後登錄: 2022-9-17

5^#

發表於 2016-10-24 14:41 | 只看該作者

回復 4# rouber590324

謝謝回覆
執行之後會有誤刪的情形,如下說明:
因為1筆資料有"編號" "E" "N" "ELE"(1列)
所以 B C D 三個欄位Matc才清除重複資料

如果只比對B欄位,那麼C D欄位沒有Match情況下,資料可能誤刪
請教可有他山

開心學習,學習很開心

TOP

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

6^#

發表於 2016-10-24 16:55 | 只看該作者

我會創造一欄將 "E"&"N"&"ELE" 資料串一欄
然後以如上程式比對不重覆秀出.
已16:54-要下班啦-明日休假-無時間修改程式-自己試試啦

羅

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2016-10-24 19:58 | 只看該作者

回復 6# rouber590324

試試看

Option Explicit
Sub Ex()
Dim Rng(1 To 2) As Range
Set Rng(1) = ActiveSheet.Range("a1").CurrentRegion '資料所在的範圍
Set Rng(2) = ActiveSheet.Cells(1, Columns.Count - Rng(1).Columns.Count)
With Rng(1)
.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=.Range("B1:D1"), Unique:=True
'Rng(1)的進階篩選:, 範圍中的 B:D 欄,不重複的資料
.Copy Rng(2)
.AdvancedFilter xlFilterInPlace '全部資料顯示
.Cells.Clear
End With
Rng(2).CurrentRegion.Copy Rng(1)(1)
Rng(2).Clear
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

linsurvey2005

中學生 Rank: 2

帖子: 84
主題: 15
精華: 0
積分: 123
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台南市
註冊時間: 2011-5-16
最後登錄: 2022-9-17

8^#

發表於 2016-10-24 22:49 | 只看該作者

[版主管理留言]

GBKEE(2016/10/25 05:57): 請附檔

回復 7# GBKEE

G大好
執行後狀況很奇怪
原始資料A:D欄複製到B:E欄
A欄資料留下原始的幾個編號
感覺沒有比對

我需要的資料是點位坐標與高程資料
因為座標不能重複因此需要刪除重複點位
可是有些點位的E值會一模一樣,因此要比對N值,又可能E值跟N值都一模一樣,所以必須比對ELE值
以上

開心學習,學習很開心

TOP

hcm19522