下面是一个通过byref的形式来定义需要返回的形参，进而达到调用一个函数，可以返回多个结果的效果。 本例中需要返回的是 aa和bb的结果。 Sub cc() Dim a As Integer,b As Integer,reta As Integer,retb As Integer a = 1 b = 2 test a,b,reta,retb End Sub Function test(a As Integer,ByRef aa As Integer,ByRef bb As Integer) aa = 2 bb = 3 End Function 原文链接：https://www.f2er.com/vb/259348.html