如果是excel2007的话，点击左上角的圆圈图标，再选择“excel选项”，选择“在功能区显示开发工具选项”，点确定，这时在最上面的选项中，开发工具→插入→按钮→新建
复制下列代码，在Sub
Sheet1_按钮1_Click()和end
sub之间复制如下代码
Dim
a()
As
String
a()
=
Split(Cells(2,
1),
Chr(10))
For
i
=
0
To
UBound(a())
Cells(i
+
1,
4)
=
a(i)
Next
其中Cells(2,
1)表示的是第二行，第一列，即A2表格，如果是E3，则改为cells(3,5)
Cells(i
+
1,
4)中的4表示的是将数据导到第四列
该功能是依据换行符进行拆分的
