Я создал систему листов для моего бюро по трудоустройству, которая организует информацию и графики для волонтеров и разделяет графики по месяцам. Когда я хочу добавить новый месяц, у меня есть макрос, который копирует «основной» лист за месяц из «основной» рабочей книги на все 47 различных листов. На четырех из этих листов приведенный ниже код дает сбой. На остальных 43 все работает просто отлично.
sourceBook.Sheets(Array("February, "Events", "Volunteers")).Copy _
After:=destinationBook.Sheets("Volunteers")
Код внутри с также сбивает те же листы, но не остальные.
With sourceBook.Sheets("February").UsedRange
destinationBook.Sheets("February").Range("A1").Resize( _
.Rows.Count, .Columns.Count) = .Formula
End With
На всех листах февральский лист не существует, а события и волонтеры существуют. Код позже удаляет дубликаты. Почему Excel вылетает только на некоторых из них (они кажутся идентичными на поверхностном уровне) для этой копии? Если вам нужна дополнительная информация, я ее предоставлю.