分割以“，”分隔的字符串时出错，运行时错误'13'：键入不匹配。如何解决呢？

Question

Private Sub subst()

Dim temp1 As String
temp1 = "Test,test,TEst"
Dim i As Integer
i=0
Dim temp(3) As String
For i=0 To 2
   temp(i) = Split(temp1,",")
Next i

现在，在运行代码时弹出一条错误消息

“运行时错误'13'：类型不匹配”

Answer 1

固定的代码可能看起来像这样

Private Sub Subst()

    Dim temp1 As String
    temp1 = "Test,test,TEst"
    Dim i As Long

    Dim temp As Variant
    temp = Split(temp1, ",")

    For i = LBound(temp) To UBound(temp)
        Debug.Print temp(i)
    Next i

End Sub

正如我在评论中所言，您可以为初学者和其他掌握宏观知识的读者找到相当不错的阅读材料

Split

Using Split and arrays

Using Loops with an array