如何取得已用區域的最大行號(vba代碼)

Option Explicit Sub 顯示區域內最大行號() Dim rgInput As Range '輸入壹個range，代表壹個區域 Dim rg As Range Dim l As Long '最大行號 Set rgInput = Application.InputBox("請選擇壹個單元格區域", "提示", , , , , , 8) If Not rgInput Is Nothing Then For Each rg In rgInput If rg.Row > l Then l = rg.Row End If Next rg End If MsgBox "妳選擇的區域的最大行號為：" & l End Sub 很笨的方法，遍歷區域內每個單元格。