不匹配錯誤哪裏不應該

Question

我想寫一個宏，但它目前返回「不匹配錯誤」。

當我拿出「ListSheets = SheetName」部分時，它工作正常，但當然不會輸出我在找的東西。

我不明白這個錯誤，因爲代碼行的兩邊都應該是字符串。

Function ListSheets() As String 

Dim i As Integer 
Dim k As Integer 
Dim sRow As Integer 
Dim mNum As Integer 
Dim sName() As String 
Dim SheetName() As String 
Dim Width As Integer 
Width = 8 


'initialize sheet name list 
sRow = LastRow("Category List", 1) 
mNum = Cells(sRow, 1) 

ReDim sName(1, sRow) 
ReDim SheetName(mNum) 

'copy sheet list 
For i = 2 To sRow 
    sName(0, i) = Cells(i, 1) 
    sName(1, i) = Cells(i, 1) & " - " & Cells(i, 2) 
Next i 

'transform list to good list 
k = 2 
For i = 1 To mNum 
    If IsNumeric(sName(0, k)) Then 
     If i = sName(0, k) Then 
      SheetName(i) = sName(1, k) 
      k = k + 1 
     End If 
    End If 

    If i = 100 Then 
     k = k + 2 
    ElseIf i = 200 Then 
     k = k + 2 
    ElseIf i = 500 Then 
     k = k + 2 
    End If 

Next i 

ListSheets = SheetName 

End Function 

Answer 1

將您的返回類型更改爲String（）而不是String。