excel vba中的對象錯誤

Question

我想將sheet1中的數據解析到數組中，然後將其打印到另一個工作表中。我得到一個對象所需的錯誤，但從我可以從msdn收集的是，我的對象類型對於數組是錯誤的，但是當我將數組從字符串切換到變體時，我得到一個不匹配錯誤。我能做些什麼來修復對象所需的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。否s。