Страницы: 1
RSS
Скопировать строку через одну
 
См. пример
 
А куда именно надо скопировать? В табличку справа или на другом листе или ещё куда? Макрос формула? Или тут просто необходимо удалить пустые строки из таблицы?
Изменено: CAHO - 24.06.2015 12:06:34
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.
 
Как-то так?
см.файл - формулы выделены желтым.
К результирующей таблице применен формат ячеек без отображения нулевого значения.
Кому решение нужно - тот пример и рисует.
 
В пустую строку значение (выше)
 
Алгоритм таковой  -Есть строка з пустыми ячейками  в некоторых есть цифра  надо    скопировать цифры и пустые ячейки в следующую строку сделать,См пример я отредактирую чтобы было понятно    
 
На листе 1(2) в прилагаемом файле - фигура с побуждающей надписью.
Код:
Код
Sub t()
    Dim objC As Range
        For Each objC In Range("A2:D9").SpecialCells(xlCellTypeConstants)
            objC.Offset(1, 0).Value = objC
        Next objC
End Sub


Диапазон A2:D9 - из примера (можно указать свой)
Изменено: Пытливый - 24.06.2015 14:26:05
Кому решение нужно - тот пример и рисует.
 
Получилось - Спасибо!
Страницы: 1
Наверх