在VBA中使用FindString的输出

Question

我想再次请求你的帮助。使用一些VBA打开一个Inputbox，并在工作表X中找到一个特定值，然后将整行切成工作表Y.我已经完成了Inputbox / FindString-part，如图所示;

我的问题非常简单;我如何使用Inputbox / Findstring找到的值？打算使用此值来创建剪切整行的代码，并删除剩余空间。

Answer 1

由于你已经有了范围变量 Rng ，我会这样做：

Rng.Cut
DestinationSheet.Range("destinationRange").select.Paste

Answer 2

If Not Rng Is Nothing Then
    Rng.Copy
    Worksheet("Y").Range("A1").Paste
    Rng.EntireRow.Delete
Else
    MsgBox("Nothing found")
End If