Копирование ячеек в активный рабочий лист из определенного диапазона символов

Question

Мне нужно скопировать определенное значение ячейки в текущую действующую таблицу из рабочих листов между предопределенным диапазоном рабочих листов. Например, только листы между Sheet5 и Sheet7. Я не могу указать имена рабочих листов, поскольку они еще не существуют. Они будут созданы пользователем через другой макрос по запросу и помещены в этот предопределенный диапазон рабочих листов при создании.

По сути, я думаю, мне нужно как-то определить рабочую книгу Диапазон между Sheet5 и Sheet7. Кстати, новые листы будут всегда находиться в пределах диапазона листа листа 5 до 7.

Answer 1

Вы можете использовать индекс листа такой, как

Sub SheetIndx() 
    If Sheets.Count >= 7 Then 
     ActiveSheet.Range("A1:B4").Copy Sheets(6).Cells(Sheets(6).Rows.Count, "A").End(xlUp).Offset(1) 
    End If 
End Sub 

или фактический sheet6, независимо от того, что имя листа есть, он все еще является листом6 и не имеет значения, какой порядок он находится в книге.

Sub Sheet() 
    If Sheets.Count >= 7 Then 
     ActiveSheet.Range("A1:B4").Copy Sheet6.Cells(Sheet6.Rows.Count, "A").End(xlUp).Offset(1) 
    End If 
End Sub