AR = Range([A1], [A3])
[A5] = Join(Application.Transpose(AR), ",")
任选一个空的单元格,输入=TEXTJOIN(",",1,A2:A4)就行了
刚回答了一个,
http://zhidao.baidu.com/question/544959251.html?fr=uc_push&push=category&oldq=1#answer-1375622515
这个方法有点多。既然你会VBA,就用最简单的方法“&”连接一下就OK了。