Excel VBA使用Join函数时如何删除输出字符串尾部的多余分隔符

出现多余尾部分隔符的核心原因：你使用的是长度固定为16的initials数组，未输入内容的文本框对应数组元素为空字符串，Join函数会将所有元素（包括空元素）按分隔符拼接，尾部的连续空元素就会生成连续的.。普通Trim函数仅处理首尾空格，对.无效，因此无法达到清理效果。

方案1（优先推荐）：拼接前过滤空元素，从根源避免多余分隔符 #

先遍历数组剔除所有空值再执行拼接，同时兼容中间文本框未输入的场景，不会产生多余的中间分隔符，代码示例：

Dim filteredArr() As String
Dim i As Integer, validCount As Integer
validCount = 0
ReDim filteredArr(0 To UBound(initials))

' 遍历原数组，仅保留非空的有效元素
For i = LBound(initials) To UBound(initials)
    If Trim(initials(i)) <> "" Then
        filteredArr(validCount) = initials(i)
        validCount = validCount + 1
    End If
Next i

' 生成最终拼接结果
If validCount > 0 Then
    ReDim Preserve filteredArr(0 To validCount - 1)
    result = Join(filteredArr, ".")
Else
    result = "" ' 处理所有文本框都未输入的边界情况
End If

如果你的业务要求保留中间未输入文本框的空占位（例如第3个文本框为空时，拼接结果需要保留a.b..d的格式，仅删除尾部多余的点），可直接使用下面的方案2。

方案2：直接清理已拼接字符串的尾部分隔符 #

不需要改动原有数组处理逻辑，直接对Join后的结果做尾部清理，代码更简短：

Dim result As String
result = Join(initials, ".")

' 循环移除尾部所有多余的.
Do While Right(result, 1) = "."
    result = Left(result, Len(result) - 1)
Loop

两种方案都不需要额外引用工作簿内容，完全适配表单文本框的使用场景。

内容的提问来源于stack exchange，提问作者jon s