Добрый день!
Подскажите, пожалуйста, как можно вставить строки из другого листа по условию. Именно вставить, потому что при копировании нужно отслеживать количество пустых строк и если они не совпадают то данные накладываются на записи снизу. Код который я пытаюсь доработать ниже. Файл примера во вложении.
Подскажите, пожалуйста, как можно вставить строки из другого листа по условию. Именно вставить, потому что при копировании нужно отслеживать количество пустых строк и если они не совпадают то данные накладываются на записи снизу. Код который я пытаюсь доработать ниже. Файл примера во вложении.
Код |
---|
Sub Кнопка1_Щелчок() Dim LastRow As Long, Rw As Long ' LastRow = Cells(Rows.Count, 1).End(xlUp).Row With Sheets("Онега") Rw = .Cells(Rows.Count, 1).End(xlUp).Row + 1 Rw = 10 For i = 2 To LastRow If Cells(i, 9) = "Онега-строй" Then Range(Cells(i, 6), Cells(i, 6)).Copy .Cells(Rw, 7) Range(Cells(i, 2), Cells(i, 3)).Copy .Cells(Rw, 2) Rw = Rw + 1 End If Next |