Копирование и вставка строки в Excel при выполнении условия без перезаписи - PullRequest
0 голосов
/ 26 июня 2018

Я хочу копировать и вставлять строки из одной вкладки 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

Спасибо

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...