求教如何将若干单词在去掉逗号后，拆分成一个个单词的单元格

level 1

多仁婴楼主

2017年07月30日 15点07分 1

level 1

多仁婴楼主

2017年07月30日 15点07分 2

level 12

ChinaMagicHerb

先按逗号分列再转置粘贴

2017年07月30日 15点07分 3

多仁婴

好像不行，能再具体点吗

2017年07月31日 00点07分

吧务

level 14

鬍鬚客

=TRIM(MID(SUBSTITUTE(A$1,",",REPT(" ",999)),ROW(A1)*999-998,999))
下拉

2017年07月30日 18点07分 4

多仁婴

试过了，单词还是在一个单元格里，逗号还在

2017年07月31日 00点07分

鬍鬚客

@多仁婴你的逗号是全角符號吧?公式中的逗號也要改為全角的

2017年08月01日 23点08分

鬍鬚客

@多仁婴 =TRIM(MID(SUBSTITUTE(A$1,"，",REPT(" ",999)),ROW(A1)*999-998,999))

2017年08月01日 23点08分

level 1

多仁婴楼主

2017年07月31日 00点07分 5

硫酸下

=TRIM(MID(SUBSTITUTE(A$1,"，",REPT(" ",999)),ROW(A1)*999-998,999))

2017年07月31日 01点07分

硫酸下

你这逗号是全角的。substitute就要替换全角的逗号。

2017年07月31日 01点07分

level 13

硫酸下

如果数据是整列的，分列还是更划算。
数据-分列-分隔符其他：输入逗号，完成。

2017年07月31日 01点07分 6

多仁婴

谢了大神，两种方法均可以，区别一个竖向排列，一个横向。 [真棒]

2017年07月31日 03点07分

level 11

🌴菠萝蜜🌴

Option Explicit
Sub test()
　Dim arr, csvfilename, brr, t, i, j
　arr = Split([a1], ",")
　[a2].Resize(UBound(arr) + 1, 1) = WorksheetFunction.Transpose(arr)
End Sub

2017年07月31日 11点07分 7

level 8

addfggd射手

正则

2017年07月31日 12点07分 8