VBA 进行数据提取

人生任我行

附件下载后，请进入包装明细工作表，包装明细工作表的H1=开料表的B2
下面是包装明细工作表的要求。
当包装明细工作表的F1和H1为条件。将开料表的部件名称、长、宽、高、件数、引过来。
当F1为1-1时，就只引用开料表N列条件下的1-1

grf1973

1. Sub 导入()
   
2.     xh = Sheet2.[F1] '箱号
   
3.     Sheet2.[a3:f25].ClearContents
   
4.     With Sheet1
   
5.         r = .[b65536].End(3).Row
   
6.         For i = 4 To r
   
7.             If .Cells(i, "N") = xh Then
   
8.                 xr = Sheet2.[a25].End(3).Row + 1
   
9.                 Sheet2.Cells(xr, 1).Resize(1, 5).Value = .Cells(i, 2).Resize(1, 5).Value
   
10.             End If
    
11.         Next
    
12.     End With
    
13. End Sub
    

复制代码

人生任我行

grf1973 发表于 2013-4-23 09:55

结果正确，只是还有一个地方没有实现。
就是包装明细的H1引用开料表的B2

grf1973

包装明细的H1引用开料表的B2，是结果还是条件？
如果是结果，加一句sheet2.[H1]=sheet1.[b2]
如果是条件，加一句 if sheet2.[H1]<>sheet1.[b2] then msgbox "型号不符":exit Sub