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

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

11^#

發表於 2014-3-10 12:23 | 只看該作者

回復 1# 藍天麗池

提示字典+排序

ss

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

10^#

發表於 2014-3-2 11:28 | 只看該作者

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

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

9^#

發表於 2014-3-2 09:49 | 只看該作者

回復 8# yen956

Y大感謝你的回答，但因為資料是動態接收的，所以用錄製巨集的方式可能不太行ㄟ

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

8^#

發表於 2014-3-2 09:02 | 只看該作者

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

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

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

7^#

發表於 2014-3-1 19:32 | 只看該作者

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

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

6^#

發表於 2014-3-1 15:20 | 只看該作者

回復 3# seer_et

大大不行ㄟ，程式會跑，但會出現重複，且不是出現在C欄

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

5^#

發表於 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

複製代碼

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

4^#

發表於 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

複製代碼

seer_et

小學生 Rank: 1

帖子: 18
主題: 4
精華: 0
積分: 26
點名: 0
作業系統: windows xp
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: 中國
註冊時間: 2011-6-19
最後登錄: 2021-4-15

3^#

發表於 2014-3-1 11:25 | 只看該作者

回復 2# 藍天麗池

不知行不行，你試一下 :

Private Sub Worksheet_Change(ByVal Target As Range)

rs = Range("A1").End(xlDown).Row
Set Rng = Range("A1:C" & rs)
Rng.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlYes, Orientation:=xlTopToBottom

End Sub