作者ohmsn (彼得)
看板Office
標題[算表] Excel VBA 多條件篩選並複製貼上的問題
時間Fri Dec 13 15:39:00 2019
軟體:
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就沒有的問題
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 118.163.78.25 (臺灣)
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1576222742.A.B60.html
1F：→ soyoso: 可改為 range.advancedfilter 來寫勝或負(分二列)的條件 12/13 15:53
2F：→ soyoso: 不要出現合計那一列的話，玩家方面再加上<>(非)合計的部分 12/13 15:54
3F：→ soyoso: 要用range.autofilter的話，就配合一欄輔助欄，判斷勝或負 12/13 15:56
4F：→ soyoso: >2時回傳什麼可以辨識的字串或數字，再篩選該輔助欄 12/13 15:57
5F：→ ohmsn: 我也曾經想透過輔助欄位，但因為表格的部份實在無法在新增 12/13 16:15
6F：→ ohmsn: 不好意思，剛剛上網搜尋了一下range.advancedfilter的用法 12/13 16:16
7F：→ ohmsn: 看了很多不太理解so大您說的要怎麼使用，在下新手 12/13 16:17
8F：→ ohmsn: 能否請您大概示範一下要怎麼寫....我在來調整看看~ 12/13 16:19
9F：→ soyoso: 假設條件方面寫在儲存格f1:h3，f1:h1就是標題(同內文a1:c1 12/13 16:21
10F：→ soyoso: )，儲存格g2和h3就為>2，那非合計列方面就是寫在f2:f3， 12/13 16:22
11F：→ soyoso: <>合計 12/13 16:22
12F：→ soyoso: 因此上述回文range.advancedfilter或range.autofilter會於 12/13 16:24
13F：→ soyoso: 另外儲存格內建立條件 12/13 16:25
14F：→ ohmsn: 雖然我還是看不太懂，但還是很謝謝so大熱心回覆，感謝 12/13 17:19
15F：→ soyoso: 有了回文的條件range.advancedfilter criteriarange就指定 12/13 17:23
16F：→ soyoso: range("f1:h3")，要複製貼上到其他儲存格action就為 12/13 17:24
17F：→ soyoso: xlfiltercopy，copytorange方面就看要哪個儲存格 12/13 17:25
18F：→ ohmsn: 感謝so大耐心解說，非常感激!! 12/14 23:52