Question

我正在编写一个需要查找特定文本Client Remittance Details的Excel宏，然后选择并剪切到工作表的末尾，然后粘贴到另一个选项卡上。对于每个不同的工作簿，文本可以位于不同的行上。宏总是写一个特定的单元格引用，因此它在下一个文件中出错。这是宏的一部分似乎是错误。

Cells.Find(What:="Client Remittance Details", After:=ActiveCell, LookIn:= _
    xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
    xlNext, MatchCase:=False, SearchFormat:=False).Activate

Range("A12").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Cut
Sheets.Add After:=ActiveSheet
ActiveSheet.Paste

Answer 1

您的范围（＆＃34; A12＆＃34;）。选择会破坏您的查找。这：

Sub luxation()
    Dim r1 As Range, rCopy As Range, rPaste As Range
    Set r1 = Cells.Find(What:="Client Remittance Details", After:=Cells(1, 1), LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False)
    Set rCopy = Range(r1, Cells.SpecialCells(xlCellTypeLastCell))
    Sheets.Add After:=ActiveSheet
    Set rPaste = Range("A1")
    rCopy.Copy rPaste
End Sub

在新添加的工作表上将 rPaste 设置为单元格 A1 。

查找特定文本但不设置特定单元格引用

1 个答案: