一、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