vba 初试

 选择-插入- 模块

然后加入如下代码： 保存

Function hcf(m, n)
If m < n Then
t = m: m = n: n = t
End If
r = m Mod n
Do While r > 0
m = n
n = r
r = m Mod n

Loop
hcf = n
End Function

 

在C1栏中定位光标 然后输入公式
=hcf（A1，B1）

计算出结果（求最小公倍数）：

 

 demo download