如何在 Excel 中快速產生隨機時間?
當您在 Excel 中作業時,經常需要插入隨機數字、日期或文字字串,用於測試、數據分析、排程或模擬。然而,某些情況下您可能需要在指定範圍內或特定間隔中插入隨機時間——例如建立模擬時刻表、填寫出勤記錄,或為系統測試生成基於時間的資料。雖然 Excel 本身未提供直接產生隨機時間的功能,但仍有幾種實用的解決方案,包括內建公式、易用的增益集功能,以及靈活的 VBA 巨集方法。
使用公式在 Excel 中產生隨機時間
下列公式可根據您的需求產生隨機時間,例如在全天範圍內、兩個特定時間之間,或以指定間隔生成隨機時間。這些方法非常適合多數日常 Excel 任務,尤其當您希望立即取得結果,又不想啟用巨集或安裝增益集時。
在 Excel 中產生隨機時間
若要快速以隨機時間填滿指定範圍,請在空白儲存格中輸入下列公式,再依需求向下拖曳填滿控點,將公式套用至其他列。此公式將產生介於 00:00:00 與 23:59:59 之間、並已正確格式化的隨機時間值。

您可以根據需求將此公式複製到多個欄位。請注意,RAND()會在每次工作表重新計算時產生新值,因此只要對工作表進行任何變更,隨機時間就會立即更新。若要保留已產生的時間,請複製結果並使用選擇性貼上→數值來覆寫公式,輕鬆鎖定所需資料!
在 Excel 中產生介於兩個時間之間的隨機時間
若您希望在特定時間範圍內(例如 11:00 至 15:00)產生隨機時間,可使用下方公式。此方法非常適合用於模擬排程、預約系統,或任何時間窗口至關重要的模擬情境。
請在空白儲存格中輸入下列公式,然後向需要填入隨機時間的範圍拖曳填滿控點。

產生時間後,若希望保留靜態值,請將其貼上為數值。請注意:若您的時間值恰好從或到午夜(00:00)開始或結束,務必確保公式正確使用 0 與 24,以避免日期循環錯誤。
在 Excel 中以特定間隔產生隨機時間
若要以固定間隔(例如每 15 或 30 分鐘)隨機產生時間,可將 FLOOR 與 RAND 函數結合,並嵌入 TEXT 函數中。此方法特別適用於建立隨機預訂、設定隨機活動開始時間,或以精確增量間隔模擬資料等任務!
請在空白儲存格中輸入或貼上此公式,並視需要向下拖曳填滿控點,以產生所需數量的隨機間隔時間。

為確保穩定性,建議在產生結果後將其轉換為數值。

透過 KUTOOLS AI 解鎖 Excel 的神奇功能
- 智慧執行:透過簡易指令,輕鬆執行儲存格操作、分析資料,並建立圖表!
- 自訂公式:打造專屬公式,讓您的工作流程更順暢!
- VBA 編碼:輕鬆撰寫並套用 VBA 程式碼,立即提升工作效率!
- 公式解析:輕鬆掌握複雜公式!
- 文字翻譯:輕鬆打破試算表中的語言隔閡!
在 Excel 中產生介於兩個日期時間之間的隨機日期與時間
若需同時生成隨機的日期與時間值(例如用於填充隨機事件記錄或排程資料),可使用下列公式。此方法結合日期與時間,能提供更全面的測試或模擬資料。
請在儲存格中輸入或貼上此公式,並視需要向下拖曳以填滿更多列。

向下拖曳公式時,每個儲存格將根據您選定的時間範圍,自動產生全新的隨機日期與時間。若您僅需日期或只要時間部分,可依需求調整公式格式(例如使用「YYYY-MM-DD」僅顯示日期)。
使用便捷功能在 Excel 中產生隨機時間
若您覺得管理公式過於繁瑣,或需要快速產生大規模的隨機資料,Kutools for Excel 提供的插入隨機資料功能,讓您只需幾次點擊,就能輕鬆插入隨機數字、日期、時間,甚至自訂文字字串!無論您是經常需要隨機資料、希望避免公式重新計算,還是需要進階選項(例如在指定範圍內插入不重複的時間),這項功能都將為您大幅提升效率,不容錯過!
安裝 Kutools for Excel 後,請依照下列步驟操作:
1. 選取一個空白儲存格範圍,用以填入隨機時間。
2. 前往 Kutools > 插入 > 插入隨機資料。

3. 在插入隨機資料對話方塊中,切換至時間頁籤,並分別在從與到欄位中輸入您期望的起始與結束時間。

提示:若要確保所有產生的時間皆不重複,請勾選不重複值選項。
4. 點擊確定或套用,您所選取的範圍將立即填入隨機時間。

