萬盛學電腦網

 萬盛學電腦網 >> Excel教程 >> excel綜合 >> 完整介紹Excel 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

copyright © 萬盛學電腦網 all rights reserved