|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
复制下列质数数组通项公式,在Q1单元格输入某一值,1000以内足够能求出,过大须扩大2的乘数,如8改为16,16改为32。以此递推。只要计算机运算强,没问题。相比之前,变化不大,还是老思路,新感觉。
=IF(Q1=1,2,IF(Q1=2,3,INDEX(UNIQUE(SMALL(IF({1,0},UNIQUE(SMALL({2,2}*(ROW(INDIRECT("1:"&(8*Q1))))+{-1,1},ROW(INDIRECT("2:"&(16*Q1)))),FALSE,FALSE),SMALL(UNIQUE(MMULT(UNIQUE(SMALL({2,2}*(ROW(INDIRECT("1:"&(8*Q1))))+{-1,1},ROW(INDIRECT("2:"&(16*Q1)))),FALSE,FALSE),TRANSPOSE(UNIQUE(SMALL({2,2}*(ROW(INDIRECT("1:"&(8*Q1))))+{-1,1},ROW(INDIRECT("2:"&(16*Q1)))),FALSE,FALSE)))),ROW(INDIRECT("1:"&(8*Q1))))),ROW(INDIRECT("1:"&(16*Q1)))),FALSE,TRUE),Q1-1)))
|
|