如何在Excel中生成随机的工作日或周末日期？

本教程将介绍如何在Excel中仅生成随机工作日或仅生成随机周末日期，按照以下步骤获取更多详细信息。

在Excel中仅生成随机工作日

使用Kutools for Excel生成仅随机工作日或仅随机周末日期

在Excel中仅生成随机工作日

在Excel中有两种方法可以帮助您根据需要在一个日期范围内随机生成仅工作日的日期。

方法1：使用公式生成随机工作日

选择一个单元格并输入此公式 =DATE(2014, 1, 1)+LARGE(IF(WEEKDAY(DATE(2014, 1, 1)+ROW($1:$365)-1, 2)<6, ROW($1:$365)-1, ""), RANDBETWEEN(1, SUM(--(WEEKDAY(DATE(2014, 1, 1)+ROW($1:$365)-1, 2)<6))))，然后按 Shift + Ctrl + Enter 键同时按下，然后拖动填充柄到您想要生成工作日的范围。请参见截图：

提示：

1. 如果您想生成唯一随机工作日，可以使用此公式 =DATE(2014, 1, 1)+(LARGE(IF(WEEKDAY((DATE(2014, 1, 1)+ROW($1:$365)-1)*((COUNTIF($A$1:A1, DATE(2014, 1, 1)+ROW($1:$365)-1))=0), 2)<6, ROW($1:$365)-1, ""), RANDBETWEEN(1, SUM(--(WEEKDAY((DATE(2014, 1, 1)+ROW($1:$365)-1)*((COUNTIF($A$1:A1, DATE(2014, 1, 1)+ROW($1:$365)-1))=0), 2)<6))))) 并记住按 Shift + Ctrl + Enter。

2. 在上述公式中，2014,1,1 是您所需日期范围的开始日期，365 是您日期范围内的天数，您可以根据需要更改它们。

3. 您不能将生成唯一随机工作日的公式放在A1单元格中。

方法2：使用VBA在一年内生成随机工作日

如果您想在一年内随机生成工作日并且熟悉VBA，可以按照以下步骤操作：

1. 按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，然后将以下VBA代码粘贴到弹出的窗口中。

VBA：在一年内随机化工作日。

Dim RandomizedYet As Boolean
'Updateby20150108
Function RandomizeDates(pYear As Long)
	Dim i As Long
	Dim DaysInYear As Long
	Dim xIndex As Long
	Dim RndIndex As Long
	Dim Temp As Date
	Dim Weekdays() As Variant
	If Not RandomizedYet Then
		RandomizedYet = True
		Randomize
	End If
	DaysInYear = DateSerial(pYear + 1, 1, 1) - DateSerial(pYear, 1, 1)
	ReDim Weekdays(1 To DaysInYear)
	For i = 1 To DaysInYear
		If Weekday(DateSerial(pYear, 1, i), vbMonday) < 6 Then
			xIndex           = xIndex + 1
			Weekdays(xIndex) = DateSerial(pYear, 1, i)
		End If
	Next
	ReDim Preserve Weekdays(1 To xIndex)
	For i = xIndex To 1 Step - 1
		RndIndex = Int(i * Rnd + 1)
		Temp = Weekdays(RndIndex)
		Weekdays(RndIndex) = Weekdays(i)
		Weekdays(i) = Temp
	Next
	RandomizeDates = Application.WorksheetFunction.Transpose(Weekdays)
End Function

3. 保存代码并关闭窗口返回您的工作表，并输入此公式=RandomizeDates(2014) 到一个单元格中，然后按 Enter 键并拖动填充柄到您需要的范围。请参见截图：

使用Kutools for Excel生成仅随机工作日或仅随机周末日期

免费安装 Kutools for Excel 后，请按照以下步骤操作：

1. 选择要生成工作日或周末日期的范围，然后单击 Kutools > 插入随机数据。请参见截图：

2. 在 插入随机数据 对话框中，单击 日期 选项卡，然后单击 日历按钮 以选择所需的开始日期和结束日期，然后勾选 工作日 或 周末 选项，如果要生成唯一的日期，可以勾选 唯一值 选项。请参见截图：

3. 单击 确定 应用并关闭对话框，然后在所选范围内生成唯一的周末日期。

提示：如果允许插入重复数据，只需在对话框中取消勾选 唯一值。

通过插入随机数据功能，您还可以随机生成整数、时间、字符串和自定义列表。点击这里获取更多信息。

相关文章

• 在Excel中无重复的随机数
• 在Excel中随机小数或整数