Добрый день уважаемые формучане.
Не получается написать макрос, таким образом, чтобы сперва он просматривал диапазон на предмет непустых ячеек, а после этого копировал непустые ячейки в другой диапазон вставляя их друг за другом.
Код, которым пробовал это сделать приложен.
Если еще подскажете как органичить проверку во второй книге диапазоном "C15:С29" буду оочччень признателен.
Не получается написать макрос, таким образом, чтобы сперва он просматривал диапазон на предмет непустых ячеек, а после этого копировал непустые ячейки в другой диапазон вставляя их друг за другом.
Код, которым пробовал это сделать приложен.
Код |
---|
For Each cell In ActiveSheet.UsedRange.Range("AG5:BE5") 'задаю диапазон проверки If cell.Value <> 0 Then ActiveCell.Copy ' если удовлетворяет требованиям копирую Windows("Книга1.xls").Activate 'активирую другую книгу I = 15 'задаю переменную для поиска непустой ячейкии в нужном диапазоне Do While Range("C" & I) <> "" 'ищу первую непустую строку I = I + 1 Loop Range("C" & I).Select 'выделяю ее Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'вставляю значение из первого диапазона ThisWorkbook.Activate 'возвращаюсь в первую книгу Next |