用户自定义函数和子程序
在VBA中，执行特定任务的一组命令被放入一个程序中，程序可以是函数或子程序。
函数和子程序之间的主要区别是函数返回结果，而子程序不返回结果。
因此，如果你希望执行有返回结果的任务(例如，一组数字的求和)，则通常使用函数，但如果你只需要执行一组操作(例如格式化一组单元格)，则可以选择使用子程序。
参数
VBA程序可以通过声明参数来传递数据。例如，使用子程序将整数填充到工作表上当前选定区域中的每个单元格，通过参数将整数值提供给子程序，如下所示：
请注意，函数或子程序不一定要有参数。有些程序可能不需要它们。
可选参数
也可以为程序定义可选参数。用户可以根据需要提供这些参数，但是如果省略了这些参数，程序将为它们指定一个默认值。
回到上面的例子，如果我们想让所提供的整型参数是可选的，则声明如下：
在本例中，整型参数i的默认值为0。
可以在程序中声明多个可选参数，只要这些可选参数都位于参数列表的末尾。
按值和按引用传递参数
参数传递给程序时，可以通过两种方式传递：
ByVal-参数是通过值传递的。这意味着只将值(即参数的副本)传递给程序，因此，退出程序时，对程序内部参数所做的任何修改不影响到外部。
ByRef-参数是通过引用传递。这意味着参数的地址被传递给程序。当程序内部发生任何改变时，影响到外部。
在定义程序时，可以使用ByVal或ByRef关键字指定参数是通过值传递还是通过引用传递。如下所示：
在本例中，整数i通过值传递。退出子程序时，对i所做的任何更改都将丢失。
在本例中，整数i是通过引用传递的。退出子程序时，传入子程序的变量将记住对i所做的任何更改。
应该注意的是，默认情况下，参数是通过引用传递的。因此，如果不使用ByVal或ByRef关键字，参数都将按引用传递。
在进一步讨论函数和子程序的性质之前，先单独研究这两种类型的程序。下面两个部分将简要讨论函数和子程序，并提供一些简单的示例。
函数
编辑器可以识别函数，定义函数的语法如下所示：
如前所述，函数具有返回值，返回值具有以下规则：
返回值的数据类型必须在函数签名中声明。
返回值必须分配给与函数同名的变量。此变量不需要声明，因为它已经作为函数的一部分存在。
下面的示例对此进行了说明。
函数示例：对3个数字执行数学运算
下面的代码显示了一个简单的函数，该程序接收三个参数，每个参数都是Double类型，它返回一个Double值，即前两个参数的和减去第三个参数的差：
上面的函数简单地说明了向程序提供参数的方式。还可以看到，函数返回值的类型被定义为Double(在函数签名尾部添加语法as Double)。
上面的示例还显示了函数返回的结果如何存储在与函数同名的变量中。
调用函数
如果在编辑器中将上述函数键入到模块中，则可以从其他VBA程序或从Excel工作表调用该函数。
从VBA代码中调用函数
只需将函数赋给变量，就可以在VBA程序中调用函数，如下所示：
从Excel工作表中调用函数
可以从工作表调用函数，操作方法与调用任何内置Excel函数的方法相同。
因此，你可以通过在工作表的任何单元格中键入以下内容来调用SumMinus函数：
子程序
编辑器可以识别子程序，定义子程序的语法如下所示：
子程序示例1：居中并将字体大小应用于选定的单元格区域
下面的代码显示了一个简单的子程序，该子程序将格式应用于当前选定的单元格区域。单元格的格式设置为居中对齐(水平和垂直)，并具有用户提供的字体大小：
上面的示例说明了子程序如何执行操作而没有返回值。
此示例还包括可选参数iFontSize。如果未提供参数，则使用默认字体大小10。但是，如果将参数提供给子程序，则当前选择范围将设置为用户提供的字体大小。
子程序示例2：居中并将粗体字体应用于选定的单元格区域
下面的代码与示例1类似，但是没有为选定区域提供字体大小，而是将单元格设置为粗体，此示例显示不接收任何参数的子程序：
调用子程序
从VBA代码中调用子程序
从代码中调用子程序，方法是键入call关键字，然后键入子程序名称，然后键入括号中的子过程参数。如下例所示：
如果子程序有多个参数，则这些参数将用逗号分隔，例如：
从Excel工作表中调用子程序
子程序不能像函数那样直接在Excel的工作表中键入，因为子程序不返回值。但是，在子程序不声明参数的情况下(并且是公共的，见下文)，用户仍然可以在工作表中使用子程序。因此，上面两个子程序，Format_Centered_And_Bold可以在工作表中使用，Format_Centered_And_Sized则不能(因为它有一个参数)。
对于可从工作簿访问的子程序，运行它们的方法是：
通过以下任一操作打开“宏”对话框：
从Excel功能区的“开发人员”选项卡中单击“宏”选项
使用键盘快捷键Alt+F8(即在按下Alt键的同时按F8键)
在“宏”对话框中，选择要运行的宏，然后单击“运行”按钮。
为子程序指定快捷键
您可以为子程序指定一个组合键，以使代码能够快速、轻松地执行。为此：
通过以下任一操作打开“宏”对话框：
单击Excel功能区“开发人员”选项卡上的“宏”选项
使用键盘快捷键Alt+F8(即在按下Alt键的同时按F8键)
在“宏”对话框中，选择要指定组合键的宏；
单击“选项”打开“宏选项”对话框；
在“宏选项”对话框中键入所需的快捷键；
单击“确定”，然后关闭“宏”对话框。
警告：将组合键分配给宏时，请注意不要选择Excel的预定义组合键(如CTRL-C)。如果确实选择了现有的Excel键组合，则宏将覆盖此组合键，并且你或其他用户可能会意外地执行宏代码。
VBA程序的作用范围
在本教程的第2部分中，我们讨论了变量和常量的作用以及Public和Private关键字的作用。这些关键字在应用于VBA程序时具有相同的含义：
如果程序声明前面有关键字Public，则VBA工程中的所有其他模块都可以访问该程序。
如果程序声明前面有关键字Private，则该程序仅对当前模块可用，无法从任何其他模块或Excel工作簿中访问它。
如果在函数或子程序的开头没有插入关键字，则默认设置是Public(即可以从VBA工程中的任何位置访问)。这与变量声明不同，变量声明在默认情况下是Private的。
提前退出函数和子程序
如果要在函数或子程序运行到末尾之前退出它，可以使用Exit Function或Exit Function命令执行此操作。如下所示，函数期望接收一个正值来处理，如果接收到的是负值，则函数无法继续，因此它提醒错误后立即退出程序：
在退出VAT_Amount函数之前，上面的代码使用内置的MsgBox函数，向用户显示一个包含警告消息的框。

