EXCEL表格怎么实现因数的转换

更新时间2018-05-12 04:15:28

例如输入一个8，会自动转换成1,2,4,8，当输入的数值大于百万时怎么弄，求大神指教

像这种极其有规律、答案个数不定的问题，适合于使用VBA编码解决。

上图是100000的分解结果，用了十几秒钟；

如果数据大于百万，分解时间可能会比较长！

代码：

Sub 分解()

   sj = [a1]

   hs = 2

   Do While sj > 1

      If Int([a1] / sj) * sj = [a1] Then

         Cells(hs, 1) = [a1] / sj

         hs = hs + 1

      End If

      sj = sj - 1

   Loop

End Sub

因数分解，可以采用很多方法。

VBA、辅助列、其它方法。

用VBA很好解决。