此插入隨機資料功能特別實用,因為所產生的隨機時間為靜態(插入後不會變動)!
使用 VBA 程式碼在 Excel 中產生隨機時間
另一種在 Excel 中產生隨機時間的彈性做法,是運用 VBA 巨集。透過自訂 VBA 程式碼,您還能加入額外條件——例如排除特定時段、以指定間隔產生時間,或在工作表內容變更時自動更新隨機時間。若您需要更精細的控制,或希望為多個範圍及重複性流程自動化隨機時間的產生,使用巨集將格外實用。
以下為範例 VBA 巨集,可在您選取的儲存格中產生並填入隨機時間。您可依需求調整起始與結束時間、隨機化的精細程度(分鐘或秒數),或排除特定時段。
1. 按一下開發人員 > Visual Basic 以開啟 VBA 編輯器。在 VBA 視窗中,前往插入 > 模組,並將下方程式碼複製貼上至新建立的模組中。(若未顯示「開發人員」頁籤,請前往 Excel 選項 > 自訂功能區啟用。)
Sub GenerateRandomTimes()
Dim WorkRng As Range
Dim StartHour As Integer
Dim EndHour As Integer
Dim ExcludeHour As Integer
Dim cell As Range
Dim xTitleId As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Select range to fill random times:", xTitleId, WorkRng.Address, Type:=8)
StartHour = Application.InputBox("Start hour (0-23):", xTitleId, 8, Type:=1)
EndHour = Application.InputBox("End hour (1-24):", xTitleId, 18, Type:=1)
ExcludeHour = Application.InputBox("Hour to exclude (if none, type -1):", xTitleId, -1, Type:=1)
Application.ScreenUpdating = False
Randomize
For Each cell In WorkRng
Dim h As Integer, m As Integer, s As Integer
Do
h = Int((EndHour - StartHour) * Rnd + StartHour)
Loop While h = ExcludeHour
m = Int(60 * Rnd)
s = Int(60 * Rnd)
cell.Value = TimeSerial(h, m, s)
cell.NumberFormat = "hh:mm:ss"
Next cell
Application.ScreenUpdating = True
End Sub 2. 按下 F5 鍵執行巨集,系統將提示您選擇目標儲存格範圍,並可設定期望的起始小時、結束小時,以及(如有需要)欲排除的時段。若不想排除任何特定小時,請輸入 -1,巨集將立即在您選定的區域中插入不重複的隨機時間!
此 VBA 方法支援進階自訂功能,例如排除夜間時段,或透過調整分鐘與秒數的隨機化方式,產生多樣化的時間間隔。若您在相同範圍內多次執行巨集,原有數值將被覆寫——若希望保留前次執行結果,請務必於再次執行前,先將結果複製至其他位置。
更多相關文章:
- 在兩個日期之間產生隨機日期
- 當您在日常工作中使用 Excel 檔案時,有時需要為特定目的快速產生隨機日期。雖然可以手動逐一輸入,但若需插入多個日期,這種方式不僅耗時還相當乏味。那麼,究竟該如何在 Excel 中快速產生隨機日期呢?
- 檢查時間是否介於兩個時間之間
- 在 Excel 中,如何快速判斷特定時間是否落在兩個指定時間之間?逐筆檢查不僅耗時又沒效率,本文將為您介紹幾個簡單實用的公式,輕鬆解決這項挑戰!
- 時間轉換在 12 小時制與 24 小時制之間轉換格式
- 當您在日常工作中使用 Excel 時,可能會因不同情境而採用不同的時間格式,例如下圖所示的 12 小時制與 24 小時制。那麼,該如何在 Excel 中透過時間轉換,將時間格式從 12 小時制轉為 24 小時制,或反向轉換呢?
- 計算午夜過後的時間差
- 假設您有一份記錄工作時間的表格,其中 A 欄為當天的開始時間,B 欄則為隔日的結束時間。一般情況下,若直接使用公式「=B 2-A2」計算兩者間的時間差,將無法得出正確結果(如左側截圖所示)。那麼,該如何在 Excel 中準確計算跨越午夜的兩個時間點之間的小時數呢?
最佳 Office 生產力工具
| 🤖 | KUTOOLS AI 助手:基於以下內容徹底革新數據分析:智慧執行 | 產生程式碼| 建立自訂公式 | 分析資料並產生圖表| 呼叫增強函數…… |
| 熱門功能:尋找、醒目提示或標記重複值 | 刪除空白行 | 合併列或儲存格而不遺失資料 | 不使用公式的四捨五入…… | |
| 高級 LOOKUP:多重條件 VLookup | 多重數值 VLookup | 跨多個工作表 VLookup | 模糊查找…… | |
| 高級下拉列表:快速建立下拉式清單 | 相依式下拉式清單 | 多選下拉式清單…… | |
| 欄位管理員:新增指定數量的欄位|移動欄位|切換隱藏欄位的可見狀態|比較範圍與欄位…… | |
| 精選功能:網格聚焦 | 設計視圖 |增強編輯欄 | 工作簿與工作表管理員 | 資源庫(自動文字)| 日期提取 | 合併工作表 | 加密/解密儲存格 | 依清單傳送電子郵件 | 超級篩選 | 特殊篩選(篩選粗體儲存格/斜體/刪除線……) ...... | |
| 頂尖 15 工具組:12 文字工具(添加文本,刪除特定字符,……)| 50+ 圖表 類型(甘特圖,……)| 40+ 實用公式(基於生日計算年齡,……)| 19 插入工具(插入二維碼,從路徑插入圖片,……)| 12 轉換工具(金額轉大寫,匯率轉換,……)| 7 合併和拆分工具(高級合併行,分割儲存格,……)|……以及更多 |
運用 Kutools for Excel 強化您的 Excel 技能,體驗前所未有的高效能!Kutools for Excel 提供超過 300 項進階功能,大幅提升生產力並節省寶貴時間。立即點擊,取得您最需要的功能……
Office Tab 為 Office 帶來分頁式介面,讓您的工作更輕鬆自在!
- 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能,以及 Access、Visio 與 Project。
- 在同視窗的新分頁中開啟並建立多份文件,而非另開新視窗。
- 每天為您提升 50% 的工作效率,並省下數百次滑鼠點擊!
所有 Kutools 增益集,一個安裝程式
Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集,以及 Office Tab Pro,非常適合需要跨多個 Office 應用程式協作的團隊使用!
- 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集,以及 Office Tab Pro
- 一個安裝程式,一個授權— 數分鐘內即可完成設定(支援 MSI)
- 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
- 30 天完整功能試用— 無需註冊,無需信用卡
- 超值之選— 比單獨購買各增益集更省費用