在VBA（Visual Basic for Applications）中，ByRef 是用于传递参数的关键字，表示参数是通过引用传递的。这意味着当你将一个参数以 ByRef 的方式传递给一个过程（如子程序或函数）时，过程内部对该参数的任何修改都会影响到调用该过程时传递的原始变量。
ByRef的特点：
- 引用传递：ByRef 传递的是变量的内存地址，而不是变量的值。因此，过程内部对参数的修改会直接反映在原始变量上。
- 默认行为：在VBA中，如果不显式指定参数传递方式，默认情况下参数是通过 ByRef 传递的。
- 效率：由于 ByRef 传递的是内存地址而不是实际数据，因此在处理大型数据结构（如数组或对象）时，ByRef 通常比 ByVal（按值传递）更高效。
示例：
Sub ModifyValue(ByRef x As Integer)
x = x + 10
End Sub
Sub Test()
Dim num As Integer
num = 5
Call ModifyValue(num)
MsgBox num ' 输出 15，因为 num 被 ModifyValue 过程修改了
End Sub在这个例子中，ModifyValue 过程的参数 x 是通过 ByRef 传递的。当 ModifyValue 过程修改 x 的值时，原始变量 num 的值也会被修改。
对比ByVal：
- ByVal 是按值传递参数，过程内部对参数的修改不会影响原始变量。
- 示例：
Sub ModifyValue(ByVal x As Integer)
x = x + 10
End Sub
Sub Test()
Dim num As Integer
num = 5
Call ModifyValue(num)
MsgBox num ' 输出 5，因为 num 没有被 ModifyValue 过程修改
End Sub在这个例子中，ModifyValue 过程的参数 x 是通过 ByVal 传递的。因此，ModifyValue 过程内部对 x 的修改不会影响原始变量 num。
说明：
- ByRef 允许过程修改调用者传递的原始变量。
- ByVal 则保护原始变量不被过程修改。
- 在VBA中，默认情况下参数是通过 ByRef 传递的，除非显式指定为 ByVal。
下面我将通过一个带有表格数据的实际案例，详细解释 ByRef 和 ByVal 的区别，并展示它们在实际应用中的效果。
案例背景：
假设我们有一个 Excel 表格，其中包含员工的工资数据。我们需要编写一个 VBA 程序，对员工的工资进行调整（例如增加 10%），并展示 ByRef 和 ByVal 的不同行为。
表格数据：
员工姓名 | 工资 |
张三 | 5000 |
李四 | 6000 |
王五 | 7000 |
代码实现：
1. 使用ByRef传递参数
Sub IncreaseSalaryByRef(ByRef salary As Double)
salary = salary * 1.1 ' 工资增加 10%
End Sub
Sub TestByRef()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1") ' 假设数据在 Sheet1 中
Dim i As Integer
For i = 2 To 4 ' 遍历第 2 到第 4 行（假设表头在第 1 行）
Dim currentSalary As Double
currentSalary = ws.Cells(i, 2).Value ' 获取当前工资
Call IncreaseSalaryByRef(currentSalary) ' 调用 ByRef 过程
ws.Cells(i, 2).Value = currentSalary ' 更新工资
Next i
MsgBox "工资已通过 ByRef 方式调整！"
End Sub运行结果：
员工姓名 | 工资 |
张三 | 5500 |
李四 | 6600 |
王五 | 7700 |
代码实现：
- 调用 TestByRef 后，表格中的工资数据会被修改为：
- 员工姓名工资张三5500李四6600王五7700
- 解释：由于 IncreaseSalaryByRef 使用 ByRef 传递参数，currentSalary 的值在过程内部被修改后，会直接反映到原始数据中。
2. 使用ByVal传递参数
Sub IncreaseSalaryByVal(ByVal salary As Double)
salary = salary * 1.1 ' 工资增加 10%
End Sub
Sub TestByVal()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1") ' 假设数据在 Sheet1 中
Dim i As Integer
For i = 2 To 4 ' 遍历第 2 到第 4 行（假设表头在第 1 行）
Dim currentSalary As Double
currentSalary = ws.Cells(i, 2).Value ' 获取当前工资
Call IncreaseSalaryByVal(currentSalary) ' 调用 ByVal 过程
ws.Cells(i, 2).Value = currentSalary ' 更新工资
Next i
MsgBox "工资已通过 ByVal 方式调整！"
End Sub运行结果：
员工姓名 | 工资 |
张三 | 5000 |
李四 | 6000 |
王五 | 7000 |
代码实现：
- 调用 TestByVal 后，表格中的工资数据 不会 被修改，仍然是：
- 员工姓名工资张三5000李四6000王五7000
- 解释：由于 IncreaseSalaryByVal 使用 ByVal 传递参数，salary 的值在过程内部被修改后，不会影响原始变量 currentSalary。因此，表格中的数据保持不变。
总结：
- ByRef：传递的是变量的内存地址，过程内部对参数的修改会直接影响原始数据。
- ByVal：传递的是变量的值，过程内部对参数的修改不会影响原始数据。
在实际应用中：
- 如果需要修改原始数据，使用 ByRef。
- 如果希望保护原始数据不被修改，使用 ByVal。
完整代码：
VBA
Sub IncreaseSalaryByRef(ByRef salary As Double)
salary = salary * 1.1 ' 工资增加 10%
End Sub
Sub IncreaseSalaryByVal(ByVal salary As Double)
salary = salary * 1.1 ' 工资增加 10%
End Sub
Sub TestByRef()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1") ' 假设数据在 Sheet1 中
Dim i As Integer
For i = 2 To 4 ' 遍历第 2 到第 4 行（假设表头在第 1 行）
Dim currentSalary As Double
currentSalary = ws.Cells(i, 2).Value ' 获取当前工资
Call IncreaseSalaryByRef(currentSalary) ' 调用 ByRef 过程
ws.Cells(i, 2).Value = currentSalary ' 更新工资
Next i
MsgBox "工资已通过 ByRef 方式调整！"
End Sub
Sub TestByVal()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1") ' 假设数据在 Sheet1 中
Dim i As Integer
For i = 2 To 4 ' 遍历第 2 到第 4 行（假设表头在第 1 行）
Dim currentSalary As Double
currentSalary = ws.Cells(i, 2).Value ' 获取当前工资
Call IncreaseSalaryByVal(currentSalary) ' 调用 ByVal 过程
ws.Cells(i, 2).Value = currentSalary ' 更新工资
Next i
MsgBox "工资已通过 ByVal 方式调整！"
End Sub运行 TestByRef 和 TestByVal，观察表格数据的变化，可以更直观地理解 ByRef 和 ByVal 的区别。
总结对比：
特性 | ByRef 传递参数 | ByVal 传递参数 |
参数传递方式 | 传递变量的内存地址（引用） | 传递变量的值（副本） |
是否影响原始变量 | 是，过程内部对参数的修改会影响原始变量 | 否，过程内部对参数的修改不会影响原始变量 |
效率 | 高效，适合处理大型数据 | 较低效，适合处理小型数据 |
适用场景 | 需要修改原始变量的场景 | 不需要修改原始变量的场景 |
实际应用建议：
- 如果你希望过程能够修改调用者传递的原始变量，请使用 ByRef。
- 如果你希望保护原始变量不被修改，或者只需要使用变量的值，请使用 ByVal。
通过这个案例，你可以清楚地看到 ByRef 和 ByVal 在实际编程中的区别和应用场景。希望这对你有帮助！