excel - VBA 工作表函数

Question

我在我的 VBA 中有这些条目，而不是使用 WorksheetFunction，因为我无法弄清楚如何让它工作......
如果可能的话，我希望至少将前两行替换为 WorksheetFunction。任何帮助将不胜感激。提前致谢!

Application.Goto Reference:="'Handling Units'!HUNUM01"

ActiveCell.FormulaR1C1 = "=IFERROR((WHNUMB&REPT(0,14-LEN(STARTNUMB))&STARTNUMB+(RC[-1]-1)),"""")"

Selection.AutoFill Destination:=Range("B5:B" & Range("A" & Rows.Count).End(xlUp).Row)

Answer 1

确保 每位于工作表中的对象(如 Range、Cells、Rows、Columns 等)被引用到工作表!
因此使用 Worksheets("Handling Units").Range("HUNUM01")比使用 Range("'Handling Units'!HUNUM01") 更直接.在您的代码中，Destination:= Range("B5:B" & Range("A" & Rows.Count).End(xlUp).Row) 中的范围没有指定工作表，因此如果 Handling Units，此代码可能会失败不是事件工作表。为避免这种情况，请为位于工作表中的所有对象指定一个工作表。不要让 Excel 猜测，它可能会猜错!

With ThisWorkbook.Worksheets("Handling Units")
    .Range("HUNUM01").FormulaR1C1 = "=IFERROR((WHNUMB&REPT(0,14-LEN(STARTNUMB))&STARTNUMB+(RC[-1]-1)),"""")"
    .Range("HUNUM01").AutoFill Destination:= .Range("B5:B" & .Range("A" & .Rows.Count).End(xlUp).Row)
End With

注意 .Range 中的前导点做这个 Range使用 With 的工作表声明人。确保它在那里，否则它会出现 不是 使用 With声明，即使它在 With 内堵塞。