EXCEL自定义函数求1000以内的质数

各位用户为了找寻关于EXCEL自定义函数求1000以内的质数的资料费劲了很多周折。这里教程网为您整理了关于EXCEL自定义函数求1000以内的质数的相关资料，仅供查阅，以下为您介绍关于EXCEL自定义函数求1000以内的质数的详细内容

自定义函数

=ZS(ROW(A1))

下拉

自定义函数代码

Function ZS(s%)Dim f As Boolean, arr(), a%, i%ReDim Preserve arr(1)arr(0) = 2For i = 3 To 999 Step 2For j = 2 To i – 1If i Mod j = 0 Then f = True: Exit ForNextIf Not f Thena = a + 1ReDim Preserve arr(a)arr(a) = iEnd Iff = FalseNextZS = arr(s – 1)End Function

宏代码

Sub getZS()Dim arr(), f As BooleanReDim Preserve arr(1)arr(0) = 2For i = 3 To 999 Step 2For j = 2 To i – 1If i Mod j = 0 Then f = True: Exit ForNextIf Not f Thena = a + 1ReDim Preserve arr(a)arr(a) = iEnd Iff = FalseNext[c2].Resize(a, 1) = Application.Transpose(arr)End Sub