发布网友
共3个回答
热心网友
如果软件版本为WPS2019或OFFICE2019以上版本,如图:J1单元格输入公式=TEXTJOIN(",",1,A1:H1)
下拉公式。
热心网友
先转为一列,然后用phonetic
加个辅助列
如图
=SUBSTITUTE(PHONETIC(A:B),"替换",",")
热心网友
编写个程序,可以实现
合并结果放在A2
Sub 合并()
Dim i, K
For K = 1 To 100 '假设100列 ,从A列开始
[a2] = [a2] & "," & Cells(1, K)
Next
End Sub