VBA常用技巧代码解析

yuanzhuping

技巧3         获得指定行、列中的最后一个非空单元格
       使用VBA对工作表进行操作时，经常需要定位到指定行或列中最后一个非空单元格，此时可以使用Range对象的End属性，在取得单元格对象后便能获得该单元格的相关属性，如单元格地址、行列号、数值等，如下面的代码所示。

1. #001  Sub LastRow()
   
2. #002      Dim rng As Range
   
3. #003      Set rng = Sheet1.Range("A65536").End(xlUp)
   
4. #004      MsgBox "A列中最后一个非空单元格是" & rng.Address(0, 0) _
   
5. #005          & ",行号" & rng.Row & ",数值" & rng.Value
   
6. #006      Set rng = Nothing
   
7. #007  End Sub

复制代码

代码解析：
       LastRow过程使用消息框显示工作表中A列最后非空单元格的地址、行号和数值。
       End属性返回一个Range对象，该对象代表包含源区域的区域尾端的单元格。等同于按键<End+向上键>、<End+向下键>、<End+向左键>或<End+向右键>，语法如下：
expression.End(Direction)
       参数expression是必需的，一个有效的对象。
       参数Direction是可选的，所要移动的方向，可以为如图所示的XlDirection 常量之一。

       Range对象的End属性返回的是一个Range对象，因此可以直接使用该对象的属性和方法。
    运行LastRow过程结果如图所示。


       通过修改相应的参数，能够获得指定行中最后一个非空单元格，如下面的代码所示。

1. #001  Sub LastColumn()
   
2. #002      Dim rng As Range
   
3. #003      Set rng = Sheet1.Range("IV1").End(xlToLeft)
   
4. #004      MsgBox "第一行中最后一个非空单元格是" & rng.Address(0, 0) _
   
5. #005          & ",列号" & rng.Column & ",数值" & rng.Value
   
6. #006      Set rng = Nothing
   
7. #007  End Sub

复制代码

代码解析：
       LastColumn过程使用消息框显示工作表中第一行最后一个非空单元格的地址、列号和数值，如图所示。


[ 本帖最后由 yuanzhuping 于 2009-2-16 22:58 编辑 ]

tiantiansay

感谢楼主分享，能同时更新上传word 文档吗？

yuanzhuping

原帖由 tiantiansay 于 2009-2-10 08:00 发表
感谢楼主分享，能同时更新上传word 文档吗？

在第1部分内容整理结束后我会将word 文档上传，现在还只是个目录和一部分的内容。

zjx10

我们一起期待吧！

yuanzhuping

技巧4         定位单元格
       在Excel中使用定位对话框可以选中工作表中特定的单元格区域，而在VBA中则使用SpecialCells方法，如下面的代码所示。

1. 
   
2. #001  Sub SpecialAddress()
   
3. #002      Dim rng As Range
   
4. #003      Set rng = Sheet1.UsedRange.SpecialCells(xlCellTypeFormulas)
   
5. #004      rng.Select
   
6. #005      MsgBox "工作表中有公式的单元格为： " & rng.Address
   
7. #006      Set rng = Nothing
   
8. #007  End Sub
   

复制代码

代码解析：
       SpecialAddress过程使用SpecialCells方法选中工作表中有公式的单元格，并用消息框显示其地址。
       SpecialCells方法返回一个Range对象，该对象代表与指定类型及值相匹配的所有单元格，语法如下：
expression.SpecialCells(Type, Value)
       参数expression是必需的，返回一个有效的对象。
       参数Type是必需的，要包含的单元格，可为表格所列的XlCellType常量之一。

       第3行代码将SpecialCells方法的Type参数设置为xlCellTypeFormulas，返回的是含有公式的单元格，通过修改相应的参数可以返回不同的单元格。
       参数Value是可选的，如果Type参数为xlCellTypeConstants或xlCellTypeFormulas， 此参数可用于确定结果中应包含哪几类单元格。将某几个值相加可使此方法返回多种类型的单元格。如果省略将选定所有常量或公式，可为表格所列的 XlSpecialCellsValue常量之一。

       第5行代码使用消息框显示工作表中含有公式单元格的地址。SpecialCells方法返回的是Range对象，因此可以直接使用该对象的属性和方法。
       运行SpecialAddress过程结果如图所示。


[ 本帖最后由 yuanzhuping 于 2009-2-16 21:54 编辑 ]

yvhf

谢谢分享，期待Y版再写传说。

xm16648310

收藏了先，以后常来看看

zhenghua9256

收藏了先，以后常来看看

vickyliuying

谢谢分享!

yfxpzq

一定要努力学习