excel多个单元格内容合并到某一单元格并以指定符合分隔

时间：2022-02-23 09:37:26

建一个模块，写入下面代码

Function LianJie(Rg As Range, sr As String)
Dim R As String
Application.Volatile True
For Each s In Rg
    If s <> "" Then
        R = R & sr & s
    End If
Next s
LianJie = Right(R, Len(R) - 1)
End Function

使用：=LianJie(D2:J2,",")