Здравствуйте!! Нашла на форуме макрос копирования по условию, только копируется и формулы, а нужно без....
Спасибо заранее!!
Спасибо заранее!!
Код |
---|
Sub code() 'http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=174 Dim LastRow As Long, Rw As Long LastRow = Cells(Rows.Count, 1).End(xlUp).Row With Sheets("Ëèñò2") Rw = .Cells(Rows.Count, 1).End(xlUp).Row + 1 For i = 4 To LastRow If Cells(i, 1) = "a" Then Range(Cells(i, 2), Cells(i, 20)).Copy .Cells(Rw, 1) Rw = Rw + 1 End If Next End With End Sub |