作者stma (BBS)
看板Office
标题[问题] Excel-VBA 找寻&贴上问题
时间Sat Jan 21 22:11:02 2017
软体: Excel VBA
版本: 2016
//ppt.cc/yDFHA 看图比较快
需求: 搜寻条件的item column 复制到结果区 如图片所示
目前进度: 我有办法 Find 并且找到条件 column
目前卡关: 无法顺利在结果区一路往下贴
举例来说 搜寻条件为"item1" 资料区有 "G,I,J" column 符合条件
可是要贴到 结果区"A"column 会变成资料後盖前的窘境
这有好方法吗?
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 123.195.38.107
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1485007865.A.C40.html
1F：→ soyoso: 如要找最後一笔有资料的储存格可range.end(xlup)配合 01/21 22:17
2F：→ soyoso: range.offset偏移 01/21 22:17
3F：→ stma: s大真是太了解我的卡关 01/21 22:20
4F：→ stma: 另外想再问 xlup 会受到空格影响吗 01/21 22:21
5F：→ stma: 因为资料内会有空格 困扰蛮久的... 01/21 22:21
6F：→ soyoso: 如有空白格於储存格则还是会判断为有资料的储存格，空白储 01/21 22:26
7F：→ soyoso: 存格才不会 01/21 22:26
8F：→ stma: 目前我想法是 加入一行code 以空格取代空白储存格 01/21 23:20
10F：→ waiter337: 改用find找最後一行 01/22 05:49
11F：→ waiter337: 本板教的 01/22 05:49
12F：→ waiter337: 找到最後一行在+1 01/22 05:50