如何在 Excel 中检查数字是否为质数？

众所周知，质数是一个自然数，它只包含两个不同的自然数除数：1 和其本身。如果工作表中有一列数字，如何检查这些数字是否为质数呢？

使用数组公式检查数字是否为质数

使用用户定义函数检查数字是否为质数

使用数组公式检查数字是否为质数

以下公式可以帮助您识别某个数字是否为质数，请按照以下步骤操作：

1. 在空白单元格（例如 C2）中输入以下公式，该单元格位于数据旁边：

=IF(A2=2,"质数",IF(AND(MOD(A2,ROW(INDIRECT("2:"&ROUNDUP(SQRT(A2),0))))<>0),"质数","非质数")) （A2 是包含要检查数字的单元格），然后同时按下 Ctrl + Shift + Enter 键，您将得到结果。如果数字是质数，则单元格会显示“质数”，否则会显示“非质数”。请参见截图：

2. 然后选择单元格 C2，并向下拖动填充柄到您想应用此公式的单元格，所有数字都会被识别为质数或非质数。请参见截图：

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

使用用户定义函数检查数字是否为质数

以下用户定义函数也可以帮助您检查数字是否为质数，请按照以下步骤操作：

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

2. 单击 插入 > 模块，并将以下代码粘贴到模块窗口中。

VBA 代码：检查数字是否为质数：

Function CheckPrime(Numb As Single) As Boolean
'Updateby Extendoffice
    Dim X As Long
    If Numb < 2 Or (Numb <> 2 And Numb Mod 2 = 0) _
     Or Numb <> Int(Numb) Then Exit Function
    For X = 3 To Sqr(Numb) Step 2
        If Numb Mod X = 0 Then Exit Function
    Next
    CheckPrime = True
End Function

3. 然后保存并关闭此代码，返回工作表，在数字列表旁边的空白单元格中输入公式：=checkprime(A2)，然后向下拖动填充柄到您希望包含此公式的单元格。如果数字是质数，它将显示 TRUE，如果不是，则显示 FALSE。请参见截图：