vba拼接单元格

现需要将Excel2016中同一列下的1000个单元格内容拼接为一个长字符串，方案有三：
（1）使用&符号拼接，但量太大
（2）升级Excel为2019版本，使用函数TEXTJOIN
（3）编写vba代码实现

因为是内网，所以选用vba方案。
操作步骤：
（1）启用开发工具
（2）创建一个模块，编写如下代码

Function ConcatenateRange(ByVal rng As Range) As String  
    Dim cell As Range  
    Dim result As String  
      
    For Each cell In rng  
        If cell.Value <> "" Then  
            result = result & cell.Value
        End If  
    Next cell  
    
    ConcatenateRange = result  
End Function

（3）另存为“启用宏的EXCEL”，然后打开
（4）找个单元格，输入“=ConcatenateRange(A1:A1000)”，括号中范围也可以通过鼠标框选，然后回车即可。