在日常计算中，我们经常会遇到最小公倍数和最大公约数的计算，我们怎样在EXCEL中实现这个功能呢？用两种方法可以实现，一种是函数实现，一种就是用VBA编辑代码来实现，下面我们来分别看看这两种方法。
工具/原料
EXCEL软件
函数法：
1、 新建一张EXCEL工作表，在表中输入一些数据，我们将通过函数计算和代码计算两种方式来实现最小公倍数和最大公约数的计算，如图所示。
2、 选择F3单元格，输入=LCM(A3,B3,C3,D3,E3)，用填充手柄把下面的单元格填充满，现在就有了最小公倍数了。
3、 选择G3单元格，输入=GCD(A3,B3,C3,D3,E3)，用填充手柄把下面的单元格填充满，现在就有了最大公约数了。
代码计算法：
1、 单击“开发工具”——VisualBasic，打开VBA编辑器，选择“插入”——模块，打开代码编辑窗口。
2、 现在我们来输入代码：Sub 最小公倍数和最大公约数() Dim m As Integer, n As Integer '定义m、n为整数 Dim m1 As Integer, n1 As Integer '定义m1、n1为整数 Dim t As Integer '定义t为整数 m = InputBox("输入第1个自然数：") '设置输入框，提示输入第一个自然数 n = InputBox("输入第2个自然数") '设置输入框，提示输入第二个自然数 m1 = m n1 = n If m1 < n1 Then '如果m1小于m2 m1 = n n1 = m '则交换m和n的值 End If Do r = m1 Mod n1 '取余运算 If r = 0 Then Exit Do '如果余数为0，则跳出循环 m1 = n1 '否则m1 = n1，n1 = r n1 = r Loop str1 = m & "," & n & "的最大公约数为" & n1 & vbCrLf str1 = str1 & "最小公倍数为" & m * n / n1 MsgBox str1End Sub
3、 现在单击编辑器中，运行——运行子过程/用户窗体，弹出第一个对话框“输入第一个自然数”，我们输入“24”，单击确定，弹出第蘑节侍遑二个对话框“输入第2个自然数”，单击确定，弹出第三个对话框“24,12的最大公约是为12，最小公倍数为24”.
