如何处理vba excel中的错误1004？

Question

基本上我有3个工作表。从第一张工作表中，我得到一个值（rotid），并通过使用匹配函数，我尝试在第二张工作表中找到该值，并将与该值关联的行复制到工作表3中，其中y是工作表中行的索引2对应于值（rotid）。但有时在工作表2中找不到值，程序崩溃。我该如何处理这个错误？

工作表1是列表，
表2是rotmain2，
表3是IMDB

顺便说一句，这是我的代码看起来像。我不知道如何使用代码标签。

Sub combine_imdb_rot_data() 

' y is the index of the row in rotmain2 which corresponds to rotid 

Dim y As Variant 

Sheets("imdbmain").Select 

For i = 1 To 4415 

    ' select sheet list and assign rotid for value of the cell in row i+1 and column 7 
    rotid = Sheets("list").Cells(i + 1, 7).Value 

    ' if rotid is not empty, 
    If Len(rotid) > 0 Then 

    'look for a row that corresponds to the rotid in worksheet "rotmain2" 
    Sheets("rotmain2").Select 
    'x = Sheets("list").Cells(i + 1, 7).Row 
    y = WorksheetFunction.Match(rotid, Range("B1:B4218"), 0) 

    If IsNumeric(y) Then        
     ' copy the information in the row    
     Range(Cells(y, 1), Cells(y, 13)).Select 
     Selection.Copy     
     ' paste it into row i+1 in worksheet "imdbmain" 
     Sheets("imdbmain").Select 
     'select row i+1 in imdbmain 
     Range(Cells(i + 1, 9), Cells(i + 1, 21)).Select 
     Workbooks(1).Sheets(1).Paste 
     Application.CutCopyMode = False 
    Else 
     ' copy the information in the row     
     Range(A4220, M4220).Select 
     Selection.Copy 

     ' paste it into row i+1 in worksheet "imdbmain" 
     Sheets("imdbmain").Select 
     'select row i+1 in imdbmain 
     Range(Cells(i + 1, 9), Cells(i + 1, 21)).Select 
     Workbooks(1).Sheets(1).Paste 
     Application.CutCopyMode = False 
    End If 
End If 
Next 
End Sub 

我也试着用Remou建议的另一种方法。 这是.find方法的工作原理吗？林不知道，但是当我使用它，我得到一个运行时错误13类型不匹配：

Sub combine_imdb_rot_data() 

    ' y is the index of the row in rotmain2 which corresponds to rotid 

    Dim y As Variant 

    Sheets("imdbmain").Select 

    For i = 1 To 4415 

    ' select sheet list and assign rotid for value of the cell in row i+1 and column 7 
    rotid = Sheets("list").Cells(i + 1, 7).Value 

    ' if rotid is not empty, 
    If Len(rotid) > 0 Then 

     'look for a row that corresponds to the rotid in worksheet "rotmain2" 
     Sheets("rotmain2").Select 
     'x = Sheets("list").Cells(i + 1, 7).Row 
     Set y = Range("B1:B4218").Find(rotid) 


     If y Is Nothing Then 

      ' copy the information in the row 
      'Range("1:4," & x & ":" & x).Copy 
      'Range("A&x"&:&"M&x").Copy 
      'Copy empty row 

      Range("A101:M101").Select 
      Selection.Copy 


      ' paste it into row i+1 in worksheet "imdbmain" 
      Sheets("imdbmain").Select 
      'select row i+1 in imdbmain 
      Range(Cells(i + 1, 9), Cells(i + 1, 21)).Select 
      Workbooks(1).Sheets(1).Paste 


     Else 

      ' copy the information in the row 
      'Range("1:4," & x & ":" & x).Copy 
      'Range("A&x"&:&"M&x").Copy 

      Range(Cells(y, 1), Cells(y, 13)).Select 
      Selection.Copy 


      ' paste it into row i+1 in worksheet "imdbmain" 
      Sheets("imdbmain").Select 
      'select row i+1 in imdbmain 
      Range(Cells(i + 1, 9), Cells(i + 1, 21)).Select 
      Workbooks(1).Sheets(1).Paste 
      Application.CutCopyMode = False 




     End If 

    End If 
    Next 


End Sub 

Answer 1

你可能想要做的第一件事就是把On Error Resume Next在您的模块的顶部。先试一试。

Answer 2

你可以捕获错误，或者使用查找：

rotid=5 ''Let us say 

With Worksheets(1).Range("B1:B4218") 
    ''Find returns a range object, so we use Set 
    Set y = .Find(rotid, LookIn:=xlValues, lookAt:=xlWhole) 
    If y Is Nothing Then 
     Debug.Print "Not found" 
    Else 
     ''This will print a cell, $b$15, for example 
     Debug.Print y.Address 
     ''This will print 5 
     Debug.Print y.Value 
    End If 
End With 

Futher信息：http://msdn.microsoft.com/en-us/library/aa195730%28office.11%29.aspx