通过在范围值上使用分割来分配数组时出错

Question

我想从一个单元格解析一个字符串到一个数组以分离数据并将其放入另一个工作表中。

我一直收到无法分配到阵列错误，我不知道我在做什么错。我确信数据类型是正确的，甚至确保阵列上有足够的空间。

这里是我的代码：

Private Sub Enter2_Click() 
'Define Variables 
Dim MatchRow As Integer 
Dim data(7) As String 
Dim row As Integer 
Dim col As Integer 
Dim dataInfo As String 

Worksheets("Sheet1").Activate 
'Match Name To A Row 
MatchRow = WorksheetFunction.Match(RName.Value, Range("A1:A100"), 0) 
MsgBox MatchRow 
'call report 
Cells(MatchRow, 3).Select 
data() = Split(ActiveCell.Value, ".", 1) 'This is where the error comes from 
MsgBox data(0) 
Worksheets("Repoting template").Cells(20, 1).Select 

Answer 1

更改此：
data() = Split(ActiveCell.Value, ".", 1)

这样：
data() = Split(ActiveCell.Value, ".")

例子：

Answer 2

如果你有这样的样本数据：

你可以试试这个代码：

Option Explicit 

Sub Test() 

    Dim rng As Range 
    Dim data() As String 

    Set rng = ThisWorkbook.Worksheets("Sheet1").Range("A1") 
    data = Split(rng.Value, ".", -1, vbBinaryCompare) 

    Dim i As Integer 
    For i = LBound(data) To UBound(data) 
     Debug.Print data(i) 
    Next i 


End Sub 

这样做具有以下输出：

A 
B 
C 
D 
E 
F 
G