excel - 尝试使用 VBA 在 Col 中插入 IFERROR 公式

Question

Private Sub CommandButton1_Click()
'Filters Table for Blanks
Dim lo As ListObject
Dim icol As Long

Set lo = ActiveSheet.ListObjects(1)
'Sets Date cleared/voided col
icol = lo.ListColumns(8).Index

lo.Range.AutoFilter Field:=icol, Criteria1:="="
lo.ListColumns(8).DataBodyRange.Formula = "=IFERROR(VLOOKUP([@[CHECK NO.]],Vlookup!D:D,1,0),"")"

End Sub

我要做的是更新已清除日期的支票列表。如果已清除，请输入清除日期。

我目前的手动方法是使用 vlookup 来确定是否已清除。如果出现错误，则不会填充任何数据。

我知道 IFERROR 在 VBA 中不可行，这就是我手动拉日期的方式。删除 IFERROR 部分会拉出已清除的检查，但我想将所有错误/“N/A”转换为空单元格以及那些没有错误等于用户输入日期的单元格。

非常感谢您对这项工作的任何帮助。

标签： excelvba