excel vbaのオブジェクトエラー

Question

シート1のデータを配列に解析して別のワークシートに出力しようとしています。私はオブジェクトが必要なエラーが発生しますが、私は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。