类型不匹配：在同一行中修剪和拆分并使用数组

Question

Sub matchid()
Dim Coun, anncount, dcoun, danncount, i, j, Tcount As Integer
Dim orange As Range
Dim Name, dName As String
Dim SNmae(), dNmae() As String
Dim osheet As Worksheet
For Coun = 2 To 157
Set osheet = Sheets("Sheet1")
Set orange = osheet.Range("H" & Coun)
If WorksheetFunction.IsNA(orange) Then
Name = osheet.Range("G" & Coun).Value
SNmae = Trim(Split(Name, " "))

在上面的代码中，我声明了一个数组并尝试通过将一个字符串与空格分开并修剪相同来放置值。在我做的这一行中，这给了我一个类型不匹配错误。 我是否声明了数组错误？我应该设置＆＃34;数组值？

Answer 1

我猜问题是阵列声明部分。

请尝试以下操作。希望应该有效。

 Dim SNmae() As String
 Dim dNmae() As String