欢迎登陆真网站,您的到来是我们的荣幸。 登陆 注册 忘记密码? ☆设为首页 △加入收藏
欢迎加入真幸福QQ群
电脑知识: 基础知识 网络技术 操作系统 办公软件 电脑维修 电脑安全 windows7 windows8 windows10 服务器教程 平板电脑 视频播放教程 网络应用 互联网 工具软件 浏览器教程 QQ技巧 输入法教程 影视制作 YY教程 wps教程 word教程 Excel教程 PowerPoint
云南西双版纳特产小花糯玉米真空包装


Excel避免公式错误值的产生
excel随机小数
让Excel活动单元格所在行和列都着上背景颜色的VBA代码
“此操作要求合并单元格都具有相同大小”解决方法
excel怎么合并单元格
Excel设置万位分割符的方法
打开任何一个excel文件都会自动多打开一个Book1窗口
Excel怎么做表格
VBA完全操作Excel单元格备注Cell Comments的代码
使用CreateObject创建Excel实例代码
完整介绍Excel End(xlUp).Row
【 来源:网络 】【 点击:1 】 【 发布时间:2017_03_03 08:59:59 】

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

本网站由川南居提供技术支持,fkzxf版权所有 浙ICP备12031891号
淳安分站 淳安分站