|
Sub 获取订单数量()
Dim i, j, k
Application.ScreenUpdating = False
For i = 4 To Sheets("月报汇总(含库存)").Range("d65536").End(xlUp).Row
k = Sheets("实际订单-A").Range("b65536").End(xlUp).Row '获取订单的行数
With Sheets("实际订单-A").Range("b3" & ":b" & k) '获取订单的料号区域
Set cg = .Find(Sheets("月报汇总(含库存)").Cells(i, 4), LookIn:=xlValues)
If cg = "Nothing" Then GoTo line3 Else GoTo line2
End With
line2:
j = Application.WorksheetFunction.Match(Range("d" & i), Sheets("实际订单-A").Range("b:b"), 0)
Sheets("实际订单-A").Range("i" & j & ":u" & j).Copy '复制要选择区域
Sheets("月报汇总(含库存)").Cells(i, "as").PasteSpecial Paste:=xlPasteValues '粘贴为数值
line3:
Next i
Application.ScreenUpdating = True
End Sub
Match(Range("d" & i)这个地方能循环第一遍,第二遍就报错,找不到属性
|
|