資料區域右下欄位獲取

　頭銜: 街友一族

論壇貢獻勳章

1^# 跳轉到 »

發表於 2010-7-29 23:41 | 顯示全部帖子

一句搞定。
MsgBox Cells(Cells.Find("*", , , , 1, 2).Row, Cells.Find("*", , , , 2, 2).Column).Address(0, 0)

靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。