vba的篩選功能 (取消部分篩選) - Excel程式區

軒云熊

中學生 Rank: 2

帖子: 253
主題: 5
精華: 0
積分: 308
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-5-23

15^# 跳轉到 »

發表於 2020-10-8 12:24 | 只看該作者

本帖最後由軒云熊於 2020-10-8 12:31 編輯

回復 13# wei9133
這不是用篩選而是用比對的方式
你看一下是不是這樣?

Public Sub 比對練習()
Application.ScreenUpdating = False
Dim A, B, i, k
k = 1
E = 345
For X = 1 To Cells(1, 1).End(xlDown).Row
A = Range(Cells(X, 49), Cells(X, 1))
B = Range(Cells(X, 99), Cells(X, 51))
For i = 1 To UBound(B, 2)
If A(1, k) = "" Then A(1, k) = "-"
If B(1, i) = "" Then B(1, i) = "-"
f = f & A(1, k)
r = r & B(1, i)
If k <= UBound(A, 2) Then k = k + 1
Next i
k = 1
If f = r Then
Cells(E, 1).Resize(1, 104) = Cells(X, 1).Resize(1, 104).Value
E = E + 1
End If
f = "": r = ""
Next X
Application.ScreenUpdating = True
End Sub

複製代碼

TOP

jcchiang

中學生 Rank: 2

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

14^#

發表於 2020-10-8 09:04 | 只看該作者

回復 13# wei9133

樓主需求的篩選模式在同一sheet是無法執行的(ikboy已經說明了)
如果只是要計算各星象勝率/敗局建議可用比對的
只是無法看出這2各區塊(A~AW)內資料的相關性&勝率/敗局計算方式??

TOP

wei9133

中學生 Rank: 2

帖子: 58
主題: 9
精華: 0
積分: 117
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2017-12-2
最後登錄: 2021-12-16

13^#

發表於 2020-10-8 00:45 | 只看該作者

回復 12# 軒云熊
你好
在最初的需求中我沒有要刪任何資料
我是要比對是否有相同的資料(列)
才要固定[左|右]一邊的已篩選條件

應該怎麼說才能讓你理解呢0.0a

A~L 原本的資料格式要保留嗎? 還是只保留篩選後的?
M~Z 不做任何動作?

A~L已經篩選過了，都不要動它
M~Z每一個都把篩選選單拉開來點"全部"
Microsoft_Excel_-_對戰統計.xls-2020-10-08-00-41-45.png

我覺得我們溝通的問題應該出在這個"全部"上面...

感謝你花時間幫我想解決方案 m(_ _)m

TOP

軒云熊

中學生 Rank: 2

帖子: 253
主題: 5
精華: 0
積分: 308
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-5-23

12^#

發表於 2020-10-7 20:06 | 只看該作者

本帖最後由軒云熊於 2020-10-7 20:12 編輯

回復 10# wei9133

A~L 原本的資料格式要保留嗎? 還是只保留篩選後的?
M~Z 不做任何動作?
這樣的話 A~L 的格式資料會改變無法復原因為是先刪除 A~L 的資料在貼上篩選後的資料如果是在同一個活頁簿裡
或著直接新增一個新的工作表在把結果貼上 ?
我看一下影片好了 >"<

TOP

wei9133

中學生 Rank: 2

帖子: 58
主題: 9
精華: 0
積分: 117
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2017-12-2
最後登錄: 2021-12-16

11^#

發表於 2020-10-7 19:56 | 只看該作者

本帖最後由 wei9133 於 2020-10-7 20:00 編輯

回復 6# ikboy

不對，我直接講我要的結果
其實原本就是要把所有相同的行標示出來，然後加總起來
我沒有要拆開他的意思
每一行都是一個對戰紀錄(在附件CZ行有星象)
所以要比對的其實是，是否有A~CV都長得一樣的列(需要包含CZ)，因為不同星象也會有A~CV想的一樣的狀態出現
不過因為還有CW~CY是不會相同的值，所以無法直接比對
現在我是手動把A~AW的挑選出來後，再去一個一個把AY~CU篩選出來，一樣的合併(連星象都一樣的部分)，然後勝場+1
所以想要我在固定A~AW篩選條件的狀況下，去重置AY~CU的篩選條件

還是看不懂的麻煩移駕影片
https://sendvid.com/kvj69nqz
超連弄不出來，請自己複製網址到網址列吧
實際是就是要最後幾秒那個動作而已
只是不只點的那幾個，而是後方全部都點成全部

TOP

wei9133