[算表] Excel VBA 多條件篩選並複製貼上的問題

作者: ohmsn (彼得)   2019-12-13 15:39:00
軟體:
Excel
版本:
範例
A B C D
1 玩家 勝 負 成績
2 甲 1 1 0
3 乙 2 1 1
4 丙 1 3 -2
5 丁 4 2 2
6 戊 0 1 -1
7 合計 8 8 0
我想撈取表格中 「勝」或「負」> 2 (不包含合計那欄)
並將該欄整欄複製貼上到
另一工作表sheet2
實際表格資料多很多,想藉由寫VBA的方式自動撈取資料
想求助版上能否提供協助,謝謝!
目前我是用.AutoFilter篩選的方式來作
但是發現用篩選似乎會造成B沒有C就沒有的問題
作者: soyoso (我是耀宗)   2019-12-13 15:53:00
可改為 range.advancedfilter 來寫勝或負(分二列)的條件不要出現合計那一列的話,玩家方面再加上<>(非)合計的部分要用range.autofilter的話,就配合一欄輔助欄,判斷勝或負>2時回傳什麼可以辨識的字串或數字,再篩選該輔助欄
作者: ohmsn (彼得)   2019-12-13 16:15:00
我也曾經想透過輔助欄位,但因為表格的部份實在無法在新增不好意思,剛剛上網搜尋了一下range.advancedfilter的用法看了很多不太理解so大您說的要怎麼使用,在下新手能否請您大概示範一下要怎麼寫....我在來調整看看~
作者: soyoso (我是耀宗)   2019-12-13 16:21:00
假設條件方面寫在儲存格f1:h3,f1:h1就是標題(同內文a1:c1),儲存格g2和h3就為>2,那非合計列方面就是寫在f2:f3,<>合計因此上述回文range.advancedfilter或range.autofilter會於另外儲存格內建立條件
作者: ohmsn (彼得)   2019-12-13 17:19:00
雖然我還是看不太懂,但還是很謝謝so大熱心回覆,感謝
作者: soyoso (我是耀宗)   2019-12-13 17:23:00
有了回文的條件range.advancedfilter criteriarange就指定range("f1:h3"),要複製貼上到其他儲存格action就為xlfiltercopy,copytorange方面就看要哪個儲存格
作者: ohmsn (彼得)   2019-12-14 23:52:00
感謝so大耐心解說,非常感激!!

Links booklink

Contact Us: admin [ a t ] ucptt.com