如何在Excel中生成兩個給定數字之間的所有質數？

Author Xiaoyang Last modified 2025-08-23

在Excel中，您是否嘗試過列出兩個給定數字之間的所有質數？本文將介紹一些有趣的方法來處理這個任務。

使用公式生成兩個給定數字之間的所有質數

結合「名稱管理器」功能和公式，您可以列出或生成兩個特定數字之間的所有質數。請按照以下步驟操作：

1. 請通過點擊公式 > 名稱管理器 來創建第一個儲存格名稱，然後在「名稱管理器」對話框中，點擊新建按鈕，參見截圖：

create a range name

2. 在「新建名稱」對話框的「名稱」文本框中，請輸入 rng 作為儲存格名稱，然後輸入此公式：=ROW(INDIRECT(Sheet1!$B$1&":"&Sheet1!$B$2)) （Sheet1 是您當前使用的工作表，B1 和 B2 是您指定的起始和結束數字）到「 引用位置」文本框中，然後點擊確定按鈕返回上一對話框。參見截圖：

set options in New Name dialog box

3. 繼續點擊新建按鈕以創建另一個儲存格名稱，在「新建名稱」對話框中，於「名稱」文本框中輸入 prime，然後輸入此公式：=SMALL(IF(MMULT(--(IF(rng>TRANSPOSE(rng-Sheet1!$B$1+2),MOD(rng,(rng>TRANSPOSE(rng-Sheet1!$B$1+2))*TRANSPOSE(rng-Sheet1!$B$1+2)))=0),rng-Sheet1!$B$1+2)=0,rng),ROW(INDIRECT("1:"&Sheet1!$B$2)))（rng 是您在第二步中創建的第一個儲存格名稱）到「引用位置」文本框中，參見截圖：

create another range name

4. 然後點擊確定並關閉對話框，選擇您要列出所有質數的一列，並在編輯欄中輸入此公式：=IFERROR(prime," ")（prime 是您在第三步中創建的儲存格名稱），然後按 CTRL + SHIFT + ENTER 鍵一起，兩個給定數字之間的所有質數都列出了，如下截圖所示：

apply a formula to get all prime numbers between two numbers

太棒了！在 Excel 中像 Chrome、Edge、Firefox 和 Safari 一樣使用 Efficient Tabs！
每天為您節省 50% 的時間，並減少數以千計的滑鼠點擊！

使用用戶定義函數生成兩個給定數字之間的所有質數

如果第一種方法有些困難，這裡您可以應用用戶定義函數來解決它。

1. 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2. 點擊插入 > 模組，並將以下代碼粘貼到模組窗口中。

VBA代碼：生成兩個特定數字之間的所有質數：

Function PRIME(St, En As Long)
'Updateby Extendoffice 20160613
Dim num As String
For n = St To En
    For m = 2 To n - 1
        If n Mod m = 0 Then GoTo 20:
    Next m
    num = num & n & ","
20:
Next n
PRIME = num
End Function

3. 然後保存並關閉此代碼，返回工作表，請輸入此公式：=prime(10,100)（10 是起始數字，100 是您想獲取質數的結束數字，您可以根據需要更改它們），然後按 Enter 鍵，所有質數都顯示在一個單元格中，參見截圖：

generate all prime numbers between two numbers with vba code

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多