Question

嗨，我正在尝试将4和2结合起来

'Refer to the source sheet
Set Ws2 = Workbooks("AgileBOM.xls").Worksheets("Sheet0")
Set wsInput = Workbooks("ORCadBOM.xls").Worksheets("HC_MODULAR_BOARD_20180112")

lr1 = Ws2.Cells(Ws2.Rows.Count, AE).End(xlUp).Row
lr2 = wsInput.Cells(wsInput.Rows.Count, E).End(xlUp).Row

For Each itm1 In Ws2.Range(Ws2.Cells(3, AE), Ws2.Cells(lr1, AE))
For Each itm2 In wsInput.Range(wsInput.Cells(3, E), wsInput.Cells(lr2, E)) 

If Value = Value Then
 Copy
End IF
'First check
Exit For

lr3 = Ws2.Cells(Ws2.Rows.Count, AA).End(xlUp).Row
lr4 = wsInput.Cells(wsInput.Rows.Count, D).End(xlUp).Row

For Each itm3 In Ws2.Range(Ws2.Cells(3, AA), Ws2.Cells(lr3, AA))
For Each itm4 In wsInput.Range(Ws2.Cells(3, D), Ws2.Cells(lr4, D))
If Value = Value Then
 Copy
End IF
'Second check
Exit For

是否可以同时包含所有4个for循环和2个（如果一起）？由于我正在尝试检查2个输入文件在2列中是否具有相同的值，然后开始复制其他列。

https://imgur.com/a/vdzDdM9

这是指向2个输入文件（Ws2和wsInput）的链接，您可以看到突出显示的一个是我需要检查2个文件之间并比较它们是否相同的区域。如果他们这样做，那么我将从不同的列复制其他值

将4 For和2 IF组合在一起

0 个答案: