作者napyang (爱唱歌的大男孩)
看板Visual_Basic
标题Re: [VBA ] RANGE读取RANGE问题
时间Thu May 17 23:58:55 2018
※ 引述《terrylove12 (空洞)》之铭言：
: 不好意思 想请问版上的各位
: 假设我有两个宣告为RANGE的物件
: Dim aa As Range
: Dim bb As Range
: 然後aa透过选取的储存格读取资料
: Set aa=Range(Selection(1, 1), Selection(11, 1))
: 此时aa就会有11笔资料
: 用MsgBox 确认 aa(1)~aa(11)都OK
: 接着我想提取其中的两个资料位置进bb
: Set bb=Range(aa(1),aa(2))
: 但是用MsgBox确认bb
: 发现bb把所有的aa(1)後[包含]的所有资料都吃了进来
: 但这不是我想要的 我只需要里面有aa(1)及aa(2)的资料而已
: 请问该怎麽处理呢
: 谢谢
不是很清楚你这样写的目的是什麽？不过就如你所说的话我会改成
Dim aa as range
Dim bb() as range
Set aa = range(cells(1,1),cells(11,1))
Dim myRange as range
For each myRange in aa
If myRange.value = [我不知道你要怎麽判断...] then
Set bb = Range(bb, myRange)
End if
Next
不过我会建议不要用range格式来存，把aa跟bb用array的方式纪录你指定range里面每一格的值，再看你要怎麽判断筛选出bb要的东西这样
以上，希望有帮助到你
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 59.125.98.209
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1526572737.A.081.html
1F：→ napyang: Dim bb as range...手机排版好累...，本来想用redim方 05/18 00:00
2F：→ napyang: 式一个一个接，但好像不符合原po需求... 05/18 00:00