Excel VBA 函数将非空单元格与用户定义的分隔符连接起来

我找到了这段代码：

Function ConcatenateRange(ByVal cell_range As Range, _
                    Optional ByVal seperator As String) As String

Dim cell As Range
Dim newString As String
Dim cellArray As Variant
Dim i As Long, j As Long

cellArray = cell_range.Value

For i = 1 To UBound(cellArray, 1)
    For j = 1 To UBound(cellArray, 2)
        If Len(cellArray(i, j)) <> 0 Then
            newString = newString & (seperator & cellArray(i, j))
        End If
    Next
Next

If Len(newString) <> 0 Then
    newString = Right$(newString, (Len(newString) - Len(seperator)))
End If

ConcatenateRange = newString

End Function

它将一个范围合并到一个单元格中（CONCATENATES单元格并在每个部分之间添加空格）。我曾多次尝试编辑它以在每个项目之间添加“，”，但没有成功。问题是它引用了范围A1:A1000，我可能只使用 10 行或全部。我只是不希望它在我未填写的每个单元格的联合收割机末尾有额外的 , 。

还想创建此副本，其中将添加一个;每个项目的右侧。

如何编辑它以添加这些部分，无论是左侧还是右侧，但仅限于填充的单元格。

感谢您的任何帮助。

你的宏已经可以工作了。=ConcatenateRange(A1:A14,",") where A1 to A4里面有数字1-4，你会得到1,2,3,4.