1.在“视图”——“工具栏”——Visual Basic——在控件工具箱上向Excel中添加一个按钮，不要修改按钮的名称，使其默认为CommandButton1
2.在“工具”——“宏”——Visual Basic编辑器——在编辑界面下拷入以下代码

Private Sub CommandButton1_Click()
Dim xTo, i, xL As Integer
xTo = InputBox("Which row you want to separate:")
For i = 1 To xTo
xL = Len(Range("A" & i).Value)
    For J = 1 To xL
    If Int(Asc(Mid(Range("A" & i).Value, J, 1))) < 0 Then
    Range("B" & i) = Left(Range("A" & i).Value, J - 1)
    Range("C" & i) = Right(Range("A" & i).Value, xL - J + 1)
    Exit For
    End If
    Next
Next
End Sub
3.按下按钮，弹出一个小对话框，输入你希望分离到的行数，如10000
4.程序运行，就OK了。
5.用完后删除按钮就可以了。