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

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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2017-11-29 09:52 | 只看該作者

[發問] 多重不重覆資料抓取方式請問

Dear  ALL 大大
1.SHEET1 資料如下
   A欄 B    C       D    E
1列  名稱版別  單位註1 註2
2    麻    A    KG    11    22
3    麻    B    KG    33    44
4    黑    A    MM    55    66
5    麻    B    KG    77    88
.........
1.1 需求為  A.B.C 欄之內容相同者算重覆.只取優先列之資料一筆
以上資料為例  麻BKG 重覆  只取第一筆麻BKG 整列資料至SHEET2 如下
   A欄 B    C       D    E
1列  名稱版別  單位註1 註2
2    麻    A    KG    11    22
3    麻    B    KG    33    44
4    黑    A    MM    55    66

煩不吝賜教 THANKS*10000

樓主熱帖

羅

kim223824

中學生 Rank: 2

帖子: 75
主題: 8
精華: 0
積分: 109
點名: 0
作業系統: windows XP
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2015-4-19
最後登錄: 2024-8-10

2^#

發表於 2017-11-29 14:38 | 只看該作者

是要這樣嗎?

test2.zip (20.46 KB)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

3^#

發表於 2017-11-29 15:28 | 只看該作者

本帖最後由 Hsieh 於 2017-11-29 15:29 編輯

回復 1# rouber590324

若是版本較低沒有移除重複功能，試試

Sub ex()
Set d = CreateObject("Scripting.Dictionary")
For Each a In Range([A1], [A1].End(xlDown))
d(a & a.Offset(, 1) & a.Offset(, 2)) = a.Resize(, 5).Value
Next
[I1].Resize(d.Count, 5) = Application.Transpose(Application.Transpose(d.items))
End Sub

複製代碼

學海無涯_不恥下問

TOP

rouber590324

高中生 Rank: 3 Rank: 3

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

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

4^#

發表於 2017-11-30 08:05 | 只看該作者

dear kim223824 與 Hsieh 大大
感謝指導. ok啦 thanks*10000

羅

TOP

phoebegin

中學生 Rank: 2

帖子: 45
主題: 4
精華: 0
積分: 66
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 20
性別: 女
來自: 高雄
註冊時間: 2013-11-8
最後登錄: 2023-6-14

5^#

發表於 2022-4-18 12:56 | 只看該作者

我想請教各大大...如果我想要的不是像版大取第一筆，而是要最後一筆....前者重覆的要刪除，那麼該如何改呢?

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

6^#

發表於 2022-4-18 17:43 | 只看該作者

回復 5# phoebegin

請測試看看，謝謝
Sub test()
Set d = CreateObject("Scripting.Dictionary")
For Each a In Range([A1], [A1].End(xlDown))
If Not d.Exists(a & a.Offset(, 1) & a.Offset(, 2)) Then
d(a & a.Offset(, 1) & a.Offset(, 2)) = a.Resize(, 5).Value
End If
Next
[I1].Resize(d.Count, 5) = Application.Transpose(Application.Transpose(d.items))
End Sub

1.JPG (108.61 KB)