返回列表 上一主題 發帖

[發問] 如何使用VBA提取唯一值呈現於非資料來源之工作表

mistery

帖子
82 
主題
5 
精華
0 
積分
115 
點名
0  
作業系統
Vista 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2010-5-1 
最後登錄
2025-7-15 
1# 跳轉到 »
發表於 2014-8-26 15:15 | 顯示全部帖子
Sub test()
    Columns("C:C").Select
    Columns("C:C").AdvancedFilter Action:=xlFilterCopy, _
    CopyToRange:=Sheets(2).Range("A1"), Unique:=True
    Sheets(2).Select
End Sub

TOP

mistery

帖子
82 
主題
5 
精華
0 
積分
115 
點名
0  
作業系統
Vista 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2010-5-1 
最後登錄
2025-7-15 
2#
發表於 2014-8-26 15:23 | 顯示全部帖子
也可以試試這個

Sub test2()

    Columns("C").Copy Sheets(2).Columns("A")
    Sheets(2).Columns("A:A").RemoveDuplicates Columns:=1, Header:=xlYes

End Sub

TOP

        靜思自在 : 天上最美是星星，人生最美是溫情。
返回列表 上一主題