Страницы: 1
RSS
при условии вставить данные в ячейку слева, с помощью vba или функции
 
Добрый день, вроде очень просто, но не могу понять как сделать, помогите.
В столбце A количество товаров, а в столбце B артикул, задача
если в столбце B нет артикля, то количество товара  исправляем на 0.
 
Код
Sub LeftCellEdit()
    Dim sh As Worksheet
    Set sh = ActiveSheet
    With sh
        Dim yy As Long
        yy = .UsedRange.Row + .UsedRange.Rows.Count - 1
        Dim rr As Range
        Set rr = .Cells(1, 1).Resize(yy, 2)
    End With
    Dim arr As Variant
    arr = rr
    For yy = 1 To UBound(arr, 1)
        If IsEmpty(arr(yy, 2)) Then arr(yy, 1) = 0
    Next
    rr = arr
End Sub
 
Можно так:
Код
Sub InsertNull()
    On Error Resume Next
    [B:B].SpecialCells(4).Offset(, -1) = 0
End Sub
Отключение обработки ошибок - на случай, если в столбце "B" нет пустых ячеек.
Чем шире угол зрения, тем он тупее.
 
Спасибо, работает!!
Страницы: 1
Наверх