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

尝试使用xlUp进行selection.replace

1 个答案: