求助：VBA按空格分列

czr0373

把图示数据，分列为这种：

1	2764.8	2769.6
2	2779.5	2787.7
3	2799.4	2802.8
4	2804.2	2807.7
5	2835.1	2839.3
6	2856.4	2857.9
7	2858.3	2860.4
8	2862	2865.9
9	2865.9	2867.2
10	2867.2	2875.5

jiminyanyan

上个附件。。。。。

czr0373

jiminyanyan 发表于 2018-6-6 22:00
上个附件。。。。。

附件已上传，谢谢您

一把小刀闯天下

Option Explicit

Sub test()
  Dim i, j, t, n, arr
  arr = [a1].CurrentRegion
  ReDim brr(1 To UBound(arr, 1) - 1, 1 To 6)
  For i = 2 To UBound(arr, 1)
    t = Split(arr(i, 1), Space(1)): n = 0
    For j = 0 To UBound(t)
      If Len(t(j)) > 0 Then
        n = n + 1
        If IsNumeric(t(j)) Then
          brr(i - 1, n) = Val(t(j))
        Else
          brr(i - 1, n) = t(j)
        End If
      End If
  Next j, i
  [c2].Resize(UBound(brr, 1), UBound(brr, 2)) = brr
End Sub

czr0373

一把小刀闯天下 发表于 2018-6-6 22:27
Option Explicit

Sub test()

请教一哈，为什么第一行没分开？

一把小刀闯天下

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

'会错位，因为空格数不定，不然定空格就不会错位

Option Explicit

Sub test()
  Dim i, j, t, n, arr
  arr = [a1].CurrentRegion
  ReDim brr(1 To UBound(arr, 1), 1 To 10)
  For i = 1 To UBound(arr, 1)
    t = Split(arr(i, 1), Space(1)): n = 0
    For j = 0 To UBound(t)
      If Len(t(j)) > 0 Then
        n = n + 1
        If IsNumeric(t(j)) Then
          brr(i, n) = Val(t(j))
        Else
          brr(i, n) = t(j)
        End If
      End If
  Next j, i
  [c1].Resize(UBound(brr, 1), UBound(brr, 2)) = brr
End Sub

czr0373

一把小刀闯天下 发表于 2018-6-6 22:41
'会错位，因为空格数不定，不然定空格就不会错位

Option Explicit

谢谢，学习啦

周总

1。这个不需要VBA来做吧，[单元格]==>[分列]==>选按[空格]分列就行了啊，另外非要VBA，可以录制宏，自己就能搞定

czr0373

周总 发表于 2018-6-6 22:56
1。这个不需要VBA来做吧，[单元格]==>[分列]==>选按[空格]分列就行了啊，另外非要VBA，可以录制宏，自己就 ...

我在组装，

周总

czr0373 发表于 2018-6-6 22:58
我在组装，

嗯，加油，大家互相学习进步啊