excel中使用vba批量求取小公倍数的方法
工具/原料
excel2013
更多经验请关注，如果帮到了你，请在上方给个投票谢谢支持。好人一生平安。
先顶后看年薪百万，如果帮到了你，帮忙给个好评，这对小编很重要，万分感谢。
方法/步骤
1、首先我们打开一个工作样表作为例子。
2、打开vba编辑代码窗口，并在编辑窗内输入艮劁飨戽以下代码Sub最小公倍数()DimmAsInteger,nAsIntegerDimm1AsInteger荑樊综鲶,n1AsIntegerDimtAsIntegerFori=1To10m=Sheet3.Cells(i,1).Valuen=Sheet3.Cells(i,2).ValueDebug.Printmm1=mn1=nIfm1<n1Thenm1=nn1=m'交换m和n的值EndIfDoDebug.Printm1r=m1Modn1Ifr=0ThenExitDom1=n1n1=rLoopstr1="最小公倍数="&m*n/n1Sheet3.Cells(i,3).Value=str1NextEndSub
3、因为要批量计算，所以我们需要读取一个数组，这里我使用的for循环，对m和n值进行读取。
4、然后使用的是辗转相除法，定义是两个整数的最大公约数等于其中较小的那个数和两数的恽但炎杰和相除余数为最大公约数。先用这种方法求出两数的最大公约数。
5、求最小公倍数的公式是MN/r，得出最小公倍数。在窗口中插入一个宏命令按钮，来运行这个宏。最后将得值写进工作薄内。
6、点击即可求值，如果数倌栗受绽据很多，可以修改for语句中的i值，以达到批量计算的目的。修改以下代码可以由i=1toi+1填充更改单元格数量。
