返回列表 上一主題 發帖

[發問] 移動到最後一筆資料

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 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模組  就不會有錯誤了

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題