列cのシート上のテキストを検索しようとしていますが、同じ行内に見つかった場合は、列aを選択してコピーして2枚目に貼り付けます。私はこのコード検索後にVBAの特定の列を選択する
Sub Test()
For Each Cell In Sheets("Asset Capture").Range("C35:C3000")
If Cell.Value = "MONITOR" Then
matchRow = Cell.Row
Rows.Range(matchRow & ":" & matchRow).Select
Selection.Copy
Sheets("GRN Status Report").Select
lastRow = ActiveSheet.UsedRange.Rows.Count
If lastRow > 1 Then lastRow = lastRow + 1
ActiveSheet.Range("A" & lastRow).Select
ActiveSheet.Paste
Sheets("Asset Capture").Select
End If
Next
End Sub
を開始しているが、それは全体の行を選択して、私はちょうどA列からデータを選択するようにコードを変更する方法を見つけ出すことはできませんか?
探しホープはあなたのすべては、それがソートましたありがとうございました!!! – jest3r