java表格选择的行_VBA：使用条件选择行，然后指定列，通过（复制/粘贴）构建表...

我想通过从另一个Excel工作表“效率”中提取数据，在一个Excel工作表“Ship”上构建一个表 . “效率”表上的行数据按“发货”，“离开”，“导入”和“导出”进行分类 . 每个类别(装运，休假，进口，出口)都有几个项目，它们没有特定的顺序 . “效率”表上的表占据A：H列，从第2行开始;长度可以变化 . 我希望能够在行中搜索“已发货”并复制匹配行的列A，D：F和H，并从“发货”工作表的单元格B4开始粘贴它们 . 有人可以帮我吗？

子船()

ActiveSheet.Range("$A$1:$H$201").AutoFilter Field:=4, Criteria1:="Shipped"

' this is looking in a specific range, I want to make it more dynamic

Range("A4:A109").Select

'This is the range selected to copy, again I want to make this part more dynamic

Application.CutCopyMode = False

Selection.Copy

Range("A4:A109,D4:F109,H4:H109").Select

Range("G4").Activate

Application.CutCopyMode = False

Selection.Copy

Sheets("Ship").Select

Range("B4").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

结束子