Заменить пустую/пустую ячейку со строковым значением

Question

Надеюсь, кто-то может помочь. Мне нужно заполнить любые пустые/пустые ячейки в пределах диапазона ячеек определенной строкой. Я также не знаю, что последняя строка будет в этом диапазоне, поэтому я сначала ее ищу, я знаю, что строка кода работает так, как я использовал ее для другой функции внутри скрипта. Ниже приведен код, я использую: -

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

    For Each r In Range("AS22:AU" & LastRow) 
     If r.Value2 = vbNullString Then 
      r.Value2 = "Greens" 
     End If 
    Next 

Я не похож, чтобы получить какую-либо ошибку компиляции, когда я запускаю код, он просто не работает, я до сих пор имеет те же пустые/пустые ячейки.

Может ли кто-нибудь пролить свет на то, что я делаю неправильно?

Answer 1

Вы можете использовать .Replace Method с диапазоном. Это было бы намного быстрее.

Range("AS22:AU" & LastRow).Replace "", "Greens", xlWhole 

Answer 2

Использовать IsEmpty() для проверки пробелов.

Также следите за ячейками с нулевой длиной строки или пробелом. Они кажутся пустыми, но на самом деле их нет.

Answer 3

Как насчет:

Sub dural() 
    Dim r As Range, LastRow As Long 

    LastRow = Cells(Rows.Count, 2).End(xlUp).Row 
    For Each r In Range("AS22:AU" & LastRow) 
     If r.Text = "" Then r.Value = "Greens" 
    Next r 
End Sub 

Это изменит:

• действительно пустые клетки
• ячеек, содержащих формулу возвращающихся Null
клетку
• содержащей Null символа в качестве постоянного