Я хочу копировать и вставлять строки из одной вкладки Excel в другую, когда критерий удовлетворен. В настоящее время это мой код, который я узнал из онлайн-учебника. Есть ли способ изменить код ниже, чтобы предотвратить перезапись и копирование одних и тех же данных дважды при каждом нажатии кнопки?
Private Sub CommandButton1_Click()
a = Worksheets("Results").Cells(Rows.Count, 1).End(xlUp).Row
For i = 5 To a
If Worksheets("Results").Cells(i, 29).Value = "Nutella" Then
Worksheets("Results").Rows(i).Copy
Worksheets("Nutella").Activate
b = Worksheets("Nutella").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Nutella").Cells(b + 1, 1).Select
ActiveSheet.Paste
Worksheets("Results").Activate
End If
Next
Application.CutCopyMode = False
ThisWorkbook.Worksheets("Results").Cells(1, 1).Select
End Sub
Спасибо