excel - Microsoft Excel - 如何将行从一个工作表复制到另一个按值过滤的工作表

Question

例子:

我的 Sheet1 看起来像这样:



在 Sheet2 中，我想要这样的输出(这里我想获取所有带有 Item 'CAMERA' 的行):



我很难为产品 Sheet2 编写公式，你能帮我用什么公式吗？

Answer 1

这个宏应该可以解决问题:

第 1 步:按 Alt+F11 打开“Microsoft Visual Basic for Applications”

第 2 步:按 F7 打开一个空白代码表

第 3 步:将以下代码复制到工作表上:

Sub FilterandCopy()
Dim Equipment As String

Equipment = InputBox("Which piece of equipment?")

    With ActiveSheet.Range("A:D")
         .AutoFilter Field:=1, Criteria1:="" & Equipment & ""
    End With

ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Copy _
    Destination:=Worksheets("Sheet2").Range("A2")

Sheets("Sheet2").Range("A1").Value = "" & Equipment & ""

End Sub

第 4 步:点击红色 x 关闭 Visual Basic。

第 5 步:在您的电子表格中，转到开发人员选项卡，然后单击“宏”按钮。

第 6 步:选择刚刚创建的宏(称为 FilterandCopy)，然后单击运行。 (注意:会弹出询问设备类型的弹出窗口，输入 CAMERA获取相机项目)