※ 引述《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要的东西这样
以上，希望有帮助到你