VBA 函数返回 多个

VBA (Visual Basic for Applications) 中的函数通常不会直接返回多个值，因为 VBA 是一种过程化编程语言，其设计更倾向于单个返回值。然而，你可以通过几种方式间接地“返回”多个值：

1. **数组**：你可以创建一个数组作为函数的结果，数组可以存储多个相关的数值。用户可以在函数调用后通过索引来访问每个元素。

Function GetMultipleValues() As Variant
    Dim values(1 To 3) As Integer ' 创建一个包含三个元素的整数数组
    values(1) = 10
    values(2) = 20
    values(3) = 30
    GetMultipleValues = values ' 返回整个数组
End Function

2. **结构体（Object）**: 如果需要返回多个不同类型的数据，可以使用自定义的对象（如UserDefined Type或结构体）。这允许你在一个单一的对象中包含多个字段。

Type MyReturnStruct
    IntValue As Long
    StrValue As String
End Type

Function GetComplexValues() As MyReturnStruct
    Set GetComplexValues = New MyReturnStruct
    GetComplexValues.IntValue = 100
    GetComplexValues.StrValue = "Hello"
End Function

3. **通过引用传递参数**：虽然不是直接返回，但你也可以将多个变量作为函数参数传入，函数内部修改它们，然后外部处理这些变量。

然而，在实际应用中，为了代码清晰性和可读性，一般建议避免返回大型数据集或复杂结构。如果你真的需要返回大量信息，可能要考虑其他数据交换策略，比如在数组或对象中存储数据，然后返回其引用。