Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

25th
Июл

Перенос определенных строк на другой лист

Posted by obzor under Basic, VBA

Задача следующая: нужно перенести с первого листа на второй только определенные строки. Например только те, в которых в столбце А есть значение 850000010248.

SAS888

Sub qq()
    Dim rng As Range, x: Application.ScreenUpdating = False
    x = "850000010248" 'Это то, что будем искать
    If Sheets("Лист1").[A:A].Find(x) Is Nothing Then Exit Sub
    With Sheets("Лист2")
        .Cells.ClearContents
        Sheets("Лист1").UsedRange.Copy .[A1]
        .[A:A].ColumnDifferences(.[A:A].Find(x)).EntireRow.Delete
    End With
End Sub

тема на форуме