excel中用VBA求最大公约数

您可以使用VBA编写一个函数来计算两个数的最大公约数。下面是一个示例代码：

Function gcd(a As Integer, b As Integer) As Integer
    ' 如果其中一个数为0，则返回另一个非0数
    If a = 0 Then
        gcd = b
    ElseIf b = 0 Then
        gcd = a
    Else
        ' 递归调用求解最大公约数
        gcd = gcd(b, a Mod b)
    End If
End Function

编写完上述代码后，您可以在Excel中使用这个函数来计算最大公约数。例如，在单元格A1和B1分别输入要计算的两个数，然后在C1单元格中输入以下公式：`=gcd(A1, B1)`，按下回车即可得到最大公约数的结果。

请注意，VBA中的整数类型为`Integer`，范围为-32,768到32,767。如果要处理更大的数值，可以将参数类型改为`Long`。