Option Explicit
Sub data()
Dim a, b As String
a = "demo"
b = "text"
Call getValue(a, b)
End Sub
Sub getValue(a As String, b As String)
Cells(1, 1).Value = a
Cells(1, 2).Value = b
End Sub
Run Code Online (Sandbox Code Playgroud)
我得到编译时错误:上面的代码上的byref参数类型不匹配错误