这个代码错在那里

jzyjs8680

这个代码错在那里  请老师看看

roych

改成怎样试试看？

1. Sub 拆分统计()
   
2. 
   
3.   'Sheet3.Range("A3:H8000").Select
   
4.   'Selection.ClearContents
   
5.   a = Sheet1.[A65536].End(3).Row
   
6.   For i = 5 To a
   
7.   b = Sheet3.[A65536].End(3).Row
   
8.    
   
9.   If Sheets("sheet1").Cells(i, 10) = [a1] Then
   
10. '数组可能不太支持这个属性。
    
11.   Sheet3.Range("a" & b + 1).Resize(, 8) = Sheet1.Range("a" & i).Resize(, 8).Value
    
12. End If
    
13. Next
    
14. End Sub

复制代码

jjjnk

是因为在第157行 有错误值 #N/A   

jjjnk

把公式修改一下 就可以了  忽略错误值

jjjnk

公式改成 =IFERROR(VLOOKUP(A157,物料与人!A$1:B$1063,2,0),"") 就没有问题了

jjjnk

Sub 拆分统计()

  'Sheet3.Range("A3:H8000").Select
  'Selection.ClearContents
    On Error Resume Next
  a = Sheet1.[A65536].End(3).Row
  For i = 5 To a
  b = Sheet3.[A65536].End(3).Row
   
  If Sheet1.Cells(i, 10) = [A1] Then
  Sheet3.Range("a" & b + 1).Resize(, 8) = Sheet1.Range("a" & i).Resize(, 8).Value
End If
Next
End Sub
加一句 ON ERRRO RESUME NEXT  也可以     但是请注意在157行有错误 需要注意

1. Sub 拆分统计()
   
2. 
   
3.   'Sheet3.Range("A3:H8000").Select
   
4.   'Selection.ClearContents
   
5.     On Error Resume Next
   
6.   a = Sheet1.[A65536].End(3).Row
   
7.   For i = 5 To a
   
8.   b = Sheet3.[A65536].End(3).Row
   
9.    
   
10.   If Sheet1.Cells(i, 10) = [A1] Then
    
11.   Sheet3.Range("a" & b + 1).Resize(, 8) = Sheet1.Range("a" & i).Resize(, 8).Value
    
12. End If
    
13. Next
    
14. End Sub
    

复制代码