无法获得具有两个参数的excel vba函数

我在Excel Vba中有这个function：

Function split_std(cell As String, separator As String) Dim arr() As String arr() = Split(cell, separator) MsgBox (arr(0)) End Function 

我这样称呼它：

 Sub split_standard() Set cell = Application.InputBox(Prompt:="Please select the cell to split", Title:="Cell Selection", Type:=8) separator = InputBox("Please type in the separator of the items in the string") Dim arr() As String MsgBox (cell) split_std (cell, separator) End Sub 

但是当完成写入函数的调用时，会出现错误：“Expected：=”。 我已经尝试删除括号，但我不能得到它的工作。 请帮助！

Answer 1

试试这个：

 Function split_std(cell As String, separator As String) Dim arr() As String arr() = Split(cell, separator) MsgBox (arr(0)) End Function Sub split_standard() Dim cell As String Dim separator As String cell = Application.InputBox(Prompt:="Please select the cell to split", Title:="Cell Selection", Type:=8) separator = InputBox("Please type in the separator of the items in the string") MsgBox (cell) Call split_std(cell, separator) End Sub 

Answer 2

关：

 Function split_std(cell As String, separator As String) Dim arr() As String arr() = Split(cell, separator) MsgBox (arr(0)) End Function Sub split_standard() Dim cell As Range, separator As String Set cell = Application.InputBox(Prompt:="Please select the cell to split", Title:="Cell Selection", Type:=8) separator = InputBox("Please type in the separator of the items in the string") Dim arr() As String MsgBox cell split_std CStr(cell.Value), separator End Sub