EXCEL自定義函數(shù)求1000以內(nèi)的質(zhì)數(shù)

EXCEL自定義函數(shù)求1000以內(nèi)的質(zhì)數(shù)

自定義函數(shù)

=ZS(ROW(A1))

下拉

自定義函數(shù)代碼

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

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。