Excel CTRL F函数并引用找到的单元格整行

对于excel VBA，如何使用ctrl F函数查找特定单元格，然后将该单元格整行复制到数据集的底部，然后删除最初搜索的行

更具体地说，我正在搜索的单词将始终在那里，始终在同一列中（与此单元格相邻的列将包含与此单词链接的其他信息，说明我为什么需要复制整行）和只会在数据集中出现一次，但是它所在的行会随着数据集中的行数的变化而变化

我想做的是将整行复制并粘贴到数据集的底部，然后从原始位置删除条目

我已经查看了ctrl F函数，但是我很难再引用找到的单元格并将其粘贴到数据的底部

---

任何想法都将不胜感激。

假设您正在处理

表单1

，并且您正在搜索的值位于

列A

。您需要更新以上所有参考资料，以符合您的实际数据

您可能还需要修改

范围的标准。查找
方法以满足您的需要（例如部分匹配与精确匹配）。更多关于如何做到这一点的信息可以找到


Sub-Shelter\u In\u Place（）
Dim ws As Worksheet:Set ws=ThisWorkbook.Sheets（“Sheet1”）“
Find
，如果成功，将返回一个
范围
，因此您只需复制
.EntireRow
。很抱歉，我很晚才发表评论，但我最终使用了您的答案，它非常有效，在我的问题结束之前就进入了。你真是天赐之物
Sub Shelter_In_Place()

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1") '<-- Update

Dim lr As Long, Found As Range, Target As String

lr = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
Target = "Some Word"
Set Found = ws.Range("A1:A" & lr).Find(Target)

If Not Found Is Nothing Then
    Found.EntireRow.Copy
    ws.Range("A" & lr + 1).PasteSpecial xlPasteAll
    Found.EntireRow.Delete
Else
    MsgBox Target & " not found in Column"
End If

End Sub