excel - 仅在导入新数据后，每个循环的对象需要错误

Question

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

https://imgur.com/BpPTF0x

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

https://imgur.com/i6Fo6wy

当我运行宏并选择两个 excel 文件时，我在“对于 irange.Cells 中的每个单元格”收到对象所需的错误。但是，由于此时数据已被复制到表 2 和表 3 中，如果我再次运行宏但这次取消两次并且不选择任何数据，则宏运行没有错误并按应有的方式输出数据。我想找到我的问题的根源并理解它为什么给我一个错误。

我在论坛中目睹的大多数 object required 错误都处理不当使用(或缺少) set 或不正确地使用属性，但这似乎与此不同。我查看了代码，尝试了其他循环(For i = lastrow to 1 Step 1(或 Step -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:需要对象。如果我使用表 2 和表 3 中的现有数据运行宏，我会得到正确的输出。

Answer 1

你会得到一个Object Required Error如果你 Set一个 Range ，删除它，然后尝试稍后再次使用它，当前发生的情况是:

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

如果您要将新数据导入工作表，您应该 Set irange完成导入后，大概是 UsedRange的 Sheet2现在不同了。