從一個工作表複製一行到另一個工作表行是否包含特定值

Question

這不應該被複雜的代碼，但我新到Excel VBA。我嘗試了許多不同的方法，導致錯誤，無限循環和錯誤的選擇。

我需要逐行通過「Sheet1」一次選擇一行，檢查J列中的值是否正確（值= 131125），如果是則複製 - 將行粘貼到「Sheet2」 （與Sheet1中的行相同）。

非常感謝幫助！ :)

Answer 1

Sub Test() 
For Each Cell In Sheets(1).Range("J:J") 
    If Cell.Value = "131125" Then 
     matchRow = Cell.Row 
     Rows(matchRow & ":" & matchRow).Select 
     Selection.Copy 

     Sheets("Sheet2").Select 
     ActiveSheet.Rows(matchRow).Select 
     ActiveSheet.Paste 
     Sheets("Sheet1").Select 
    End If 
Next 
End Sub