用EXCEL求一个数的因数（约数）

题目

用EXCEL求一个数的因数（约数）
1.如何用EXCEL求一个数最小约数?
2.如何用EXCEL求一个数所有约数?
3.如何用EXCEL求一个数所有质因数?
4.如何用EXCEL分解质因数?（即在第三问的基础上显示次数）
注：数比较大,6、7位以上
我的版本是EXCEL2003

答案

先解决问题1和问题2
A1 输入 65535
B1 输入 数组公式
=SMALL(IF(MOD($A$1,ROW($2:$65536))=0,ROW($2:$65536)),ROW(1:1))
Ctrl + Shift + Enter 三键输入
将B1下拉
B列便会显示 所有 65535的约数
3,5,15,17,51,85,255,257,771,1285,3855,4369,13107,21845,65535 共15个
如是Excel 2003,A1的最大值是 65536,如 Excel2007,则可以大很多,但数字愈大,速度愈慢
问题3及问题4,较为复杂
需1组辅助区域,列出所有质数
再用VBA求出完整的分解质因式,A1最大值是2147483647
如需要,请留下e-mail
----------------------------------------
Excel并没有任何内置函数及功能处理约数,特别是质因数
故只可自行编写电脑程式(VBA)去解决
在这里无法明细表达,如需进一步协助,请留下e-mail,以便将文件发送