各位大神，match函数这里循环第一遍是可以的，第二遍就报错了，找不到属性，是什么...

回头是岸wang

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)这个地方能循环第一遍，第二遍就报错，找不到属性

3190496160

变量j无非是要取得行号而已吧？
没必要调用工作表函数吧，用find函数也行呀
上传附件，具体描述你的需求，条条大道通罗马

回头是岸wang

订单表

汇总表