Excel Skill---Insert into one cell with data in other cells(获取某单元格的内容作为某单元格的输入)

Function CONCAT_RANGE(rng As Range, Optional sep As String = ",") As String
Dim rngCell As Range
Dim strResult As String
For Each rngCell In rng
If rngCell.Value <> "" Then
strResult = strResult & sep & rngCell.Value
End If
Next rngCell
If strResult <> "" Then
strResult = Mid(strResult, Len(sep) + 1)
End If
CONCAT_RANGE = strResult
End Function