VBA EXCEL：查找范围和复制单元格上的文本，其中包含下一页上的vlue和paste

Question

您好我想问一下如何在主表B栏的excel vba中找到一个文本并复制包含该文本的单元格并将其粘贴到另一张表格中。

到目前为止，我已经尝试录制一个可以解决问题但我无法修复代码的宏。有人可以帮助我......谢谢 i would like to search spouse soi

复制/粘贴代码

Range("B:B").Select
    Cells.Find(What:="SPO SOI:", After:=ActiveCell, LookinIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Cells.Find(What:="SPO SOI:", After:=ActiveCell, LookinIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Deactivate
    ActiveCell.Select
    Selection.Cut
    Sheets("STATUS").Select
    Range("P" & Lastrow).Select
    ActiveSheet.Paste