如何在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 + 輸入 鍵，然後將填充手柄拖到要生成的工作日範圍內。 看截圖：

小提示:

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 + 輸入.

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.選擇要生成工作日或週末日期的範圍，然後單擊 庫工具 > 插入隨機數據。 看截圖：

2。 在裡面 插入隨機數據 對話框中單擊 日期 標籤，然後 日曆按鈕 選擇所需的開始日期和結束日期，然後檢查 勞動日 or 週末 您需要的選項，如果要生成唯一的日期，可以檢查 獨特 選項。 看截圖：

3。 點擊 Ok 應用並關閉對話框，然後在選擇中生成唯一的周末日期。

小提示: 如果允許您插入重複數據，只需取消選中 獨特價值 在對話框中

使用插入隨機數據功能，您還可以隨機化整數，時間，字符串和自定義列表。 點擊這裡了解更多信息。

相關文章

• Excel中沒有重複的隨機數
• Excel中的隨機十進製或整數