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

Question

示例:

我的 Sheet1 看起来像这样:

在 Sheet2 中，我想要这样的输出(这里我想要获取带有“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即可获取相机项目)