如何找出不重複的儲存格並放到另一工作表裡

Question

請問各位高手,
小弟在Excel的sheet1的儲存格裡有底下的資料,蠻多的目前僅列出幾筆
2AA, 2AB, 2AC, 2AA, 2AA, 2BC, 2AB, 2AC, 2AC, 2BD, 2BC
如何在把以上的資料以不重複的方式產生到另一sheet2裡,結果如下
2AA, 2AB, 2AC, 2BC, 2BD

謝謝各位大大的不吝指教!!

好心人你好,你的方法是去除重覆的列,而我的意思是去除重覆的儲存格(資料排放方式是A1,B1,C1....不是A1,A2,A3...)~這問題好像是需要使用vba去完成,但我目前還沒做出來...>_

Answer 1

Sub tset()
' '篩選不重複的資料
Sheets("sheet1").Range("a1:a100").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("c1"), unique:=True

'排序
Columns("c:c").Sort Key1:=Range("c1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod:=xlStroke, DataOption1:=xlSortNormal

'複製到sheet2 (貼成列)
Sheets("sheet1").Range("C1:c100").Copy Destination:=Sheets("sheet2").Range("a1")

'複製到sheet2 (貼成行)
Sheets("sheet1").Range("c1:c100").Copy
Sheets("sheet2").Range("c1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = False

'清除篩後的資料
Sheets("sheet1").Range("c1:c100").ClearContents

End Sub

Answer 2

先將資料選取起來，如A1~A100
以[資料]->[進階篩選] 勾選[篩選結果複製到其它地方]
->複製到（選擇你想出現的儲存格一格就好，例如 B1)
再將"不選重複的紀錄"打勾>>按下確定
就可以了
試試吧!

2006-07-21 09:04:08 補充：
其實不需要VBA即可完成先將你的資料[複製]再以[編輯]->[選擇性貼上] 選[轉置] 貼到另一個儲存格例如讓Sheet1 的A1.B1.C1....儲存格 變成Sheet2 的A1.A2.A3.....儲存格再用我提的方法，很快就可以取得你要的答案何必執著於VBA呢?