1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Function Join(rng As Range, X As String) As String Application.Volatile For Each cell In rng Dim temp As String If cell <> "" Then temp=temp & cell & X End If Next Join=Left(temp, Len(temp)-Len(X))End Function
5、如图所示之数据，需要将地址串联起来，则在单元格B1中输入公式“=Join(A1:A4,"")”，公式即将区域A1:A4中的数字以空字符串连接起来。如果需要将各字符串以“、”符号分割开，则将公式修改为“=Join(A1:A4,"、")”。公式的第一个参数表示需要串联的区域，第二个参数表示各字符串连接时的分割符，若不需要分割符，则用""空字符
