Excel VBA自定义拼接单元格函数执行失败，求问题原因与解决办法

一、核心问题拆解 #

1. 自定义函数代码逻辑错误 #

• 第一个代码调用Application.WorksheetFunction.Concat没必要，且该函数仅支持Excel 2019及以上版本，兼容性差；VBA本身支持直接字符串拼接，无需依赖工作表函数。
• 第二个代码里的Application.Evaluate(COMBO)完全错误：first & " " & last已经是拼接好的字符串，再用Evaluate会把它当作公式执行，必然返回错误结果。

2. Excel显示公式而非计算结果 #

单元格D2显示=fullname(B2,C2)，大概率是以下两种情况：

• 单元格D2被设置为文本格式：输入公式前单元格格式为文本，Excel会将公式直接当作文本内容显示。
• 开启了显示公式模式：误按`Ctrl+``（键盘左上角波浪键），导致所有单元格显示公式原文而非计算结果。

二、正确实现步骤 #

1. 编写正确的自定义函数 #

按Alt+F11打开VBA编辑器，右键工作簿→插入→模块，输入以下代码：

Function FULLNAME(first As Variant, last As Variant) As String
    ' 处理空单元格，避免多余空格
    Dim firstStr As String, lastStr As String
    firstStr = Trim(IIf(IsNull(first), "", first))
    lastStr = Trim(IIf(IsNull(last), "", last))
    
    If firstStr <> "" And lastStr <> "" Then
        FULLNAME = firstStr & " " & lastStr
    Else
        FULLNAME = firstStr & lastStr
    End If
End Function

该代码的优势：

• 明确参数与返回值类型，避免类型错误
• 自动处理空单元格，防止出现无效空格
• 纯VBA字符串拼接，兼容所有Excel版本

2. 修复显示公式的问题 #

• 调整单元格格式：选中D2单元格，右键→设置单元格格式→数字→常规，按F2后回车重新触发计算。
• 关闭显示公式模式：按下`Ctrl+``（波浪键），切换回正常显示状态。

3. 测试函数 #

在D2单元格输入=FULLNAME(B2,C2)，回车后即可得到John Doe的正确结果，下拉填充可批量处理其他行。

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