標題: 如何顯示範圍中右下角儲存格位置 [打印本頁]

---

作者: enoch    時間: 2013-2-2 11:26     標題: 如何顯示範圍中右下角儲存格位置

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

---

作者: GBKEE    時間: 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

複製代碼

---

作者: enoch    時間: 2013-2-4 10:56

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

---

作者: Hsieh    時間: 2013-2-4 11:18

回復 3# enoch


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

---

作者: GBKEE    時間: 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

複製代碼

---

作者: mhl9mhl9    時間: 2013-8-1 22:57

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

---

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