Excel VBA – LCM – 子或function未定义

以下代码：

Sub lcm_() If Selection.Areas.Count <> 1 Then Exit Sub Dim a As Range Set a = Selection.Areas(1) a.Item(1).Value = Lcm(a.Item(1).Value, a.Item(2).Value) End Sub 

产生的错误： Compile error: Sub or Function not defined ，我不明白为什么。 我看了类似的问题，看来问题是，Excel无法find内置函数LCM，但文档使它看起来像它不需要任何特殊的库。 我对VBA很新，所以这是完全可能的，这是非常简单的，但我不知道是什么。

编辑：

值得注意的是，如果我只需点击一个单元格并键入=LCM(A8,A9) ，那么它工作正常。

Answer 1

尝试这个：

 Sub lcm_() If Selection.Areas <> 1 Then Exit Sub Dim a As Range Set a = Selection.Areas(1) a.Item(1).Value = WorksheetFunction.Lcm(a.Item(1).Value, a.Item(2).Value) End Sub