Страницы: 1
RSS
Заполнить пустые строки нужными данными
 
Есть список с данными в некоторых строках. Строк таких несколько тысяч.


Нужно в столбце "Product code" продублировать значение до следующего заполненного значения "Product code".
А в столбце "Pair type" заполнить пустые ячейки между М и М - латинской буквой A.

Чтобы было так


Заранее благодарен за помощь
 
Формулами. Для Product Code:
=IF(ROWS(A$2:A$18)>=ROWS(G$2:G2);LOOKUP(2;1/(A$2:A2>0);A$2:A2);"")
Для Pair type:
=IF(B2<>"М";B2;"А")
Изменено: memo - 03.08.2022 21:05:34
 
Макросом так. (см. файл)
Код
Sub FillRange()
    Dim LastRow As Long
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        .Range("A2:A" & LastRow).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
        .Range("B2:B" & LastRow).SpecialCells(xlCellTypeBlanks).Value = "A"
    End With
End Sub
 
memo, New спасибо за помощь. То что нужно
Страницы: 1
Наверх