VBA基本语法之过程的执行，以及过程执行的方法，注意的事项

之前我们讲过编写一个Sub过程，然后直接执行就可以，下面我们一起看一下先编写一个Sub过程，然后在另外一个Sub过程中执行另外一个Sub。

废话不多说先编写一个过程一起看看。

接下来要使用到的数据表格

我们一起写一个过程就是只输出该数据表格的奇数行数

下面再解释一下代码：

注意：你们数据表有多少行数据，控制输出的就是最外层的for循环，往数组内存值和取值都是内层的2个for循环（特别注意：数组的大小要根据表格的列数来确定）。

代码1：

Sub s()

Dim arr(1 To 7) As Variant

Dim i As Integer, j As Integer, k As Integer, h As Integer, m As Integer

m = 1

For h = 1 To 10

If m Mod 2 = 0 Then

For i = 1 To 7

arr(i) = Worksheets('sheet37').Cells(h, i)

Next

For k = 1 To 7

Worksheets('sheet40').Cells(h, k) = arr(k)

Next

End If

m = m + 1

Next

End Sub

下面我们看一下怎么在另外的一个过程中调用这个过程？

常用方法有三种：

1. 过程名称[参数1，参数2，参数3…]

2. Call 过程名称[（参数1，参数2…..）]

3. 利用Application对象来调取Run的方法实现运行s过程

Application.Run 表示过程的名称 [参数1，参数2…..]

注意：这里面的过程名称一定要加双引号，不然会报错。