- 帖子
- 2798
- 主題
- 10
- 精華
- 0
- 積分
- 2854
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-4-20
|
回復 9# t8899
Range("i74:i65536").EntireRow.Delete
Dim xE As Range
With ActiveSheet.UsedRange
Set xE = .Item(.Count)
MsgBox "最後一格〔位址〕：" & xE.Address
MsgBox "最後一格〔列號〕：" & xE.Row
MsgBox "最後一格〔欄號〕：" & xE.Column
MsgBox "最後一格〔欄名〕：" & Split(xE.Address, "$")(1)
End With
取得〔最後一列〕方法有多種，例如：End(xlUp), End(xlDown)
不過依據實際資料來判斷較準確！
VBE內建說明檔可找到相關語法，花些時間在這找資料，可學到很多！
|
|
發表於 2015-1-19 10:15
| 