请大侠帮忙修改，提示错误是“编译错误：方法和数据成员未找到”

Question

Sub ffffff()
  Dim Aarray(9, 9) As Integer
    Dim i As Integer
    Dim j As Integer
 For i = 0 To 9
        For j = 0 To 9
            Aarray(i, j) = 0
            Aarray(i, j) = 0
        Next
    Next
  For i = 0 To 100
        For j = 0 To 2
               
        Aarray(Sheet1.cell(i, j).Value, Sheet1.cell(i + 1, j).Value) = Aarray(Sheet1.cell(i, j).Value, Sheet1.cell(i + 1, j).Value) + 1
        Aarray(Sheet1.cell(i, j).Value, Sheet1.cell(i + 1, j + 1).Value) = Aarray(Sheet1.cell(i, j).Value, Sheet1.cell(i + 1, j + 1).Value) + 1
        Aarray(Sheet1.cell(i, j).Value, Sheet1.cell(i + 1, j + 2).Value) = Aarray(Sheet1.cell(i, j).Value, Sheet1.cell(i + 1, j + 2).Value) + 1
         Next
    Next
 For i = 0 To 9
        For j = 0 To 9
    Sheet1.Cells(i + 10, j + 10).Value = Aarray(i, j)
       
     Next
    Next
End Sub

Answer 1

Sheet1.cell(i, j)应为 Sheet1.cells(i, j).

Answer 2

同意，粗心大意。他最后的循环中就对了：
Sheet1.Cells(i + 10, j + 10).Value =