Excel 2016 VBA调用ConcatDelim自定义函数的宏运行报错如何解决

原代码错误点 #

• 单元格计数语法错误：varCellCount 是整数类型，不需要用Set关键字赋值，且统计单元格数量应调用Cells.Count属性，而非未定义的Count方法，这是触发“子过程或函数未定义”报错的核心原因
• 流程控制结构缺失：ElseIf分支没有对应的End If闭合，Sub过程也缺少End Sub收尾，会导致编译不通过
• 工作表调用不规范：Worksheets.Rows(1).Insert未指定工作表对象，运行时会出现调用错误
• 单元格引用语法错误：A1单元格引用需要加引号，应为Range("A1")
• 变量名不匹配：预先声明的存储拼接结果的变量是ConcatString，实际调用时错写为Concat，会导致结果赋值失败

修正后完整代码 #

自定义拼接函数（兼容原逻辑，可选新增跳过空单元格能力） #

Function ConcatDelim(ConcatRange As Variant) As String
    Dim Test As Boolean
    Test = True
    For Each i In ConcatRange
        ' 不需要跳过空单元格可删除下行If判断
        If i <> "" Then
            If Test Then
                ConcatDelim = i
                Test = False
            Else
                ConcatDelim = ConcatDelim & ", " & i
            End If
        End If
    Next i
End Function

修复后的宏代码 #

Sub ConcatDelimMacro()
    ' Keyboard Shortcut: Ctrl+Shift+G
    'Concat Delim Function
    Dim SelectionRange As Range
    Dim varCellCount As Integer
    Dim ConcatString As String
    Set SelectionRange = Selection
    varCellCount = SelectionRange.Cells.Count
    If varCellCount > 99 Then
        MsgBox "选中单元格数量过多，请单次选择不超过99个单元格"
    Else
        ActiveSheet.Rows(1).Insert
        ConcatString = ConcatDelim(SelectionRange)
        ActiveSheet.Range("A1") = ConcatString
    End If
End Sub

使用注意事项 #

• 请将两段代码放在同一个标准模块中，不要放在工作表对象、ThisWorkbook对象模块里
• 运行宏前先选中要拼接的单元格区域，最多支持99个单元格

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