您可以使用 VBA 中的WorkDay方法从日期中添加或减去特定数量的工作日。
以下是在实践中使用此方法的常见方法：
SubAddWorkDays ()Dim i As IntegerFor i = 2 To 10 Range("C" & i) = WorksheetFunction.WorkDay(Range("A" & i), Range("B" & i))Next iEnd Sub此特定宏将范围B2:B10中指定的工作日数添加到范围A2:A10中的每个日期，并在范围C2:C10中显示结果。
以下示例展示了如何在实践中使用此语法。
示例：如何在 VBA 中使用 WorkDay 函数假设 Excel 中有一个日期列，以及另一列指定要添加到每个日期的工作日数：
我们可以创建以下宏，将 B 列中的工作日数添加到 A 列中的每个相应日期：
SubAddWorkDays ()Dim i As IntegerFor i = 2 To 10 Range("C" & i) = WorksheetFunction.WorkDay(Range("A" & i), Range("B" & i))Next iEnd Sub当我们运行这个宏时，我们会收到以下输出：
默认情况下，C 列将日期显示为序列号。
要将这些值显示为可识别的日期，请突出显示范围C2:C10 ，然后单击顶部功能区的“插入”选项卡，然后单击“数字格式”下拉菜单并单击“短日期” ：
每个序列号现在将显示为日期：
C 列显示 A 列中的每个日期，并添加 B 列中的特定工作日数。
请注意，如果我们在 B 列中指定负数， WorkDay方法将从 A 列中的日期中减去该工作日数。
注意：您可以在此处找到 VBA WorkDay方法的完整文档。
其他资源以下教程说明如何在 VBA 中执行其他常见任务：
VBA：如何从日期获取月份名称VBA：如何按日期排序VBA：如何在两个日期之间添加if
关于作者本杰明·安德森博大家好，我是本杰明，一位退休的统计学教授，后来成为 Statorials 的热心教师。 凭借在统计领域的丰富经验和专业知识，我渴望分享我的知识，通过 Statorials 增强学生的能力。了解