如果是2016版本以下没有textjoin函数的，插入下列程序代码
'自定义公式-按ALT+11-插入-模块(TEXTJION函数)
Function textjoin(b As String, a As Range)
For Each cel In a
If cel <> "" Then p = p & b & cel
Next
textjoin = Mid(p, Len(b) + 1)
End Function
在A2单元格输入公式：
=Sheet3!A2&""
复制并下拉即可
可以用代码的工作表事件来完成的。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024