Я пытаюсь перебрать строки на листе Excel, выбрать строку данных в качестве диапазона, скопировать и вставить ее в нужный лист.
В настоящее время я пытаюсь использовать приведенный ниже метод, который дает ошибку в части .Resize().
With ws1
For i = 2 To LastRow
Set rng1 = .Range("A" & i).Resize(0, 16)
rng1.Copy Destination:=wb1.Sheets(destination).Range("A" & lastRow2 + 1)
Я получаю ошибку 1004 в третьей строке. Я использую методологию копирования / вставки из предыдущего кода, поэтому я думаю, что это работает правильно.
Я пытался использовать:
Set rng1 = .Range("A" & i)
rng1.Resize(0, 16)
, а также
Set rng1 = .Range("A" & i)
Set rng1 = rng1.Resize(0, 16)
но я получаю одну и ту же ошибку каждый раз. Я знаю, что это, вероятно, простая проблема с синтаксисом, но я потратил последние 20 минут на поиск в Интернете и не могу понять, в чем заключается решение.
Я думал, может быть, пробуя EntireRow метод, но я упорно пытаюсь понять, что случилось с моей нынешней методологией.
Спасибо!