在活动单元格中输入上一个工作日

Question

如何使用VBA输入公式以将上一个工作日显示到活动单元格中。我只找到了导致今天的日期显示在消息框中的代码。

所以我的代码当前以：

结尾

Selection.Copy
Sheets("Inventory").Select
ActiveSheet.Paste
ActiveCell.Offset(20,4).Select

这将粘贴一些数据，然后将活动单元准确地放在我需要的位置。此时，我想输入上一个工作日，将其复制并粘贴到其上方所有不间断的空白行中。

Answer 1

也许

ActiveCell.Value = WorksheetFunction.WorkDay(Date, -1)

请注意，通常应避免使用Select-有关详细信息，请参见How to avoid using Select in Excel VBA。