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

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

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

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

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

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

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

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

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 是您在第二步中創建的第一個儲存格名稱）到「引用位置」文本框中，參見截圖：

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

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

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

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 鍵，所有質數都顯示在一個單元格中，參見截圖：