行に単語が含まれている場合は、列からすべてのセルを識別してコピーして、別のシートにコピーします。

Question

Sheet（ "Project Parts Requisitioning"）から行の4つの異なる単語を検索するマクロを作成しようとしています。完了すると、その4つの列からすべてのセルがコピーされ、列（A、D、E、O）のシート（GCC）に貼り付けられます。 私はコードの一部を持っていますが、単語を探すのではなく、あらかじめ定義されたセルをそれらの列に移動するだけです。

これで私を助けていただければ幸いです。

With Sheets("GCC1") 
    lastrowGCC1 = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 
End With 
arr1 = Array("K", "P", "Q", "AA") 
arr2 = Array("A", "D", "E", "O") 
For i = LBound(arr1) To UBound(arr1) 
    With Sheets("Project Parts Requisitioning") 
     lastrow = Application.Max(n, .Cells(.Rows.Count, arr1(i)).End(xlUp).Row) 
     .Range(.Cells(n, arr1(i)), .Cells(lastrow, arr1(i))).Copy 
     Sheets("GCC1").Range(arr2(i) & lastrowGCC1).PasteSpecial xlPasteValues 
    End With 
Next 
Application.CutCopyMode = False 

Answer 1

この

Sub testso() 

arr1 = Array("K", "P", "Q", "AA") 
arr2 = Array("A", "D", "E", "O") 

For i = 0 To 3 

    Sheets("GCC").Columns(arr2(i)) = Sheets("Project Parts Requisitioning").Cells.Find(arr1(i), LookIn:=xlValues, lookat:=xlPart, MatchCase:=True).EntireColumn.Value 

Next i 

End Sub