可以一次性完成,
写个宏:
打开Excel、选工具、选宏、选宏,在宏名处输入:GetName,选创建,将下列代码考入后
执行宏:
打开Excel、选工具、选宏、选宏、选GetName、选执行
Sub GetName()
Dim i, c As Integer
Dim ct As Integer
Dim dt As String
Dim nm As String
Dim cc As String
i = 2
dt = ""
While Cells(i, 1) <> ""
dt = dt + " " + Cells(i, 1)
i = i + 1
Wend
dt = Trim(dt)
c = 2
ct = Len(dt)
nm = ""
i = 1
While i <= ct
cc = Mid(dt, i, 1)
If cc = " " Then
If nm <> "" Then
Cells(c, 2) = nm
c = c + 1
End If
nm = ""
Else
nm = nm + cc
End If
i = i + 1
Wend
If nm <> "" Then Cells(c, 2) = nm
End Sub
当然可以
1.复制需要拆分的内容到剪切板
2.双击“一个”新的单元格内粘贴所有内容
3.Ctrl+H,执行替换。查找内容为 (空格),替换栏输入Ctrl+Shift(动作输入,你看不到内容),全部替换
4.复制此单元格内容,单击新的单元格,粘贴
5.选定列,F5定位,空值
6.右键删除,下方单元格上移
可以利用word来实现:
1、将A列复制到word中;
2、在word中将表格转换成文本;
3、将空格替换成段落标记;
4、删除空行;
5、将文本转换成表格;
6、将表格复制到excel中。
试试?
貌似不能。