如果您使用的是Microsoft Excel 2007,请单击主页>贴>颠倒粘贴拆分数据。
您可以看到如下所示的结果:

根据定界符快速将一个单元格拆分为列或行
在Excel中,使用向导逐步将单元格拆分为列很麻烦。 但是随着Kutools for Excel's分裂细胞实用程序,您可以:1,根据定界符将一个单元格转换为列或行; 2,将字符串转换为文本和数字; 3,根据具体的宽度,点击转换字符串。单击可获得全功能的30天免费试用!
Kutools for Excel:拥有300多个便捷的Excel加载项,可以在30天内免费试用。

使用VBA将一个单元转换为多个单元/行
如果您认为上述方法有点繁琐,则可以使用VBA来完成。
1.按住ALT按钮并按下F11在键盘上打开一个Microsoft Visual Basic应用程序窗口。
2。 点击插页>模块,然后将VBA复制到模块中。
VBA:将一个单元格转换为多行
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
3。 点击运行运行VBA代码,以及KutoolsforExcel弹出对话框,供您选择要转换其数据的单个单元格。 看截图:
4。 点击OK,然后在另一个弹出对话框中选择一个单元格以输出结果。 看截图:
您可以看到结果:
小技巧:在上面的VBA代码中,您可以更改分隔符“,” 您希望将数据分开。 此VBA不支持基于换行符的拆分单元格。