您可以使用 VBA 中的Weekday函数从给定日期获取星期几（作为整数）。
以下是在实践中使用此功能的常见方法：
Sub FindWeekday()
Dim i As Integer
For i = 2 To 9
Range(" B " & i) = WorksheetFunction.Weekday(Range(" A " & i))
Next i
End Sub
这个特定的宏将查找范围A2:A9中每个日期的星期几（作为整数），并显示范围B2:B9中的结果。
请注意，以下整数对应于一周中的每一天：
1 ：星期日
2 ：星期一
3 ：星期二
4 : 星期三
5 : 星期四
6 : 星期五
7 : 星期六
以下示例展示了如何在实践中使用Weekday函数。
注意：如果您希望返回星期几作为名称，则应使用 WeekdayName 函数。
示例：使用 VBA 中的 Weekday 函数查找星期几
假设我们在 Excel 中有以下日期列：
假设我们想要获取每个日期的星期几（作为整数）并将结果显示在 B 列中。
我们可以创建以下宏来执行此操作：
Sub FindWeekday()
Dim i As Integer
For i = 2 To 9
Range(" B " & i) = WorksheetFunction.Weekday(Range(" A " & i))
Next i
End Sub
当我们运行这个宏时，我们会收到以下输出：
B 列显示 A 列中每个日期的星期几（作为整数）。
例如：
1/1/2023是星期日，因此 Weekday 函数返回1 。
1/4/2023是星期三，因此 Weekday 函数返回4 。
02/23/2023是星期四，因此 Weekday 函数返回5 。
等等。
注意：您可以在此处找到 VBA Weekday函数的完整文档。
其他资源
以下教程说明如何在 VBA 中执行其他常见任务：
如何在VBA中比较日期如何在VBA中将日期转换为周数如何在VBA中计算两个日期之间的天数