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

用宏來(lái)弄吧，新鍵一個(gè)宏，輸入以下代碼來(lái)執(zhí)行即可。

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

'
***.replace What:="A", Replacement:=" A", LookAt:=xlPart, SearchOrder _
:=xlByRo360問(wèn)答ws, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False
***.replace What:="B", Replacem又費(fèi)無(wú)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, 課達(dá)倒重功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地植皮錯(cuò)證設(shè)鐘ue, SearchFormat:=False, ReplaceFormat:=False
***.replace What:="I", Replacement:=" I", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, 銷(xiāo)護(hù)點(diǎn)緊頻臉居時(shí)歷料龍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

真正全自動(dòng)的宏，不是手動(dòng)錄制的喲，代碼如下：
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,," ")
你提供的數(shù)據(jù)太少，只能這樣理解。