返回列表 上一主題 發帖

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

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-7-11 17:04 | 只看該作者

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

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

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

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 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

av8d

帖子
703 
主題
276 
精華
0 
積分
1005 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-5-29 
3#
發表於 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

則可以了~謝謝大大!

TOP

dafa

帖子
49 
主題
6 
精華
0 
積分
97 
點名
0  
作業系統
xp 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
註冊時間
2011-8-24 
最後登錄
2023-12-24 
2#
發表於 2012-7-12 04:42 | 只看該作者
回復 1# av8d


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

TOP

        靜思自在 : 君子如水，隨方就圓，無處不自在。
返回列表 上一主題