公式搞起：=IF(A2<>A1,1,)，下拉填充，復制粘貼成數值，Ctrl+F搜1，點查找全部，Ctrl+A全選，右鍵插入整行，搞定！一分鐘速通?

用宏來弄吧，新鍵一個宏，輸入以下代碼來執行即可。

Sub Macro2()
'
' Macro2 Macro
' 宏由 微軟用戶 錄制，時間: 2010-2-24
'

'
***.replace What:="A", Replacement:=" A", LookAt:=xlPart, SearchOrder _
:=xlByRo360問答ws, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
***.replace What:="B", Replacem又費無ent:=" B", Lo象需別屬消okAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
***.replace What:="C", Replacement:=" C", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
***.replace What:="D", Replacement:=" D", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, 課達倒重功SearchFormat:=False, ReplaceFormat:=False
***.replace What:="E", Replacement:=" E", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
***.replace What:="F", Replacement:=" F", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
*祖**.replace What:="G", Replacement:=" G", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
***.replace What:="H", Replacement:=" H", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=Tr地植皮錯證設鐘ue, SearchFormat:=False, ReplaceFormat:=False
***.replace What:="I", Replacement:=" I", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, 銷護點緊頻臉居時歷料龍ReplaceFormat:=False
***.replace What:="J", Replacement:=" J", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
***.replace What:="K", Replacement:=" K", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
***.replace What:="L", Replacement:=" L", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
***.replace What:="M", Replacement:=" M", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
***.replace What:="N", Replacement:=" N", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
***.replace What:="O", Replacement:=" O", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
***.replace What:="P", Replacement:=" P", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
***.replace What:="Q", Replacement:=" Q", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
***.replace What:="R", Replacement:=" R", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
***.replace What:="S", Replacement:=" S", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
***.replace What:="T", Replacement:=" T", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
***.replace What:="U", Replacement:=" U", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
***.replace What:="V", Replacement:=" V", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
***.replace What:="W", Replacement:=" W", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
***.replace What:="X", Replacement:=" X", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
***.replace What:="Y", Replacement:=" Y", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
***.replace What:="Z", Replacement:=" Z", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
End Sub

真正全自動的宏，不是手動錄制的喲，代碼如下：
Sub rplc() '分列A列單詞
On Error Resume Next
Dim CLen As Integer 'length of whole string
Dim cAsc As Integer 'ASC of per character
Dim myStr As String 'total string original
Dim NewC As String 'per character
Dim temStr As String 'tem string
Dim i As Integer 'for loop
Dim m As Integer
Dim Rloop As Integer
Rloop = [a65536].End(xlUp).Row
Application.ScreenUpdating = False
' start loop
For m = 1 To Rloop
Cells(m, 1).Activate
myStr = ActiveCell.Value
CLen = Len(myStr)
For i = 2 To CLen * 2
NewC = Mid(myStr, i, 1)
cAsc = Asc(NewC)
If cAsc >= 65 And cAsc <= 90 Then
temStr = Left(myStr, i - 1) & " " & Right(myStr, CLen - i + 1)
myStr = temStr
CLen = Len(myStr)
i = i + 1
Debug.Print myStr
End If
Next i
ActiveCell.Offset(0, 1).Value = myStr
Next m
Application.ScreenUpdating = True
End Sub

B1=REPLACE(A1,5,," ")
你提供的數據太少，只能這樣理解。