返回列表 上一主題 發帖

如何顯示範圍中右下角儲存格位置

enoch

帖子
176 
主題
98 
精華
0 
積分
279 
點名
0  
作業系統
window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-4-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-2-2 11:26 | 只看該作者

如何顯示範圍中右下角儲存格位置

如果設定了名稱 TEMP = Range("A1:E10")
可以用range("temp").row 或 range("temp").column 知道左上角欄或列位置
但若果想知道右下角位置應該如何
請多多指教
收藏 分享

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2013-2-2 14:07 | 只看該作者
回復 1# enoch
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Temp As Range
  4.     Set Temp = Range("A1:E10")
  5.     With Temp
  6.     'With Range("A1:E10")
  7.         MsgBox .Cells(1, 1).Address                             '右上角
  8.         MsgBox .Cells(1, .Columns.Count).Address                '左上角
  9.         MsgBox .Cells(.Rows.Count, 1).Address                   '右下角
  10.         MsgBox .Cells(.Rows.Count, .Columns.Count).Address      '左下角
  11.     End With
  12. End Sub
複製代碼

TOP

enoch

帖子
176 
主題
98 
精華
0 
積分
279 
點名
0  
作業系統
window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-4-8 
3#
發表於 2013-2-4 10:56 | 只看該作者
多謝GBKEE 教導, 學會了用Columns.count
另外請問 .specialcells(xlcelltypelastcell) 可以傳回指定範圍最又下角嗎?
試過只能傳回工作表最又下角位置

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
142  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2026-7-16 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2013-2-4 11:18 | 只看該作者
回復 3# enoch


    .specialcells(xlcelltypelastcell) 是傳回工作表內所有資料的最右下角儲存格
學海無涯_不恥下問

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2013-2-4 16:24 | 只看該作者
本帖最後由 GBKEE 於 2013-2-4 16:37 編輯

回復 3# enoch
.specialcells(xlcelltypelastcell) 可以傳回指定範圍最 又下角嗎 ?  
等同傳回UsedRange範圍最右下角
  1. Sub Ex()
  2.     With ActiveSheet
  3.         MsgBox .Cells.SpecialCells(xlCellTypeLastCell).Address
  4.         With .UsedRange
  5.             MsgBox .Cells(.Rows.Count, .Columns.Count).Address
  6.         End With
  7.     End With
  8. End Sub
複製代碼

TOP

mhl9mhl9

帖子
214 
主題
74 
精華
0 
積分
296 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
hk 
註冊時間
2013-6-17 
最後登錄
2018-11-3 
6#
發表於 2013-8-1 22:57 | 只看該作者
function iLastCell(R) as Range
    set iLastCell=R.cells(R.cells.count)
end function
lmh

TOP

        靜思自在 : 要用心，不要操心、煩心。
返回列表 上一主題