嗨！ 如何根据条件复制特定的数据行并将其粘贴到同一工作表的新列中，并在它们之间留有空白列

Question

在此处输入图像描述 Excel电子表格

行的移动条件基于列A =“ Advia 1800 2”和列B =“ 15941”。

如果符合条件，则将这些行复制并粘贴到同一工作表下标题下的I列中，如所附图片所示。

如果有人可以告诉我该宏的外观，我将非常感激。

Answer 1

1. 您还有另外一个朋友，那个是Macro Recorder。 您可以通过选择“记录宏”来开始记录动作，可以从“视图”选项卡或“代码”部分的“开发人员”选项卡中的“视图”->“宏”->“记录宏”中进行选择，或者单击工作表左下角附近的符号。

2. 现在，单击“录制宏”后，将出现一个弹出窗口，您可以在注意到宏名称或将其更改为新名称后将其保存。 现在让我们忽略快捷键。

3. 现在，Macro已开始记录您的操作手动执行您想执行的操作。 选择要过滤的范围，在数据选项卡中选择过滤器。 从第1列然后在第2列的下拉列表中应用条件。在“查找和选择”部分的下拉菜单中选择“特殊”，然后选择可见的单元格，然后复制。 选择“ I1”单元格并粘贴。 转到数据标签，然后再次单击过滤器。 现在，您将根据需要在工作表中看到结果。 宏记录器生成的代码是：

     Sub Macro5() ' ' Macro5 Macro ' ' Range("A1:G14").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$G$14").AutoFilter Field:=1, Criteria1:= _ "Advia 1800 2" ActiveSheet.Range("$A$1:$G$14").AutoFilter Field:=2, Criteria1:="15941" Selection.SpecialCells(xlCellTypeVisible).Select Selection.Copy Range("I1").Select ActiveSheet.Paste Application.CutCopyMode = False Selection.AutoFilter End Sub 

结果显示在快照中。

仍然没有理由欢呼，因为它具有选择语句。 请仔细阅读如何避免在Excel VBA宏中使用“选择”作为练习，然后修改代码以删除“选择”在宏中。