1、首先我们打开一个工作样表作为例子。
2、打开vba编辑代码窗口，并在编辑窗内输入以下代码
Sub 最小公倍数()
Dim m As Integer, n As Integer
Dim m1 As Integer, n1 As Integer
Dim t As Integer
For i = 1 To 10
m = Sheet3.Cells(i, 1).Value
n = Sheet3.Cells(i, 2).Value
Debug.Print m
m1 = m
n1 = n
If m1 < n1 Then
m1 = n
n1 = m '交换m和n的值
End If
Do
Debug.Print m1
r = m1 Mod n1
If r = 0 Then Exit Do
m1 = n1
n1 = r
Loop
str1 = "最小公倍数=" & m * n / n1
Sheet3.Cells(i, 3).Value = str1
Next
End Sub
3、因为要批量计算，所以我们需要读取一个数组，这里我使用的for循环，对m和n值进行读取。
4、然后使用的是辗转相除法，定义是两个整数的最大公约数等于其中较小的那个数和两数的和相除余数为最大公约数。先用这种方法求出两数的最大公约数。
5、求最小公倍数的公式是MN/r，得出最小公倍数。在窗口中插入一个宏命令按钮，来运行这个宏。最后将得值写进工作薄内。
6、点击即可求值，如果数据很多，可以修改for语句中的i值，以达到批量计算的目的。修改以下代码可以由i= 1 to i+1填充更改单元格数量。
