用宏來弄吧,新鍵一個宏,輸入以下代碼來執行即可。
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