請問版上大大這個要怎麼寫?? - Excelㄧ般區 - 麻辣家族討論版版

麻辣家族討論版版 » Excelㄧ般區 » 請問版上大大這個要怎麼寫??

返回列表下一主題上一主題發帖

請問版上大大這個要怎麼寫??

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

1^# 跳轉到 »

發表於 2014-3-1 12:41 | 顯示全部帖子

回復 2# 藍天麗池
可用進階篩選, 勾選不選重覆的記錄
如不想每次操作進階篩選, 可錄下再修改,
VBA code 如下:

Option Explicit
Private Sub CommandButton1_Click()
Dim cnt As Integer, rng As Range
cnt = Range("A1").End(xlDown).Row
[C2].Resize(cnt, 1) = ""
Set rng = [A2].Resize(cnt, 1)
rng.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=rng, _
CopyToRange:=Range("C2"), Unique:=True
End Sub

複製代碼

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

2^#

發表於 2014-3-1 13:20 | 顯示全部帖子

回復 1# 藍天麗池
抱歉, 忘了 C欄有排序,
修正如下:

Option Explicit
Private Sub CommandButton1_Click()
Dim cnt As Integer, rng As Range
cnt = Range("A1").End(xlDown).Row
[C2].Resize(cnt, 1) = ""
Set rng = [A2].Resize(cnt, 1)
'先排序 (也可以先篩選, 再排序)
rng.Sort Key1:=Range("A2"), _
Order1:=xlDescending, _
Header:=xlYes
'再篩選, 勾選 [不重覆] 及 [篩將選結果複製到別的地方]
rng.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=rng, _
CopyToRange:=Range("C2"), Unique:=True
End Sub

複製代碼

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

3^#

發表於 2014-3-1 19:32 | 顯示全部帖子

回復 6# 藍天麗池
大大你好, 沒有重覆啊!!
如下圖:

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

4^#

發表於 2014-3-2 09:02 | 顯示全部帖子

但會出現重複，且不是出現在C欄

回復 6# 藍天麗池
想到了, 你是用手動篩選的吧,
記得用進階篩選, 勾選不選重覆的記錄,
及勾選複製到別處→ 複製到 C2
如下圖:

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

5^#

發表於 2014-3-2 11:28 | 顯示全部帖子

回復 9# 藍天麗池
那就用5F的vba吧!!

靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。

返回列表下一主題上一主題