vb.net - 尝试用 xlUp 进行 selection.replace

Question

所以我试图找到一个变量范围并替换我用“空白”填充空格的地方，以便在我向下拖动一行的地方插入行。我需要的只是帮助修复我的 xlUp，以便它与 selection.replace 一起使用。

Sub ReplaceBlanks()
Dim LR As Long
Set LR = Range("A2:R" & Cells(Rows.Count, 1).End(xlUp).row)
Range(LR).Select
Selection.Replace What:="", Replacement:="Blank", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
End Sub

我也忘了添加错误，它的“编译错误：需要对象”我在今年夏天的实习中使用 excel 做了很多工作，我期待着对这些东西有更多的了解。我感谢您的帮助！

Answer 1

Sub ReplaceBlanks()

Dim LR As Range

Set LR = Range("A2:R" & Cells(Rows.Count, 1).End(xlUp).row)

LR.Replace What:="", Replacement:="Blank", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False

End Sub