Я нашел этот вопрос во время поиска, у меня был тот же вопрос. Вот что я заметил:
Sub Transfer(x As Long)
Dim Rng, ID as Range
Dim i, j, n As Long
Worksheets(5).Activate
n = Worksheets(5).Range(Range("I88"), Range("I88").End(xlToRight)).Count
Worksheets(x).Select
Set Rng = Worksheets(3).UsedRange.Find("Element", LookIn:=xlValues).Offset(1, 1)
Set ElemID = Range(ElemRng.Offset(0, -1), ElemRng.Offset(0, -1).End(xlDown))
Set ElemRng = Worksheets(3).Range(ElemRng, ElemRng.End(xlToRight))
End Sub
Я обнаружил, что я ХАД , чтобы поместить worksheet.activate (или выбрать), или код будет сталкиваться с:
Ошибка времени выполнения: «1004»
Ошибка приложения или объекта