Добрый день.
Подскажите пожалуйста как должен выглядеть этот код, который будет охватывать сразу все ячейки листа:
Подскажите пожалуйста как должен выглядеть этот код, который будет охватывать сразу все ячейки листа:
Код |
---|
Sub ReplaceToEmpty()Dim iRow&, cl As Range lRow = Cells(Rows.Count, "A").End(xlUp).Row For Each cl In Range("A1:A" & lRow).Cells If Len(cl) = 0 Then cl.Value = Empty Next End Sub |