как писать в ячейки другого листа

Question

У меня есть около 20 листов в книге. Каждый из них имеет конкретное значение данных в том же cell(i,j). Я хочу добавить еще один лист в конце, который может хранить все эти значения данных в своих ячейках, один под другим. я написал код для этого

Sheet21.Range(Cells(i, 0)).Value = myWorksheet.Range(Cells(221, 2)).Value 
    i = i + 1 

но он дает эту ошибку " Object variable or with block variable not set"
Я новичок и не имею ни малейшего представления о том, как отладить это.

Любая помощь была бы принята с благодарностью.

Спасибо

Answer 1

Ниже приведен пример добавления нового листа, назвав его «Резюме» и зацикливание над первоначальными листов для сбора данных:

Sub Luxation() 
    Dim myWorksheet As Worksheet, sh As Worksheet 
    Dim i As Long, j As Long, k As Long 
    i = 7 
    j = 11 
    ActiveWorkbook.Sheets.Add After:=Worksheets(Sheets.Count) 
    Set myWorksheet = ActiveSheet 
    ActiveSheet.Name = "Summary" 
    For k = 1 To Sheets.Count - 1 
     Cells(k, 1).Value = Sheets(k).Cells(i, j).Value 
    Next k 
End Sub