哪位高手帮忙解决下,下面的代码提示-----next 没有 for
Function ABC(A As String) As String
Dim i, j As Integer
Dim B As String
For i = 0 To Len(A)
If Mid(A, i, 1) <> "-" Then
j = j + 1
Else
Exit For
Next i
B = Left(A, j)
End If
End Function
...全文
793打赏收藏
急,在线等!
哪位高手帮忙解决下,下面的代码提示-----next 没有 for Function ABC(A As String) As String Dim i, j As Integer Dim B As String For i = 0 To Len(A) If Mid(A, i, 1) "-" Then j = j + 1 Else Exit For Next i B = Left(A, j) End If End Function