如何在 Excel 中根據指定的機率產生隨機值？

作者孫修改日期2025-10-15

使用 Excel 時，您可能偶爾需要產生能反映特定底層機率的隨機數值。例如，假設您有一張表格，列出多種可能結果及其對應的機率，如下方截圖所示。
範例資料

此情境常見於商業模擬、專案建模與教學用途，您希望隨機選擇的結果能精準反映資料所規定的發生機率或頻率。

典型需求與使用案例包括：

模擬問卷回覆或客戶選擇，其中某些答案出現的機率更高。
產生測試資料集，或用於教學機率概念的隨機抽樣。
自動化選擇流程，其中每個選項皆有已知的發生機率。
遊戲設計與風險分析，其結果須符合特定的機率分佈。

以下提供幾種在 Excel 中根據指定機率產生隨機值的方法，包括標準公式技巧、進階 VBA 自動化，以及運用 Excel 內建的「數據分析工具箱」。

💡 快速導覽

➤ 根據機率產生隨機值
➤ VBA：根據指定機率產生隨機值

根據機率產生隨機值

Excel 提供一種簡單易用的公式解法，能根據指定機率產生隨機值，適合快速完成任務——全程在工作表內運作，無需任何特殊設定。

開始前，請確保您的數值位於一欄（A2:A8），對應的機率（以 0 至 1 之間的小數表示）則置於相鄰的下一欄（B2:B8）。為確保結果準確，所有機率總和必須等於 1. 此方法適用於項目數量有限且易於管理的表格。

1. 在相鄰欄位（從 C2 開始），輸入下列公式以計算累積機率：

=SUM($B$2:B2)

接著將此公式向下拖曳，涵蓋所有數值，即可為每個值建立累積範圍，協助將隨機數對應至特定結果。
使用公式計算累積百分比

2. 在任意空白儲存格（例如 D2）輸入下方公式，即可根據您的機率分佈傳回隨機值：

=INDEX(A$2:A$8,COUNTIF(C$2:C$8,"<="&RAND())+1)

按下 Enter 即可顯示隨機值！每次按下 F9（重新計算）或工作表資料變更時，都會立即產生全新結果。
套用公式，根據累積百分比產生隨機選取的值

提示與注意事項：

B 欄中的機率總和必須恰好等於 1（若以百分比表示則為 100%，但在公式中應轉換為小數），以確保分配的公平性。
此技術最適合用於短清單。若您擁有數十甚至數百個值，系統效能可能下降，且維護難度也會隨之提高。
若您需要重複進行多次隨機選擇（例如產生一批模擬結果），只需將最終公式複製到下方或鄰近的儲存格範圍即可。
請留意空白列與範圍不相符的問題，這可能導致錯誤或產生非預期的結果。

錯誤提醒：若出現 #REF！或 #VALUE！錯誤，請確認累積機率欄位的長度與數值欄位一致，且所有機率均為有效數字。

透過 KUTOOLS AI 解鎖 Excel 的神奇功能

智慧執行：透過簡易指令，輕鬆執行儲存格操作、分析資料，並建立圖表！
自訂公式：打造專屬公式，讓您的工作流程更順暢！
VBA 編碼：輕鬆撰寫並套用 VBA 程式碼，立即提升工作效率！
公式解析：輕鬆掌握複雜公式！
文字翻譯：輕鬆打破試算表中的語言隔閡！

運用 AI 驅動的工具強化您的 Excel 能力。立即下載體驗前所未有的高效！

VBA：根據指定機率產生隨機值

對於需要更高自動化程度，或希望產生大量隨機值（例如數千筆樣本）的使用者，Excel VBA 提供了一種比工作表公式更快速且靈活的實用解決方案，特別適合處理大型資料集，或為模擬批量生成隨機結果。

1. 前往開發人員工具＞Visual Basic，在 VBA 視窗中點選插入＞模組，並將下列程式碼貼入模組中：

Sub GenerateRandomWithProbability()
    Dim rngValues As Range
    Dim rngProbs As Range
    Dim n As Long
    Dim i As Long
    Dim cumProbs() As Double
    Dim valList() As Variant
    Dim randNum As Double
    Dim resultRange As Range
    Dim idx As Long
    
    ' On Error, ignore
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    ' Select values
    Set rngValues = Application.InputBox("Select values range", xTitleId, Type:=8)
    
    ' Select probabilities
    Set rngProbs = Application.InputBox("Select probabilities range", xTitleId, Type:=8)
    
    ' Number of random values to generate
    n = Application.InputBox("Number of random values to generate", xTitleId, "10", Type:=1)
    
    ' Where to output
    Set resultRange = Application.InputBox("Select output start cell", xTitleId, Type:=8)
    
    If rngValues.Rows.Count <> rngProbs.Rows.Count Then
        MsgBox "Values and probabilities range must be the same size.", vbExclamation
        Exit Sub
    End If
    
    ReDim cumProbs(1 To rngValues.Count)
    ReDim valList(1 To rngValues.Count)
    
    ' Calculate cumulative probabilities
    cumProbs(1) = rngProbs.Cells(1, 1).Value
    valList(1) = rngValues.Cells(1, 1).Value
    
    For i = 2 To rngValues.Count
        cumProbs(i) = cumProbs(i - 1) + rngProbs.Cells(i, 1).Value
        valList(i) = rngValues.Cells(i, 1).Value
    Next i
    
    ' Generate random results
    For i = 1 To n
        randNum = Rnd
        For idx = 1 To UBound(cumProbs)
            If randNum <= cumProbs(idx) Then
                resultRange.Cells(i, 1).Value = valList(idx)
                Exit For
            End If
        Next idx
    Next i
End Sub

2. 在 VBA 視窗中，點選執行按鈕以執行程式碼。系統將依序提示您選取數值範圍、機率範圍、欲產生的隨機值數量，以及輸出起始儲存格。巨集將根據您指定的機率，快速在目標儲存格中填入對應的隨機值。

您可以針對更大的資料集重複此流程，且輸出欄位能於任何工作表中自由自訂。
若您的機率範圍總和未非常接近 1，程式碼可能會扭曲分佈；務必仔細驗證您的假設。
此解決方案更適合用於自動化抽樣、模擬，以及可重現的批次生成。

提示：請確保您的數值與機率連續且清楚對齊。執行巨集前務必先儲存檔案，因為 VBA 操作無法透過「復原」功能撤銷！

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多