在VBA中使用FindString的輸出

我想再次請求您的幫助。使用一些打開Inputbox的VBA，並在工作表X中找到一個特定的值，然後將完整的行切割爲工作表Y.我已經完成了Inputbox/FindString-部分，它顯示在; 。在VBA中使用FindString的輸出

我的問題很簡單;我將如何使用Inputbox/Findstring找到的值？有意使用此值來創建切割整行的代碼並刪除剩餘空間。

2015-12-02 RobExcel

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

2015-12-02 09:04:39 Vegard

或者可以只使用'Rng.Copy目標：工作表（「Y」）範圍（「A1」）（或類似的東西）。 –

確實。我傾向於保持獨立的操作，但這只是習慣的力量。 – Vegard

黃金答案。現在唯一的問題是我收到編譯錯誤，可能錯過了END IF。 – RobExcel

既然你已經具有可變RNG的範圍內，我會做這樣的事情：

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

2015-12-02 09:01:03 thepiyush13

回答