当我们使用VBA将一个工作簿中的所有sheet内容，汇总到一个sheet中时。我们需要复制每个sheet中除首行之外的单元格，然后复制到对应位置。这边我们和End(xlup)搭配使用的时候，有的时候多一个空行也是可以成功的。具体汇总的代码请参考悟空问答。
这里讨论一下使用VBA中的CurrentRegion，但是不选择首行的小技巧。
以下为源代码。
Option ExplicitSub main() Dim rng As Range Set rng = CurrentRegionButFirstRow rng.SelectEnd SubPrivate Function CurrentRegionButFirstRow() As Range Dim rng As Range Dim region_rows As Long Dim region_columns As Long  Set rng = Range("A1").CurrentRegion.Offset(1, 0) Let region_rows = rng.Rows.Count - 1 Let region_columns = rng.Columns.Count  Set CurrentRegionButFirstRow = rng.Resize(region_rows, region_columns)End Functionza
有什么问题可以留言，每条都会回的。

本期主要讲讲单元格复制粘贴等操作。

一、复制粘贴固定区域的单元格

因为以下内容都是复制单个或者固定区域的单元格内容，就不多说了，备注上面都有说明。

Option Explicit

Sub CopyRange()
    '复制单元格内容示例1
    '注意：单元格的格式、公式、批注等也会被复制过去哟
    Sheets(1).Range("A1").Copy Sheets(1).Range("B1")
End Sub


Sub CopyRange2()
    '复制单元格内容示例2，打开了下面2个工作表后，就可以通过工作表的名称进行复制啦
    Workbooks("测试表1.xlsx").Sheets(1).Range("A1").Copy _
    Workbooks("测试表2.xlsx").Sheets(1).Range("A1")
