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

Question

Я хочу написать макрос, который устанавливает ячейки в листах «Section_errors» и «Elemant_errors», равных ячейкам в листе «ICS Analysis». Все данные существуют в «ICS Analysis». Я пытаюсь код ниже, но он не работает и никаких ошибок не появляется. В чем может быть причина? Я попробовал также простой copy-paste, он работает, но это занимает слишком много времени

 Sub copy_id()
Dim i As Integer
Dim lastrow As Integer

lastrow = Worksheets("ICS Analysis").Cells(Worksheets("ICS Analysis").Rows.Count, 1).End(xlUp).Row

For i = 1 To lastrow

Worksheets("Element_errors").Cells(i, 73).Value = Worksheets("ICS Analysis").Cells(i, 3).Value
Worksheets("Section_errors").Cells(i, 10).Value = Worksheets("ICS Analysis").Cells(i, 3).Value
Next i
End Sub

Answer 1

Решение по мне:

Sub copy_id()
Dim i As Integer
Dim lastrow As Integer
lastrow = Worksheets("ICS Analysis").Cells(Worksheets("ICS Analysis").Rows.Count,1).End(xlUp).Row
For i = 1 To lastrow
Worksheets("Element_errors").Cells(i, 73).Value = Worksheets("ICS Analysis").Cells(i,3).Value
Worksheets("Section_errors").Cells(i, 10).Value = Worksheets("ICS Analysis").Cells(i,3).Value
Next i
End Sub

Изменение - это местоположение определения переменной lastrow .

Видите ли, в более ранней версии lastrow получало значение 1 до входа в цикл, и, следовательно, цикл не работал.

Следовательно, нет данных.

Надеюсь, это поможет ...