Скопировать диапазон с листа на лист

[Aleksandr H.]

Как без использования цикла скопировать с лист1 ячейки ("A2:B30,E2:F30") на лист2, только те в которых нет пустых в Е столбце?

[SAS888]

Можно так:

Intersect([A:B,E:F], [E2:E30].SpecialCells(2).EntireRow).Copy Sheets(2).[A1]

[IgorGO]

Sub CopyNoBlankE()
  With Worksheets(2)
    Worksheets(1).Columns(5).SpecialCells(xlCellTypeConstants).EntireRow.Copy .Cells(1)
    .Range("C:D").Delete ' or .Clearcontents
  End With
End Sub

[SAS888]

IgorGO, еще 1-ую строку удалить...

[IgorGO]

Сережа, а она не пустая в колонке Е))

[SAS888]

Странно... Я вижу заголовок "Field6".
Автор вопроса просил копировать со 2-ой строки, не зависимо от того, есть или нет какое-либо значение в "E1".
Я это понял буквально.

[IgorGO]

хотя, согласен, с А2:... т.е. строку нужно-таки удалять)

но Саше нужно только направление. он в состоянии бархатным напильником тщательно обработать код до нужного ему состояния

[Aleksandr H.]

SAS888,IgorGO спасибо за подсказки.

У меня при слове "Пересечение" первым всплыл в мозгу Union , а не Intersect, вот и ваял

Set cellResult = Union(Range("A2:B" & iLastRowSource), Range("E2:F" & iLastRowSource))
cellResult.Copy

и не мог придумать куда условие на пустые вставлять. При .pasteSpecial SkipBlanks ведь пропустит полностью пустые строки.

Буду использовать на выбор

Sub CopyNoBlankE()
  Dim r As Long
  ' == v2
  r = Sheets(2).Cells(Sheets(2).Rows.Count, "A").End(xlUp).Row + 1
  Intersect([A2:B5000,E2:F5000], [E2:E5000].SpecialCells(2).EntireRow).Copy _
            Sheets(2).Cells(r, 1)
  
  ' == v2
  With Worksheets(2)
    r = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
    Worksheets(1).Range("E2:E5000").SpecialCells(xlCellTypeConstants).EntireRow.Copy .Cells(r, 1)
    .Range("C" & r & ":D5000").Delete Shift:=xlToLeft
  End With
End Sub