※ 引述《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要的東西這樣
以上,希望有幫助到你