筛选并返回行，始终返回第一行，vba

我有一个组合框，其中有一个值，我希望在另一个工作簿列中搜索该值。然后，使用autofilter的代码返回在同一列4中具有该值的行。 它工作正常，但无论源的第一行是否具有在特定列中查找的值，它总是被复制到目标。 偏移或单元格移动用作两张图纸中的前两行均为页眉

子命令按钮1\u单击 '在数据存储库中查找Combobox筛选器值，并仅返回那些关联的行可以是多行 Dim数据块作为范围，目的地作为范围 调暗LastRow和LastCol一样长 将一张图纸标注为工作表，将二张图纸标注为工作表 将PN变暗为字符串 PN=ComboBox1.值 “在前面设置引用 Set SheetTwo=thiswoolk.WorksheetsReport'这是导出报告 Set SheetOne=Workbooks.OpenC:\Users\Colin\Documents\Nexen\datarepository V1.xlsm.SheetsData'这是导出报告 设置Dest=SheetTwo.Cells3，1'您的.Range需要位于一个带有标题的表中，以便自动筛选正常工作。

.Offset1，0.ResizeLastRow-1，LastCol.SpecialCellsxlCellTypeVisible.Copy Dest:=destry with.CurrentRegion在复制时，类似于DataBlock….CurrentRegion.Copy Dest，根据我的经验，在这种情况下，比特殊电池要好得多。