13-ExcelVBA学习总结-实战之惑.docx

Excel VBA 学****总结- 实战之惑
VBA中很多的功能可以用内置的函数完成,其它的可以自己写函数完成。下面几点就是我在实战中遇到比较多的,而且带有一定困惑性的典型问题。
一、返回列的名字
这是个最简单的问题,但是有时候还是很需要的,方法比较简单,就是通过Address获取列的名字,比如“A”,“AB”等。
Private Function columnHeader(Target As Range) As String
    columnHeader = Left$(Right$(, Len() - 1), InStr(1, Right$(, Len() - 1), "$") - 1)
End Function
 
二、寻找实际使用的最后一行
这个问题在实际中经常遇到,而且实现的方式也多种多样。
使用ExecuteExcel4Macro实现
在Excel VBA中,内置函数ExecuteExcel4Macro用于执行一些Excel 。其中有一个特殊的函数是返回Sheet使用的最后一行的,使用很简单,如下所示:
Sub ShowLastLine()
    MsgBox ExecuteExcel4Macro("(10)")
End Sub
:
作用:执行一个 Microsoft Excel 宏函数,然后返回此函数的结果。返回结果的类型取决于函数的类型。
语法:ExecuteExcel4Macro(String)
参数:String,一个不带等号的 Microsoft Excel 宏语言函数。所有引用必须是像 R1C1 这样的字符串。如果 String 内包含嵌套的双引号,则必须写两个。例如,要运行宏函数=MID("sometext",1,4),String 必须为“MID(""sometext"",1,4)”。
返回值:Variant
说明:Microsoft Excel 宏不在当前工作簿或工作表的环境中求值。也就是说所有的引用都应该是外部引用,而且需要明确指定工作簿名。例如,要在 Book1 中执行 Microsoft Excel 宏“My_Macro”,必须使用“Book1!My_Macro()”。
如果不指定工作簿名,此方法将失效。
示例:本示例对工作表 Sheet1 上的 C3 单元格执行 (42) 宏函数,然后在一个消息框中显示结果。(42) 宏函数返回当前窗口左边界到活动单元格的左边之间的水平距离。Visual Basic 中没有与此宏函数直接等价的函数。
Worksheets("Sheet1").Activate
Range("C3").Select
MsgBox ExecuteExcel4Macro("(42)") 
使用End属性
在ExcelVBA中,使用End(xlUp)查找最后一行是最常使用且最为简单的方法,它假设要有一列总包含有数据(数字、文本和公式等),并且