用string内容replace空白单元格

我需要用一个string，即“绿色”填充特定范围内的一些空白单元格。不幸的是，我不知道最后一行的号码，因为这可能不会填充，并且可能会在每次运行脚本时更改，一个工作表以特定格式转换成另一个工作表。

我正在寻找列上的最后一行数据，我知道总是有数据在这个单元格中，这是我正在运行的脚本的一部分，我正在问的问题，我正在寻找一个空的单元格，并用“绿色”这个词。 我没有得到任何错误，只是不工作，所以不知道我的逻辑出错了。

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"