根据单元格值复制和粘贴行和列

Question

您好，我需要一些代码方面的帮助，基本上我有一个工作簿，其中包含大量产品配件数据，列在这些旁边的列中，所有单元格中都有空白字段的产品，基本上，当用户在任何这些单元格中键入“x”时，表格就可以被过滤掉。

我已经制作了一个摘要表，我希望它查看这些特定列，例如列 EN，如果它包含“x”，它将复制相应的 A、B、C、D 行并将其粘贴到这个汇总表一个接一个地复制所有x上方的行中的产品

例如

Column E has an x in E4,5,10,15,53

我希望它复制

ABCD4
ABCD5
ABCD10
ABCD15
ABCD53

以及产品名称，例如“melons”，在这种情况下位于每列的第一个空白框上方，可以说 E4 是第一个空白，因此 E3 将是产品名称。

并将其逐行粘贴到名为“摘要表”的工作表中。

我知道这真的很令人困惑，但我希望你能帮忙:)

我的代码： 我现在有了这段代码，我几乎在我想去的地方我需要在线帮助

    Range("A5").Select

它给了我一个错误，但除非我选择这个单元格，否则它会随机粘贴在工作表上

 Private Sub CommandButton9_Click()
 Range("A7:D7").Select
 Range(Selection, Selection.End(xlDown)).Select ' Go to last line

 ' Add a filter behavior
 Selection.AutoFilter Field:=5, Criteria1:="<>"

 Range("A7:D7").Select
 Range(Selection, Selection.End(xlDown)).Select

 Selection.Copy

 ' Paste data where you want
 Sheets ("Summary Sheet")
 Range("A5").Select
 ActiveSheet.Paste
 End Sub

Answer 1

这个想法可能是

1. 选择您的数据集

2. 应用过滤器来隔离以 x 作为过滤值的行 专栏

3. 选择数据并执行复制/粘贴操作

建议的代码示例（应适应您的电子表格）

     ' Select your range of data - maybe 
     Range("A1:E1").Select 
     Range(Selection, Selection.End(xlDown)).Select ' Go to last line

     ' Add a filter behavior
     Selection.AutoFilter Field:=5, Criteria1:="<>"

     Range("A1:E1").Select 
     Range(Selection, Selection.End(xlDown)).Select

     Selection.Copy

     ' Paste data where you want
     Sheets("Feuil2").Select
     Range("A1").PasteSpecial Paste:=xlPasteValues