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

Question

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

所以我的代码目前以：

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

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

Answer 1

也许

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

请注意，您通常应避免使用Select - 有关更多详细信息，请参阅如何避免使用在 Excel VBA 中选择。