End Sub

Sub CopyRange3()
    '复制单元格内容示例3，和上面几乎一样
    Dim rng1 As Range, rng2 As Range
    Set rng1 = Workbooks("测试表1.xlsx").Sheets(1).Range("A1")
    Set rng2 = Workbooks("测试表2.xlsx").Sheets(1).Range("A1")
    rng1.Copy rng2
End Sub

Sub CopyRange4()
    '复制单元格内容示例4，复制区域，选择一个单元格进行粘贴
    Sheets(1).Range("A1:D5").Copy Sheets(2).Range("A1")
End Sub

Sub MoveRange1()
    '移动（剪切）单元格内容示例1。
    '注意：单元格的格式、公式、批注等也会被剪切过去哟
    '就是把Copy换成了Cut，其他几乎一样
    Sheets(1).Range("A1").Cut Sheets(1).Range("B1")
End Sub

二、复制粘贴可变单元格区域

上面主要是讲的特定区域的，下面讲讲会变动的区域。比如一张表新增了一行，复制区域就改变了，有没有什么比较方便的方式解决呢？

加个CurrentRegion就可以实现，用法如下。

Sub CopyCurrentRange()
    '复制范围会变动的表格
    Sheets(1).Range("A1").CurrentRegion.Copy Sheets(2).Range("A1")
End Sub

 



从上面的图可以看出，新增了第15行张三点击运行后，仍然能正常复制过去。要复制的表如果有标题、有日期行，或者是筛选后的表格，仍然可以实现复制。

如果要复制的区域是一个表，就可以用以下方式（感觉更复杂了点，好像没啥实际用途）

第一，插入表格





第二，重新命名，咱们插入表格之后，在设计——表名称那重命名一下，命名为Table111



第三：这么操作就可以把表复制过去啦。

Sub CopyTable()
    Sheets(1).Range("table111").Copy Sheets(2).Range("A1")
End Sub

经过实际使用，发现确实不怎么方便，当然了还有Range的End方法，这个在7月29号的文档里用过。

Sub RangeEnd()
    '从A10000往上数，遇到有数据的最下面一行
    Debug.Print Sheets(1).Range("A10000").End(xlUp).Row
    '从A1往下数，有数据的最下面一行
    Debug.Print Sheets(1).Range("A1").End(xlDown).Row
    '从Z1往左数，有数据的最右边一列
    Debug.Print Sheets(1).Range("Z1").End(xlToLeft).Column
    '从A1往右边数，有数据的最右边一列
    Debug.Print Sheets(1).Range("A1").End(xlToRight).Column
End Sub

咱们表格范围是A1:D17大小的话，上面结果值分别为17，17，5，5。但是需要注意就是，选定单元格的那一行一列别有空值，不然返回的内容可能是空值附近的单元格哟。

三、调整单元格区域

用Range.Resize重新调整单元格区域，左边的参数是行数，右边的参数是列数。

另外需要注意的是，调整后的区域是从原来区域左上角开始框哟。

比如下面例子开始是框柱B2:D6，重新设置区域后，就从B2往下和往右算行列数。

Sub RangeResize()
    Dim rng As Range
    Set rng = Range("B2:D6")
    Set rng = rng.Resize(8, 5)
End Sub

