如果行包含单词，请从列中标识并复制所有单元格并复制到另一个表单

我正在尝试创build一个macros，它将从Sheet（“Project Parts Requisitioning”）中连续查找4个不同的单词。 一旦完成，它将复制这四列中的所有单元格，并将在表（GCC）中粘贴到列（A，D，E，O）中。 我有一部分代码，但它不查找单词，它只是简单地将预定义的单元格移动到这些列。

如果你帮我这个，我会很感激。

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