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

在上面的代码中，我声明了一个数组，并尝试通过用空格拆分字符串并修剪字符串来放置值。在行中，我这样做会导致类型不匹配错误。

---

我是否声明数组错误？我应该“设置”数组值吗？

我想问题在于数组声明部分

试试下面。希望应该起作用

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, " "))

---

不能将数组传递给

Trim

。假设您是在空格上拆分，我假设您应该首先使用

Trim

：

SNmae=Split（Trim（Name），“”）

谢谢，我需要在使用空格拆分后进行修剪。从技术上讲，这是不正确的吗？像“asha gamage”这样的词应该是“asha”和“gamage”。这两个字符串之间有两个空格，这没有意义。在空格上拆分将从数据中删除所有空格，但它将为您提供空数组元素。您可以使用以下方法解决此问题：

SNmae=Split（Application.Trim（Name），“”）

非常感谢您提供此信息。

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