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

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

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

中學生 Rank: 2

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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-2-28 20:49 | 只看該作者

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

A             B             C
100                         100
99                            99
98                            98
97                            97
98                            96
96                            95
95                            94
94
94
95
96

如上所示：A欄會隨機出現數字，我想要讓A欄的值從大到小，且不重複，要如何用VBA寫，請版上大大伺教，感謝

樓主熱帖

收藏

中學生 Rank: 2

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

2^#

發表於 2014-2-28 20:54 | 只看該作者

A             B             C
100                         100
99                            ...
藍天麗池發表於 2014-2-28 20:49

PS：A欄數字會增加，每天數量不一定

小學生 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

高中生 Rank: 3 Rank: 3

帖子: 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

複製代碼

高中生 Rank: 3 Rank: 3

帖子: 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

複製代碼

中學生 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欄

高中生 Rank: 3 Rank: 3

帖子: 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: 3 Rank: 3

帖子: 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
如下圖:

中學生 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大感謝你的回答，但因為資料是動態接收的，所以用錄製巨集的方式可能不太行ㄟ

高中生 Rank: 3 Rank: 3

帖子: 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吧!!

靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -

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