Заменить пустые ячейки содержимым строки

Question

Мне нужно заполнить несколько пустых ячеек в определенном диапазоне строкой, то есть «зеленый». К сожалению, я не знаю номер последней строки, поскольку это может не быть заполнено и может меняться каждый раз, когда я запустите сценарий, когда я перетаскиваю данные из одного листа в другой в определенном формате.

Я ищу последнее число строк в столбце, которое я знаю, всегда будет иметь данные в этой ячейке. Это часть скриптов, на которых я запускаю ниже, на вопрос, который я задаю, я ищу пустую ячейку и заменить его словом «Зеленые». Я не получаю никаких ошибок, это просто не работает, поэтому я не уверен, где моя логика пошла не так.

LastRow = Cells(Rows.Count, 2).End(xlUp).Row 


With Range("AS22:AU" & LastRow) 

     .Replace what:=" ", Replacement:="Greens" 

End With 

Answer 1

Вместо этого;

.Replace what:=" ", Replacement:="Greens" 

использовать это;

.Replace what:="", Replacement:="Greens" 

Если ваши ячейки включают поддельные пробелы, то используйте это раньше;

Columns("AS:AU").TextToColumns Destination:=Range("AS1"), DataType:=xlFixedWidth, FieldInfo:=Array(1, 1) 

Answer 2

Ваш код ищет ячейки с одним пространством, а не полностью пустым. Попытка:

Dim r as range 
LastRow = Cells(Rows.Count, 2).End(xlUp).Row 

For each r in Range("AS22:AU" & LastRow) 
    if r.value2 = vbnullstring then r.value2 = "Greens" 
Next r 

Answer 3

Просто получить пустые клетки:

LastRow = Cells(Rows.Count, 2).End(xlUp).Row 
Range("AS22:AU" & LastRow).SpecialCells(xlCellTypeBlanks).Value = "Green"