Скопировать данные из A6+, в F7+, при не пустых E7+

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скопировать данные из A6+, в F7+, при не пустых E7+ (Макросы/Sub)

Yar4i

Дата: Понедельник, 16.09.2019, 09:42 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 137

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Доброе утро, дамы и господа

Процесс начинается с 6 строки и следует до строки с текстом Итого
Из A6 нужно скопировать данные в F7 и F8. В F7 т.к. она следует за строкой 6 (с самими копируемыми данными)
и т.к. в E7 и E8 есть данные (ячейки не пустые)
и до F7 т.к E9 - ближайшая пустая ячейка.
Далее из A9 в F10,... и вплоть до строки содержащей в A столбце текст Итого.

Я разбивал по этапам данный процесс, но формулы оставляют след в ячейках и Эксель уже не распознает из как пустые.
(Данная таблица выходит как мат отчет из 1С)

К сообщению приложен файл: 1609.xlsx (16.0 Kb)

Ответить

Nic70y

Дата: Понедельник, 16.09.2019, 10:23 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 8759

Репутация: 2273 ±

Замечаний: 0% ±

Excel 2010

Цитата Yar4i, 16.09.2019 в 09:42, в сообщении № 1 ()

формулы оставляют след

а так
[vba]

Код

Sub u_321()
    u = Cells(Rows.Count, "a").End(xlUp).Row
    Range("f6:f" & u - 1).FormulaR1C1 = "=IF(RC[-3]="""","""",IF(R[-1]C="""",R[-1]C[-5],R[-1]C))"
    Range("f6:f" & u - 1) = Range("f6:f" & u - 1).Value
End Sub

[/vba]