只实现每周的周六周末的日期怎么在表格中实现

Sub WEEK()
d = Date
j = 1
For i = 1 To 300
d = d + 1
If Weekday(d) = 1 Then Cells(j, 1) = Format(d, "m月d日"): j = j + 1
If Weekday(d) = 7 Then Cells(j, 1) = Format(d, "m月d日")
Next
End Sub

以上就是关于只实现每周的周六周末的日期怎么在表格中实现全部的内容，包括:只实现每周的周六周末的日期怎么在表格中实现、、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！