例子:
我的Sheet1看起来像这样:
在Sheet2中,我想要这样的输出(在这里,我想获取所有带有“ CAMERA”项的行):
我很难在产品Sheet2中编写公式,可以帮我使用什么公式?
这个宏应该可以解决问题:
步骤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以关闭视觉基础。
第5步:在电子表格中,转到开发人员标签,然后点击“宏”按钮。
步骤6:选择刚创建的宏(称为FilterandCopy),然后单击Run(运行)。(注意:将弹出一个对话框询问设备类型,输入CAMERA
以获取相机项目)
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句