Debug.Print Worksheets(1).[A65536].End(xlUp).Row

完整介紹Excel End(xlUp).Row

一、End(xlUp).Row介紹

功能是返回一個 Range 物件，該物件代表包含源區域的區域尾端的單元格。等同於按鍵 End+ 向上鍵、End+ 向下鍵、End+ 向左鍵或 End+ 向右鍵。Range 物件，只讀。

其語法如下：

expression.End(Direction)

expression 必需。 該表示式返回應用於列表中的物件之一。

Direction XlDirection 型別，必需。所要移動的方向。

XlDirection 可為 XlDirection 常量之一。

xlDown

xlToRight

xlToLeft

xlUp

二、End(xlUp).Row示例

本示例選定包含單元格 B4 的區域中 B 列頂端的單元格。

Range("B4").End(xlUp).Select

本示例選定包含單元格 B4 的區域中第 4 行尾端的單元格。

Range("B4").End(xlToRight).Select

本示例將選定區域從單元格 B4 延伸至第四行最後一個包含資料的單元格。

Worksheets("Sheet1").Activate

Range("B4", Range("B4").End(xlToRight)).Select

再比如：

Range("a65536").End(xlUp).Row A列資料區域最後一行的行號

Range("b65536").End(xlUp).Row B列資料區域最後一行的行號

Range("d65536").End(xlUp).Row D列資料區域最後一行的行號

Range("k65536").End(xlUp).Row K列資料區域最後一行的行號

最後，再看看一段VBA呼叫的程式碼吧：

Dim i, M, iRow, sh, arr

M = 0.0015

For Each sh In ThisWorkbook.Sheets

iRow = sh.[D65535].End(xlUp).Row

ReDim arr(1 To iRow, 1 To 2)

arr = sh.Range("D3:E" & iRow)

For i = 2 To UBound(arr)

arr(i, 1) = arr(i, 1) * M

arr(i, 2) = arr(i, 2) * M

Next

arr(1, 1) = Application.Substitute(arr(1, 1), "平方米", "畝")

arr(1, 2) = Application.Substitute(arr(1, 2), "平方米", "畝")

sh.Range("D3:E" & iRow) = arr

Next