对象错误在Excel VBA中

我试图parsing来自sheet1的数据到一个数组，然后将其打印到另一个工作表。 我得到一个对象所需的错误，但从我可以从msdn收集的是，我的对象types是错误的数组，但是当我从string切换到变体的数组，我得到一个不匹配的错误，而不是。 我能做些什么来解决对象所需的424错误？ 代码如下：

Private Sub Enter2_Click() 'Define Variables Dim MatchRow As Integer Dim data() 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) For i = 0 To 22 Worksheets("Sheet1").Activate Cells(MatchRow, i + 3).Select data = Split(ActiveCell.Value, ".") Worksheets("Reporting template").Activate Cells(20, 1).Select ActiveCells.Value = data(0) 'This is where the error pops up at ActiveCells.Offset(0, 1).Select ActiveCells.Value = data(1) ActiveCells.Offset(0, 1).Select ActiveCells.Value = data(2) ActiveCells.Offset(0, 1).Select ActiveCells.Value = data(3) Next i End Sub 

Answer 1

ActiveCells是您在任何地方定义的对象吗？ 通常是指我们使用ActiveCell的活动单元格。 没有。