Re: [VBA ] RANGE讀取RANGE問題

看板Visual_Basic作者 (愛唱歌的大男孩)時間6年前 (2018/05/17 23:58), 編輯推噓0(002)
留言2則, 1人參與, 6年前最新討論串2/2 (看更多)
※ 引述《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

05/18 00:00, 6年前 , 1F
Dim bb as range...手機排版好累...,本來想用redim方
05/18 00:00, 1F

05/18 00:00, 6年前 , 2F
式一個一個接,但好像不符合原po需求...
05/18 00:00, 2F
文章代碼(AID): #1Q_QR121 (Visual_Basic)
文章代碼(AID): #1Q_QR121 (Visual_Basic)