第一步、在“创建”——“宏与代码”——“模块”中定义函数: Public Function GroupConcat(sColumn As String, sTable As String, Optional sCriteria As String, Optional sDelimiter As String = “,”) On Error GoTo ErrHandler Dim rs As New ADODB.Recordset Dim sSQL As String Dim sResult As Strin