→ napyang: Dim bb as range...手機排版好累...，本來想用redim方 05/18 00:00
→ napyang: 式一個一個接，但好像不符合原po需求... 05/18 00:00
※ 引述《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://www.ptt.cc/bbs/Visual_Basic/M.1526572737.A.081.html