EXCEL自定义函数求1000以内的质数
发布时间:2023-08-22 15:29:16
标签:代码,函数,多个,自定义,Excel函数
自定义函数
=ZS(ROW(A1))
下拉
自定义函数代码
Function ZS(s%)
Dim f As Boolean, arr(), a%, i%
ReDim Preserve arr(1)
arr(0) = 2
For i = 3 To 999 Step 2
For j = 2 To i – 1
If i Mod j = 0 Then f = True: Exit For
Next
If Not f Then
a = a + 1
ReDim Preserve arr(a)
arr(a) = i
End If
f = False
Next
ZS = arr(s – 1)
End Function
宏代码
Sub getZS()
Dim arr(), f As Boolean
ReDim Preserve arr(1)
arr(0) = 2
For i = 3 To 999 Step 2
For j = 2 To i – 1
If i Mod j = 0 Then f = True: Exit For
Next
If Not f Then
a = a + 1
ReDim Preserve arr(a)
arr(a) = i
End If
f = False
Next
[c2].Resize(a, 1) = Application.Transpose(arr)
End Sub


猜你喜欢
- 将pdf转换成word有可以在线转换的转换器,在线的不需要下载就可直接将文档转换成目标格式文件。方法1首先需要访问在线pdf转换器,可直接搜
- 方法一、在word上菜单栏上选择【插入-符号】,然后在符号上就会有破折号选择它即可输入在word上了。注意在启动输入法的状态下,按住【SHI
- Win11是否支持HDR?相信有很多用户都是不太清楚电脑应该如何查看是否支持HDR,针对这一情况,今天小编精心整理了详细的教程分享给大家,有
- 在Excel中应该如何输入上标呢?下面是由小编分享的excel中输入上标的教程,以供大家阅读和学习。excel中输入上标的教程:输入上标步骤
- iOS 15beta版已发布,有多少人已经使用爱思助手升级到iOS 15了呢?升级到iOS 15后的使用感受怎么样?iOS 15都有哪些BU
- 工作中有时候会遇到需要查找出两列数据相同部分的时候,数据少的时候可以用眼睛一个个看过去,但是数据多了耗费的时间就长了,而且很容易存在误差,那
- 有时候我们居家办公的时候,哪里出现了问题,一般都会远程请教别人帮忙,但是有小伙伴不清楚的如何打开Win11远程桌面RDP,下面小编就教大家如
- 在Excel中统计数据,经常会用到日期这方面的函数,日期函数想要熟练精通掌握也不太容易,下面是小编带来的关于excel当前日期函数教程的内容
- 高德地图顺风车如何付款?近期,高德地图也加入了网约顺风车的行列,很多新用户们都不知道如何使用与付款,在软件上到处点着,下面小编就来教大家高德
- 我们在使用电脑办公的过程中,经常会使用通过共享打印机进行文档的答应,一台打印机可以被多台电脑连接,但是有的用户想要将电脑与打印机连接的是,出
- 新建一张幻灯片(可以选择将不需要的模板去掉)点击“插入”—“艺术字”(选择自己喜欢的字体效果) 图1在文字框中输入
- 当你满格的手机电量撑不过半天的正常使用时,换电池是大部分人的首选。在囊中羞涩的情况下,花小几百块换个电池能让你再战两年。苹果手机换电池一般大
- 从手机导出一系列照片后发现,这些照片都是以一长串数字命名的,若手动一张张重命名又太耗费时间,下面为大家介绍下win7系统中如何实现批量重命名
- wps表格怎么添加水印?①首先选择【设计】,有的版本是在【页面布局】然后点击【水印】,在弹出的选项中可以快速选择常用的水印:机密或者是严禁复
- Win10秋季创意者更新16232.1004,下文小编就为大家带来PC版的更新修改内容汇总,感兴趣的朋友可以一起看看Windows 10 b
- Win10系统更新文件在哪删除?Win10的主要更新主要有两种,分为质量更新和功能更,若在进行Windows更新后,电脑出现问题,可先卸载W
- win7任务管理器被禁用了怎么打开?任务管理器可以辅助用户找到那些无用的软件或程序结束进程,加快电脑的运行速度,但是有win7的用户说自己按
- excel/word宏已被禁用解决方法来咯~绿茶小编胖胖将会告诉大家遇到“宏已被禁用”提示解决方法,这两个提示在excel和word中经常出
- 众所周知,网路适配器也称网卡,是工作在链路层的网络组件,是局域网中连接计算机和传输介质的接口,能实现与局域网传输介质之间的物理连接和电信号匹
- 小数位,相信小伙伴们都不会觉得陌生,很多时候,我们在Excel表格中看到的基本上都是没有小数位的数字格式。但是,有时候我们拿到的数据时包含小