用VBA写一段代码，实现一个函数，这个函数可以讲一列合并成一个字符串，分隔符号可以自定义

### 回答1：

Function MergeString(ByVal Range As Range, Optional Separator As String = ",") As String
Dim s As String
For Each cell In Range
s = s & cell.Value & Separator
Next
s = Left(s, Len(s) - Len(Separator))
MergeString = s
End Function

### 回答2：
使用VBA编写的函数来合并一列的字符串，可以自定义分隔符号。以下是一个示例函数的代码：

Function mergeStringWithDelimiter(rng As Range, delimiter As String) As String
    Dim cell As Range
    Dim result As String
   
    ' 遍历每个单元格
    For Each cell In rng
        ' 如果单元格不为空，则将其值添加到结果字符串中
        If Not IsEmpty(cell.Value) Then
            result = result & cell.Value & delimiter
        End If
    Next cell
    
    ' 去除最后一个分隔符
    If Right(result, Len(delimiter)) = delimiter Then
        result = Left(result, Len(result) - Len(delimiter))
    End If
    
    mergeStringWithDelimiter = result
End Function

使用此函数，您需要将包含要合并的列作为参数传递给函数，并指定要用作分隔符的字符串。例如，如果要将“A1：A5”范围的单元格合并为一个字符串，使用逗号作为分隔符，则可以在某个单元格中使用以下公式：`=mergeStringWithDelimiter(A1:A5, ",")`。这将返回一个包含合并值的字符串，以逗号分隔每个值。

### 回答3：
使用VBA编写一个函数，实现将一列合并为一个字符串的功能，并可以自定义分隔符。

Function MergeColumn(rng As Range, delimiter As String) As String
    Dim cell As Range
    Dim mergedString As String
    
    For Each cell In rng
        mergedString = mergedString & cell.Value & delimiter
    Next cell
    
    If Len(mergedString) > 0 Then
        mergedString = Left(mergedString, Len(mergedString) - Len(delimiter))
    End If
    
    MergeColumn = mergedString
End Function

以上代码需要传入两个参数：列范围（rng）和分隔符（delimiter），其中rng代表要合并的列，delimiter代表要使用的分隔符。

首先声明了一个变量cell用于遍历列范围rng中的每一个单元格。然后使用For Each循环始终循环遍历rng中的单元格，在循环中将每个单元格的值和分隔符添加到字符串mergedString中。

最后，判断合并后的字符串是否为空。如果不为空，则使用Left函数去掉字符串最后一个分隔符。最后将合并后的字符串赋值给函数名MergeColumn，最后返回给调用者。

这样，调用MergeColumn函数时，传入要合并的列和分隔符即可实现将一列合并为一个字符串的功能。