1.  取剪贴板数据，测试多空格，导入文本

By:lipton
Sub test()
 
    Dim arr
    Dim mydata As New DataObject
    Dim s As String
   
    mydata.GetFromClipboard '取剪贴板数据
    s = mydata.GetText
    Do Until InStr(s, "  ") = 0 '测试是否有两个以上空格
        s = VBA.Replace(s, "  ", " ") '替换成一个空格
    Loop
    arr = VBA.Split(s, " ") '用空格分成数组
    Sheet4.Cells(2, 1).Resize(1, UBound(arr) + 1) = arr '写进工作表
   
End Sub