|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 sun3515 于 2023-10-1 05:01 编辑
复制公式到EXCEL单元格中,在单元格Q1输入一数值n,你将获得第n个对应质数:
=IF(Q1=1,2,IF(Q1=2,3,IF(Q1<8,INDEX(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{1})),ROW(INDIRECT("1:"&(8*Q1)))),Q1-2),INDEX(UNIQUE(SMALL(IF({1,0},(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*(Q1)))))+{1})),ROW(INDIRECT("1:"&(8*Q1))))),(SMALL(MMULT(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*Q1))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*Q1))))+{1})),ROW(INDIRECT("1:"&Q1))),TRANSPOSE(SMALL(IF({1,0},(6*(ROW(INDIRECT("1:"&(6*Q1))))+{-1}),(6*(ROW(INDIRECT("1:"&(6*Q1))))+{1})),ROW(INDIRECT("1:"&Q1))))),ROW(INDIRECT("1:"&(8*Q1)))))),ROW(INDIRECT("1:"&(8*Q1)))),FALSE,TRUE),Q1-2)))) |
|