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

enoch

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

GBKEE

回復 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

複製代碼

enoch

多謝GBKEE 教導, 學會了用Columns.count
另外請問 .specialcells(xlcelltypelastcell) 可以傳回指定範圍最又下角嗎?
試過只能傳回工作表最又下角位置

Hsieh

回復 3# enoch


    .specialcells(xlcelltypelastcell) 是傳回工作表內所有資料的最右下角儲存格

GBKEE

回復 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

複製代碼

mhl9mhl9

function iLastCell(R) as Range
    set iLastCell=R.cells(R.cells.count)
end function