WPS无法运行vba代码

Question

如下代码在excel中可以运行。但是在WPS中会提示公式异常，有没大神帮帮忙看看，主要功能是将一列的数据用分号连接在一起
Function Combine(WorkRng As Range, Optional Sign As String = ";") As String
'Update 20130815
Dim Rng As Range
Dim OutStr As String
For Each Rng In WorkRng
If Rng.Text <> "" Then
OutStr = OutStr & Rng.Text & Sign
End If
Next
Combine = Left(OutStr, Len(OutStr) - 1)
End Function
求教

Answer 1

PrivateSubWorksheet_Change(ByValTargetAsRange)IfTarget.Column=3AndTarget.Count=1AndTarget.Row>1AndTarget>0AndLeft(Target,2)"超限"ThenA1=70:A2=60:A3=50:A4=40'这里是四个固定数S1="

Answer 2

WPS有没有安装VBA插件？追问

有的

追答

截图看看，错误提示

追问



追答

Function Combine(WorkRng As Range, Optional Sign As String = ";") As String

Optional Sign As String = ";"
这一句类型不对