VBA-只保留不重複的值

sun1027

sun1027
個人積分：0分
文章編號：80010501

0分

樓主

2020-12-03 0:31

EXCEL檔案
https://i.imgur.com/Q8ZfR4v.jpg
VBA-只保留不重複的值

如圖片所示，我想達到右邊表格的效果
(紅色字體是我故意標的，表示那是該序號內唯一的值)
不同序號要做區別
個別「序號」內有重複的「牌子」
該列就刪除
個別「序號」內不保留有重複的「牌子」

我試過RemoveDuplicates，但是他會將有重複的刪除，然後保留一個「牌子」
想了蠻多方法，但是就卡在序號依序下來(有好幾百個序號)，然後是在同個工作表，
實在想不出方式了
麻煩各位先進
感激不盡!!!!!!!

2020-12-03 0:31 發佈

文章關鍵字 VBA-

mk2-paul

mk2-paul
個人積分：345分
文章編號：80010592

345分

2樓

2020-12-03 0:43

sun1027 wrote:
如圖片所示，我想達到(恕刪)

沒看到圖片。

misser

misser
個人積分：395分
文章編號：80010637

395分

3樓

2020-12-03 0:51

sun1027 wrote:
卡在序號依序下來(有好幾百個序號)，然後是在同個工作表

同樣沒看到牌子喔..........不過看這句敘述，感覺直接上VBA應該能「迎刃而解」~~樓主考慮一下。

VBA可以很複雜，但也可以很簡單....雖然也有人認為VBA快過時(退場)了，但多少還是可以拿出來解決目前的問題。

Der，misser1

mk2-paul

mk2-paul
個人積分：345分
文章編號：80011011

345分

4樓

2020-12-03 2:14

misser wrote:
...感覺直接上VBA..(恕刪)

樓主有提到使用 RemoveDuplicates 那個就是VBA了吧。

sun1027

sun1027
個人積分：0分
文章編號：80011507

0分

樓主

2020-12-03 7:26

misser wrote:
同樣沒看到牌子喔..(恕刪)

(抱歉，已重新上傳圖片)

這位大大
跪求如何迎刃而解
我想破頭還是無解
T_T

dropit

dropit
個人積分：34分
文章編號：80011725

34分

6樓

2020-12-03 8:05

RemoveDuplicates 可以啊，是否設定上有問題?

https://a200271071.pixnet.net/blog/post/229361654-excel-vba-%E5%A6%82%E4%BD%95%E6%95%B4%E7%90%86%E8%82%A1%E6%AC%8A%E5%88%86%E6%95%A3%E8%A1%A8%28%E9%9B%86%E4%BF%9D%E5%BA%AB%E5%AD%98%29-%E5%9B%9B%E3%80%81

參考這段
Dim myRange As Range
Set myRange = ActiveSheet.Range("A1:AE" & COUNT_寫入)
myRange.RemoveDuplicates Columns:=Array(1), Header:=xlYes

sun1027

sun1027
個人積分：0分
文章編號：80012669

0分

樓主

2020-12-03 9:27

dropit wrote:
RemoveDuplicates...(恕刪)

這位大大
這個方法我試過，可是失敗
比如序號1裡面有A1兩個
他不會把A1都刪除
他會保留一個A1

我想要的是A1全都刪除
請問大大~~RemoveDuplicates好像沒有參數可以讓我調整耶
我該怎麼做?

謝謝

mk2-paul

mk2-paul
個人積分：345分
文章編號：80012870

345分

8樓

2020-12-03 9:38

sun1027 wrote:
https://i.imgur...(恕刪)

用公式解出來了

D2
=UNIQUE(A2:A20&C2:C20,,1) 陣列公式 Ctrl+Shift+Enter 試了一下不用陣列也可以

E2
=IFERROR(INDEX($A$2:$C$20,MATCH($D2,$A$2:$A$20&$C$2:$C$20,0),MATCH(E$1,$A$1:$C$1,0)),"")

但因用到儲存格&儲存格，一但大量會變很慢。

而且也不是VBA，僅供參考。

dropit

dropit
個人積分：34分
文章編號：80015144

34分

9樓

2020-12-03 12:04

若是我會這樣簡單作。
https://riverfootmark.blogspot.com/2020/12/vba.html
方法很多，問題僅有一個，寫成BLOG，整理自己也分享。

ATB

ATB
個人積分：2857分
文章編號：80015967

2857分

10樓

2020-12-03 13:12

這個根本不用VBA
先在最後加一個column叫做（unique)好了
裡面先把序號加上（用「&」不要用「+」）牌子產生獨特值
接下來用excel 內建功能
把unique 裡面重複cell的加顏色
接下來用filter 功能選擇只顯示有顏色的cells
然後手動框起來刪除就好
剩下的就是沒重複的啦！

發覺幸福於平淡生活中