Excel vba 自动填充编码

Question

我目前正在使用 vba 执行以下任务。 所以我从 sheet1 复制数据并将其粘贴到 sheet2 中。 sheet2中已经有数据，所以我粘贴在现有数据下方。 现在我需要执行 vlookup 以将数据从 sheet3 获取到 sheet2 的某些列，因此 vlookup 会将数据发送到 sheet2 上现有数据下方的数据。 我有以下代码

Range(“F1”).End(xldown).Offset(1).Select
ActiveCell.FormulaR1C1 = “=Vlookup(RC[7],Monitor_Report[#All],4,FALSE)”

ActiveCell.AutoFill Destination:=Range(ActiveCell.Address & “:” & ActiveCell.End(xlDown).Offset(-1,0).Address)

所以目前即使如此，下一行也没有数据，它仍然会自动填充并在首先发生 vlookup 的单元格之后导致 #N/A 。 如果下一行没有数据，我不希望自动填充发生。 谁能帮我修改这段代码？

Answer 1

如果您打算使用.Select和.AutoFill的手动方式，我只需在您的公式中添加一个IFNA语句：

Sub test()
  Dim ws As Worksheet
  Set ws = ThisWorkbook.Worksheets("Sheet1")

  ws.Range("F1").End(xlDown).Offset(1).Select
    
  Dim fRow As Long

  With ws
    fRow = .Cells(.Rows.Count, ws.ListObjects("Monitor_Report").DataBodyRange.Column).End(xlUp).Row
    fAdr = ActiveCell.Column
  End With

  adr_ = ws.Cells(fRow, fAdr).Address

  ActiveCell.Value = "=IFNA(VLOOKUP(M3,Monitor_Report[#All],4,FALSE),"""")" '
  ActiveCell.AutoFill Destination:=ws.Range(ActiveCell.Address & ":" & adr_)


End Sub