如何在Excel中生成两个给定数字之间的所有素数？

在Excel中，您是否曾经尝试列出两个给定数字之间的所有素数？在本文中，我将讨论一些有趣的方法来处理此任务。

使用公式生成两个给定数字之间的所有素数

使用用户定义函数生成两个给定数字之间的所有素数

使用公式生成两个给定数字之间的所有素数

惊人的！在 Excel 中使用高效的选项卡，如 Chrome、Firefox 和 Safari！

每天节省50％的时间，并减少数千次鼠标单击！

结合 定义名称 函数和公式，您可以列出或生成两个特定数字之间的所有素数。请执行以下操作：

1。请通过点击创建第一个范围名称公式 > 名称管理员，而在 名称管理员 对话框，单击全新按钮，请参见屏幕截图：

doc清单素数1

2。在 新名字 对话框中 姓名： 文本框，请输入 RNG 作为范围名称，然后输入以下公式： = ROW（INDIRECT（Sheet1！$ B $ 1＆“：”＆Sheet1！$ B $ 2）） (Sheet1 是您当前使用的工作表， B1 和 B2 是您指定的开始和结束编号）指文本框，然后单击 OK 按钮返回上一个对话框。看截图：

doc清单素数2

3。继续点击全新按钮可在其中创建另一个范围名称 新名字 对话框中输入名称总理到 姓名： 文本框，然后输入以下公式： =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 是您在步骤2）中创建的第一个范围名称指文本框，请参见屏幕截图：

doc清单素数3

4。然后点击 OK 并关闭对话框，然后选择要列出所有素数的一列，然后输入以下公式： = IFERROR（素数，“”）(总理是您在步骤3）中创建的范围名称，进入编辑栏，然后按 CTRL+SHIFT+ENTER 键，给定两个数字之间的所有素数都列出，如下面的屏幕快照所示：

doc清单素数4

使用用户定义函数生成两个给定数字之间的所有素数

如果第一种方法比较困难，则可以在此处应用 用户定义功能 解决它。

1。按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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。然后保存并关闭此代码，返回工作表，请输入以下公式： =素数（10,100） (10 是起始编号，并且 100 是您要获取其间质数的结束号，您可以根据需要将其更改），然后按输入键，所有质数都显示在一个单元格中，请参见屏幕截图：

doc清单素数5

最佳办公效率工具

Kutools for Excel解决了您的大多数问题，并使您的生产率提高了80％

重用: 快速插入 复杂的公式，图表 以及您以前使用过的任何东西；加密单元带密码创建邮件列表并发送电子邮件...
超级公式栏（轻松编辑多行文本和公式）；阅读版式（轻松读取和编辑大量单元格）；粘贴到过滤范围...
合并单元格/行/列不会丢失数据；拆分单元格内容；合并重复的行/列...防止细胞重复；比较范围...
选择重复或唯一行; 选择空白行（所有单元格都是空的）；超级查找和模糊查找在许多工作簿中；随机选择...
确切的副本多个单元格，无需更改公式参考；自动创建参考到多张纸；插入项目符号，复选框等...
提取文字，添加文本，按位置删除，删除空间; 创建和打印分页小计；在单元格内容和注释之间转换...
超级滤镜（将过滤方案保存并应用于其他工作表）；高级排序按月/周/日，频率及更多；特殊过滤器用粗体，斜体...
结合工作簿和工作表; 根据关键列合并表；将数据分割成多个工作表; 批量转换xls，xlsx和PDF...
超过300种强大功能. 支持 Office / Excel 2007-2021 和 365。支持所有语言。在您的企业或组织中轻松部署。完整功能 30 天免费试用。 60 天退款保证。

阅读更多免费下载... 采购...

Office选项卡为Office带来了选项卡式界面，使您的工作更加轻松

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。
在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
每天将您的工作效率提高50％，并减少数百次鼠标单击！

阅读更多免费下载... 采购...

注释 (3)

还没有评分。成为第一位评论！

约翰肯尼迪阿基诺

大约5年前

#20093

该评论由网站上的主持人最小化

sub generateprimenumbersbetween() starting_number = 1 '这里输入值 last_number = 2000 '这里输入值 primenumbers = "" For a = starting_number To last_number For b = 2 To a If a - b * Int(a / b) = 0 and ab Then Exit For Else If a = b Then primenumbers = primenumbers & " " & a End If End If Next b Next a MsgBox primenumbers End Sub Function primenumbersbetween(starting_number, last_number) primenumbers = "" For a = starting_number To last_number For b = 2 To a If a - b * Int(a / b) = 0 And ab Then Exit For Else If a = b Then primenumbers = primenumbers & " " & a End If End If Next b Next a primenumbersbetween = primenumbers End Function '检查是否a 数是素数 Sub ISPRIME() number_to_be_checked = 102 '在此输入值 For b = 2 To number_to_be_checked If number_to_be_checked - b * Int(number_to_be_checked / b) = 0 And _ number_to_be_checked b Then MsgBox "Not Prime. Divisible by " & b Exit Sub Else If number_to_be_checked = b Then MsgBox "Prime" End If End If Next if b End Sub '检查一个数是否为素数 Function ISPRIME2(number_to_be_checked) For b = 2 To number_to_be_checked If number_to_be_checked - b * Int(number_to_be_checked / b) = 0 And _ number_to_be_checked b Then ISPRIME2 = "Not Prime. 可被 " 整除 & b 退出函数 Else If number_to_be_checked = b Then ISPRIME2 = "Prime" End If End If Next If Next b 结束函数

拉克希米约翰肯尼迪阿基诺

大约 1 年前

#20094

该评论由网站上的主持人最小化

END SUB

约翰肯尼迪阿基诺

大约5年前

#20130

该评论由网站上的主持人最小化

sub generateprimenumbersbetween3() starting_number = 1 '这里输入值 last_number = 10000 '这里输入值 primenumbers = "" For a = starting_number To last_number c = a For b = 2 To c If a Mod b = 0 And cb Then Exit For Else If b = c Then primenumbers = primenumbers & " " & a Exit For Else If Round(a / (b + 1)) + 1 > b Then c = Round(a / (b + 1)) + 1 End If End If End If Next b Next a MsgBox primenumbers End Sub Function PRIMENUMBERSBETWEEN3(starting_number, last_number) primenumbers = "" For a = starting_number To last_number c = a For b = 2 To c If a Mod b = 0 And cb Then Exit For Else If b = c Then primenumbers = primenumbers & " " & a Exit For Else If Round(a / (b + 1)) + 1 > b Then c = Round(a / (b + 1)) + 1 End If End If End If Next b Next a PRIMENUMBERSBETWEEN3 = primenumbers End Function Sub ISPRIME3() number_to_be_checked = 15485863 '此处输入值 c = number_to_be_checked For b = 2 To c If number_to_be_checked Mod b = 0 and cb Then MsgBox "Not Prime. Divisible by " & bExit Sub Else If b = c Then MsgBox "Prime" Exit Sub Else If Round(number_to_be_checked / (b + 1)) + 1 > b Then c = Round(number_to_be_checked / (b + 1)) + 1 End If End If End If Next b End Sub

这里还没有评论

留下你的意见

以访客身份发帖

名字（必填）

电子邮件（必填）

评价此帖子：

重设

0 产品特性

我同意附带条约