第1个回答 2021-06-25
用vb自定义一个函数就好了
按alt+f11 在弹出的窗后里面点插入--模块 在代码窗口复制粘贴以下代码
Function tst(cel As Range)
Dim i%
For i = 1 To Len(cel)
p = p & Mid(cel, i, 1) & ","
Next
tst = p
End Function
关掉编辑器,在要添加符号的单元格旁边一个输入函数就好了
比如要改变a2,在b2输入=tst(a2) 多的话自动下拉就好了
第2个回答 2021-06-25
在B2中输入或复制粘贴下列公式
=TEXTJOIN(",",,MID(A2,ROW($1:$10),1))
下拉填充
第3个回答 2022-09-23
=TEXTJOIN(",",TRUE,MID(A1,1,1),MID(A1,2,1),MID(A1,3,1),MID(A1,4,1),MID(A1,5,1),MID(A1,6,1))