標題: [發問] 移動到最後一筆資料 [打印本頁]

---

作者: av8d    時間: 2012-7-11 17:04     標題: 移動到最後一筆資料

'移動至資料最後一筆
    Range("C2").Select
    Selection.End(xlDown).Select

當C欄其中一列無資料時則跑不到最後一筆
資料一共有ABCDE，如果ABCDE都有機會無資料
是否還有其他方法可以判斷後移動到最後一筆?

---

作者: dafa    時間: 2012-7-12 04:42

回復 1# av8d


    Range("A65536").End(xlUp).Select
如果你有在爬文應該會很容易找到喔~

---

作者: av8d    時間: 2012-7-12 09:27

本帖最後由 av8d 於 2012-7-12 09:30 編輯

回復 2# dafa


大大謝謝~
如果是要從資料表A先移動到資料表B再移動到最後一筆是否為
Sheets("B").Select
Range("A65536").End(xlUp).Select

因為會出現Class Range 的 Select 方法失敗

但是
Sheets("B").Select
ActiveSheet.Range("A65536").End(xlUp).Select

則可以了~謝謝大大!

---

作者: GBKEE    時間: 2012-7-12 14:56



回復 3# av8d
Sheets("B").Select
Range("A65536").End(xlUp).Select  因為會出現Class Range 的 Select 方法失敗
這是程式碼在 Sheet物件模組(不是工作表(B) ) 所致
因Sheets("B").Select  將作用中的轉到工作表(B)  
所以 Range("A65536").End(xlUp).Select 是在此Sheet物件模組(不是工作表(B) 的工作表上)做Select  
Range  前面沒有指定工作表 是為Sheet物件模組(不是工作表(B) 的工作表的 Range          就會有錯誤

這段程式碼如在 一般模組 或 ThisWorkbook模組  就不會有錯誤了

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)