VBA-UDF-LINKTHEM

'用于将单元格区域中的值用分隔符连接起来
Public Function LinkThem(range As range, Optional delimiter As String = ",", Optional quotedChar As String = "") As String
    Dim resultString As String
    For Each cell In range.Cells
        resultString = IIf(resultString = "", "", resultString & delimiter) & quotedChar & cell.Value & quotedChar
    Next
    LinkThem = resultString
End Function