使用Excel/Excel VBA将单个单元格中的文本拆分为多个单元格

我使用python从网页抓取中收集数据，但结果表明，一个页面中的所有评论都被编译到excel中的一个单元格中。是否有任何excel功能或excel VBA函数/代码可用于将每个数据分离到其自己的单元格中

[ 玛丽拉塞尔 ，
奥利维亚 ，
凯蒂·杰德 ，
埃拉迪·斯塔尔 ，
安吉拉·格雷厄姆 ，
希拉里 ，
安·胡达克 ，
Dag107 ，
莎拉·萨默贝尔 ，
方钻杆窗台 ，
勒奈特星麻风 ，
凯瑟琳605 ，
雷切尔 ，
梅尔加尔木虱 ，
艾莉莎R ，
吉娜·凯莉 ，
唐娜·朱利安 ，
谢里卡·弗雷隆 ，
伊丽莎白·马塞纳罗 ，
香农·贝塞尔

---

]

查看功能区的

数据

选项卡上的

文本到列

。很明显，您有一个逗号作为分隔符，可以很容易地删除方括号。但结果是，原来的列上只剩下左括号，所有其他文本都消失了。找到了一个有效的VBA代码。我猜这里的数据格式有点奇怪，可以被文本到列功能识别（或者可能是我做了一些愚蠢的错误）。谢谢你的建议！！请将您找到并用作此线程答案的代码发布给其他人，以查看谁可能有类似问题。使用

文本到列

操作后，生成的单元格（第一个除外）可能首先包含换行符，然后是

Olivia

等。；换行符使其看起来隐藏在单元格框架下，看起来好像“消失”；使线的高度变大会显示它。在应用<代码>文本到列< /代码>之前，请考虑将函数<代码>代号< /代码>应用到已废弃的文本中。

Sub TransposeRange()
'Updateby20140312
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection.Range("A1")
Set InputRng = Application.InputBox("Range(single cell) :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Arr = VBA.Split(InputRng.Range("A1").Value, ",")
OutRng.Resize(UBound(Arr) - LBound(Arr) + 1).Value = Application.Transpose(Arr)
End Sub