很多人接觸到Excel的VBA時(shí)，都不理解End(xlUp).Row有何含義，有何用途。

　　下面，本人就給你介紹一下End(xlUp).Row到底有什么含義如何來(lái)使用。

　　其實(shí)End(xlUp).Row是VBA里面的End 屬性。

　　一、End(xlUp).Row介紹

　　功能是返回一個(gè) Range 對(duì)象，該對(duì)象代表包含源區(qū)域的區(qū)域尾端的單元格。等同于按鍵 End+ 向上鍵、End+ 向下鍵、End+ 向左鍵或 End+ 向右鍵。Range 對(duì)象，只讀。

　　其語(yǔ)法如下：

　　expression.End(Direction)

　　expression      必需。 該表達(dá)式返回“應(yīng)用于”列表中的對(duì)象之一。

　　Direction      XlDirection 類型，必需。所要移動(dòng)的方向。

　　XlDirection 可為 XlDirection 常量之一。

　　xlDown
　　xlToRight
　　xlToLeft
　　xlUp

　　二、End(xlUp).Row示例

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

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

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

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

　　本示例將選定區(qū)域從單元格 B4 延伸至第四行最后一個(gè)包含數(shù)據(jù)的單元格。

　　Worksheets("Sheet1").Activate

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

　　再比如：

　　Range("a65536").End(xlUp).Row  A列數(shù)據(jù)區(qū)域最后一行的行號(hào)
　　Range("b65536").End(xlUp).Row  B列數(shù)據(jù)區(qū)域最后一行的行號(hào)
　　Range("d65536").End(xlUp).Row  D列數(shù)據(jù)區(qū)域最后一行的行號(hào)
　　Range("k65536").End(xlUp).Row  K列數(shù)據(jù)區(qū)域最后一行的行號(hào)

　　最后，再看看一段VBA調(diào)用的代碼吧：

　　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