如何在 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 中隨機小數或整數