求助：VBA按空格分列

duquancai

czr0373 发表于 2018-6-6 22:37
请教一哈，为什么第一行没分开？

1. Sub main()
   
2.     Dim js As Object, s, i&, r&, j$
   
3.     Set js = CreateObject("msscriptcontrol.scriptcontrol")
   
4.     js.Language = "JavaScript": js.AddObject "rg", Sheet2.Range("a1")
   
5.     r = Sheet1.Cells(Sheet1.Rows.Count, 1).End(3).Row
   
6.     s = Sheet1.Range("a1:b" & r)
   
7.     Sheet2.Activate: Sheet2.Cells.Clear
   
8.     For i = 1 To r
   
9.         j = "function f(s){var a=s.split(/\x20+/);return function(){return(a)}};a=f('" & s(i, 1) & "');for(i=0;i<a().length;i++){rg(" & i & ",i+1)=a()[i]};"
   
10.         js.eval (j): js.eval ("a=null")
    
11.     Next
    
12. End Sub

复制代码