vba - 在范围值上使用拆分分配数组时出错

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, ".")
例子: