Excel 仅在导入新数据后，才为每个循环启用“对象必需”错误

对于我的宏，我使用file.officedialog对象导入两个数据电子表格（仅复制值，一些数据验证），然后使用计数器c运行一个主循环，输出员工姓名、ID、主管、绩效、职务职能等。在表1上，数据来自表2（绩效）和表3（员工详细信息）。我使用计数器d运行二次循环，以输出每个员工各自的工作功能，因为他们可能在一天中在多个部门工作（挑选、打包、排序等）。由于数据的格式和使用用户ID执行vlookup的方式，二次循环一直向后，直到出现空单元格：

下面是一个输出的示例。我还没有对G列中的输出进行微调。必须找到一种方法来删除单元格中的重复项。无论如何，我离题了

当我运行宏并选择两个excel文件时，我收到一个关于“For Each cell in irange.Cells”的对象必需错误。但是，由于此时数据已复制到第2页和第3页，如果我再次运行宏，但这次取消两次，并且未选择任何数据，则宏运行时不会出现错误，并按原样输出数据。我想找到问题的根源，并理解为什么它会给我一个错误

我在论坛中看到的大多数需要对象的错误都涉及集合的不适当使用（或缺少集合）或错误地使用属性，但这似乎与此不同。我查看了代码，尝试了其他循环（对于I=lastrow到1步骤1（或步骤-1））。我尝试了第二个while循环结束时的其他条件。我查看了文件对话框对象和关联代码，以确保正确导入数据

Sub Work_Project()

Dim LastRow_RP1 As Long, LastRow_RP2 As Long, _ 
fd1 As Office.FileDialog, fd2 As Office.FileDialog, _
RP As String, Import As Workbook, cell As Range, irange As Range, _
c As Long, d As Long, data1 As Range, data2 As Range

LastRow_RP1 = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
LastRow_RP2 = Sheet3.UsedRange.Rows.Count
LastRow = Sheet1.UsedRange.Rows.Count
Set fd1 = Application.FileDialog(msoFileDialogFilePicker)
Set fd2 = Application.FileDialog(msoFileDialogFilePicker)
Set irange = Sheet2.Range("$B$7:$B" & LastRow_RP1)

'Importing data from exported spreadsheet into Sheet2

With fd1
  .AllowMultiSelect = False
  .Title = "Please select the Red Prairie Summary Report file."
  .Filters.Clear
  .Filters.Add "Excel Files", "*.xls;*.xlsx;*.xlsm"
  If .Show = True Then
    RP = .SelectedItems(1)
    Set Import = Workbooks.Open(RP)
    Sheet2.Cells.Delete
    Set data1 = Import.Sheets(1).Range("$A$1:$V" & Sheets(1).Range("A" & 
    Rows.Count).End(xlUp).Row)
    Sheet2.Range("A1").Resize(data1.Rows.Count, data1.Columns.Count) _ 
    .Value = data1.Value
    Sheet2.Range("$A$1:$V" & Sheets(1).Range("A" & 
    Rows.Count).End(xlUp).Row).RemoveDuplicates _ 
    Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, _ 
    15, 16, 17, 18), Header:=xlNo
    Import.Close False
  End If
End With

'Importing data from exported spreadsheet into Sheet3

With fd2
  .AllowMultiSelect = False
  .Title = "Please select the Red Prairie Authorization Maintenance file."
  .Filters.Clear
  .Filters.Add "Excel Files", "*.xls;*.xlsx;*.xlsm"
  If .Show = True Then
    RP = .SelectedItems(1)
    Set Import = Workbooks.Open(RP)
    Sheet3.Cells.Delete
    Set data2 = Import.Sheets(1).Range("$A$1:$AG" & _
    Sheets(1).UsedRange.Rows.Count)
    Sheet3.Range("A1").Resize(data2.Rows.Count, data2.Columns.Count) _ 
    .Value = data2.Value
    Import.Close False
  End If
End With

With Sheet1

'Undoing existing filtering, clearing existing output cells on sheet1, 
'unprotecting sheet

c = 4
d = -1
***For Each cell In irange.Cells***
  If cell.Value = UCase(cell.Value) And IsEmpty(cell.Value) = False Then
   Sheet1.Range("$A" & c).Value = Application.VLookup(cell.Value, _ 
   Sheet3.Range("$A$2:$AG" & LastRow_RP2), 33, False)
   Sheet1.Range("$B" & c).Value = Application.VLookup(cell.Value, _ 
   Sheet3.Range("$A$2:$AG" & LastRow_RP2), 19, False)
   Sheet1.Range("$C" & c).Value = Application.VLookup(cell.Value, _ 
   Sheet3.Range("$A$2:$AG" & LastRow_RP2), 27, False)
   Sheet1.Range("$D" & c).Value = cell.Offset(0, 1).Value
     If cell.Offset(0, 10).Value = 0 Then
       Sheet1.Range("$E" & c).Value = 0
     Else
       Sheet1.Range("$E" & c).Value = 100 * cell.Offset(0, 3).Value / _ 
       cell.Offset(0, 10).Value
     End If
     Sheet1.Range("$F" & c).Value = cell.Offset(0, 3).Value

   While IsEmpty(cell.Offset(d, 0)) = False
         If IsEmpty(Sheet4.Range("$G" & c).Value) = True Then
            Sheet1.Range("$G" & c).Value = _ 
            WorksheetFunction.IfError(Application.VLookup _
            (cell.Offset(d, 0).Value, Sheet4.Range("$AY$2:$AZ$50"), _ 
            2, False), "N/A")
         Else
            Sheet1.Range("$G" & c).Value = Sheet1.Range("$G" & c) _
            .Value & " " & WorksheetFunction.IfError(Application.VLookup _ 
            (cell.Offset(d, 0).Value, Sheet4.Range("$AY$2:$AZ$50"), _ 
            2, False), "")
         End If

         d = d - 1
   Wend

   c = c + 1
   d = -1
   End If
Next cell

'Sorting, filtering, and enabling protection

End With

End Sub

---

当我在导入数据的情况下运行宏时，出现错误424:Object Required。如果我使用第2页和第3页中的现有数据运行宏，我会得到正确的输出。

如果

设置
范围
，删除它，然后稍后再次尝试使用它，则会出现
对象所需错误

Set irange = Sheet2.Range("$B$7:$B" & LastRow_RP1)
....
Sheet2.Cells.Delete

如果要将新数据导入到工作表中，您应该在完成导入后设置irange，因为
Sheet2
的
UsedRange
现在可能不同了。
在哪一行出现错误？您可以在这一行看到，您没有为下半部分指定工作簿
Set data1=Import.Sheets（1）.Range（$A$1:$V“&Sheets（1）.Range（$A“&Rows.Count）.End（xlUp.Row）
如果应该是
Import
，那么您需要指定@DarrellH，这一行带有for-each循环，每边用三个星号分隔。在我的两个office.filedialog对象上，我都设置了Import=Workbooks.Open（RP）。@BigBen，这就解决了这个问题。非常感谢。