如何让Excel宏检查XLOOKUP可用性并判断兼容版本？

由于微软停止更新Excel主版本号（停留在16），Application.Version无法区分旧版Excel（如2016）、Excel 2021和Microsoft 365。最可靠的方式是直接检测XLOOKUP函数是否可用——毕竟你的宏依赖这个函数，只要函数不可用就直接拦截，比版本判断更精准。

实现步骤 #

在宏的最开头添加以下兼容性检查代码：

Sub YourMacroName()
    ' 兼容性检查：验证XLOOKUP函数是否可用
    On Error Resume Next
    Dim xlookupTest As Variant
    xlookupTest = Application.Evaluate("XLOOKUP(1,{1},1)")
    On Error GoTo 0
    
    ' 如果XLOOKUP不可用，弹出警告并终止宏
    If IsError(xlookupTest) Then
        MsgBox "此宏仅支持Microsoft 365或Excel 2021版本。你的Excel版本不支持XLOOKUP函数，无法运行此宏。", vbCritical, "兼容性错误"
        Exit Sub ' 或者用End终止整个宏进程
    End If
    
    ' 以下是你的宏原有业务代码
    ' ...
End Sub

代码说明 #

• 通过Application.Evaluate执行最简XLOOKUP公式，若返回错误则说明当前Excel版本不支持该函数。
• 用On Error Resume Next避免公式执行报错中断检查流程，之后恢复默认错误处理逻辑。
• 弹出警告后直接终止宏，从根源避免旧版Excel运行宏导致的异常结果。

备选方案：检测产品类型 #

如果需要更明确区分版本，也可以通过产品名称判断：

Sub CheckProductVersion()
    Dim productName As String
    productName = Application.ProductName
    
    ' 检查是否为365或2021版本
    If Not (InStr(productName, "365") > 0 Or productName = "Microsoft Excel 2021") Then
        MsgBox "此宏仅支持Microsoft 365或Excel 2021版本。", vbCritical, "兼容性错误"
        Exit Sub
    End If
    
    ' 宏原有业务代码
    ' ...
End Sub

不过这种方法不如检测函数可靠，因为部分特殊版本的产品名称可能存在差异，而直接检测XLOOKUP能确保宏依赖的核心功能确实存在。

内容的提问来源于stack exchange，提问作者Oregonian