前景提要(文末提供源码下载)
合并单元格的操作，相信在大家日常的工作中会经常使用到，比方说相同数据合并单元格，或者纯粹为了表格样式的美观而选择合并单元格等等，单元格的合并操作，在Excel中也很简单，直接选中单元格之后，按下合并单元格的按钮就可以实现了。
虽然简单，实际中的一些缺点也是存在的，比方说一次只能合并一个相同内容，如果你有多个不同的数据需要合并单元格的话，那么可能就需要重重复复的操作很多次，非常的不方便。今天就来和大家介绍下用VBA来实现这个大批量的相同数据的单元合并的操作
场景说明
这是我们今天模拟的操作数据，我们现在希望将相同的姓名执行合并单元格的操作，这样方便其他人阅读，这里有5个同学，其中A4因为种种原因只参加一门考试，所以在合并的过程中，A4所在的行又是不用合并的，这样如果纯粹用Excel自带的合并单元格操作的话，就会比较的麻烦，至少需要重复5次操作，其中还包括选择单元格，如果表格更加大，数据更加的复杂的话，就很浪费时间了，所以我们今天来看看VBA如何快速实现合并。
代码区
Sub TEST()Dim rng As Range, a As Range, rng1 As Range, s$, fisrrng As RangeApplication.DisplayAlerts = FalseSet rng = Application.InputBox("请选择合并的区域", "合并相同内容", , , , , , 8)Set fisrrng = rng(1)Set rng1 = rng.Offset(1, 0)For Each a In rng1    s = fisrrng.Value    If a.Value <> s Then        Range(a.Offset(-1, 0), fisrrng).Merge        Set fisrrng = a    End IfNext aApplication.DisplayAlerts = TrueEnd Sub
代码并不算是太难，关键是要理解代码中的逻辑，我们先来看看代码实现的效果 
从结果上来看，我们很好的实现了我们的目的和效果
代码解析
既然已经实现了我们想要的效果，那么现在大家最想要知道的就是代码实现的过程了。
其实在之前的讲解中，我也说过很多次，VBA实现的逻辑其实就是我们手工操作中的各种逻辑，我们只要知道自己的操作方式，稍加转换，切到VBA的代码中区，就可以实现了，来具体看看。
Set rng = Application.InputBox("请选择合并的区域", "合并相同内容", , , , , , 8)
这里我们先要选择我们需要操作的单元格区域，这里非常的简单，利用一个InputBox的方法，就可以实现一个简单的交互了，最终得到的结果，我们赋值给变量rng
有了rng这个区域之后，我们就可以进行合并操作了，那么是随便操作合并吗？肯定不是的，我们需要和上面一个单元格进行对照，是相同内容的话，才会执行合并操作。
那么这里的重点来了，上面一个单元格，在vba进行循环判断的过程中，如何体现这个上面一个单元格呢？
这里我们换一个角度，切换成为第一个单元格，如果和第一个单元格不同，那就是不同的内容不需要合并，如何和第一个单元格内容相同，那就是需要合并的。
这里我们以A1来举例，第二行的A1是第一个单元格，那么后面第三行和第四行的 A1分别于第二行的 A1相比较，是相同的，那么这几行就是需要操作合并的单元格
到了第五行的时候，我们发现A2并不等于 A1，那么到这里为止，前面的2,3,4都是需要合并的单元格，而第5行是不需要和上面的单元格合并了。
那么这里就可以理解我们的代码的作用了。
Set fisrrng = rng(1)
实现的作用就是将第一个单元格赋值给fisrrng这个变量
有了这个变量之后，我们就可以将其他的单元格和fisrrng进行比较了。
Set rng1 = rng.Offset(1, 0)For Each a In rng1    s = fisrrng.Value    If a.Value <> s Then       ..........    End IfNext a
大家可能会疑惑，这里为什么又有rng1呢？
因为上面我们既然已经选择了fisrrng，那么在后面的数据区域自然是不用包含这个fisrrng了，所以是将我们选择的整个单元格向下移动一行，这里使用到了offset，他的用法和函数offset是一样的。
在循环中，如果a的内容和fisrrng是相同的，那么就跳过，继续往下走，如果不一样，那就代表我们已经找到一个分水岭了。 
For Each a In rng1    s = fisrrng.Value    If a.Value <> s Then        Range(a.Offset(-1, 0), fisrrng).Merge'执行单元格的合并        Set fisrrng = a'重新设置第一个单元格对象    End IfNext a
Range(a.Offset(-1, 0), fisrrng).Merge'执行单元格的合并
这里执行的就是单元格合并，同样的，这里也是使用到了offset方法，不同的是这里是往上移动一行
这里不要忘记，因为上面一个循环结束之后，我们需要重新设置firstrng所对应的单元格内容。切记
不然的话，他永远都是和第一行的A1进行比较，会导致后面所有的操作都出错的。 
================================
本节课的案例源码已经上传，需要的小伙伴请按照如下步骤操作，一个不能少哦~~
1.转发下本文章(算是对我的小小支持吧~)
2. 点我头像加个关注~
3.后台私信“8-10--1”
希望大家多支持~~，多多关注 ~ ~