尝试做一个select。换一个xlUp

所以我正在尝试到一个可变范围查找并replace我填充空白空间的空白行插入行，我拖下来。 所有我需要的是帮助修复我的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