作者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/cn.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