拆分分列

dgzwz · 发表于 2024-1-30 11:25

本帖最后由 dgzwz 于 2024-1-30 11:37 编辑

第一行，拆分成下面格式，或者只提取里面的数字，数字不只这几个，有时50几个

dragonthree · 发表于 2024-1-30 11:28

以空格拆分？

dgzwz · 发表于 2024-1-30 11:32

dragonthree 发表于 2024-1-30 11:28
以空格拆分？

只要里面的内容，主要是数字，因为数字要汇总

dragonthree · 发表于 2024-1-30 11:36

Sub kj()
Dim arr, brr
Application.ScreenUpdating = False
Set Sh = ActiveSheet
Set Sh1 = Sheet1
With Sh
arr = .Range("a1:b" & .Cells(.Rows.Count, 1).End(3).Row)
End With
ReDim brr(1 To UBound(arr), 1 To 100)
For i = 1 To UBound(arr)
m = 0
s = Split(arr(i, 1), " ")
For j = 0 To UBound(s)
If s(j) <> "" Then
m = m + 1
brr(i, m) = s(j)
End If
Next
If m > n Then
n = m
End If
Next
With Sh1
.Cells.ClearContents
.Range("a1").Resize(UBound(arr), n) = brr
End With
Application.ScreenUpdating = True
MsgBox "OK!"
End Sub

复制代码

ykcbf1100 · 发表于 2024-1-30 11:52

附件供参考。。。

ykcbf1100 · 发表于 2024-1-30 11:52

参与一下，代码以附件为准。

Sub ykcbf() '//2024.1.30
Me.UsedRange.Offset(1) = ""
b = Split(WorksheetFunction.Trim(Me.[a1]))
For i = 0 To UBound(b)
m = m + 1
Me.Cells(3, m) = b(i)
Next
For i = 5 To UBound(b)
n = n + 1
Me.Cells(5, n) = b(i)
Next
End Sub

复制代码

sj15627581616 · 发表于 2024-1-30 12:51

仅供参考

saghj · 发表于 2024-1-30 14:38

本帖最后由 saghj 于 2024-1-30 14:40 编辑

1706596646(1).png

正在学习正则，试着做一下

cjc209 · 发表于 2024-1-30 15:37

以a1为准
function test(){
Range("a1").Value2.split(/[ ]+/g).slice(5).toRange_Z("a5");
}

gwjkkkkk · 发表于 2024-1-30 18:33

Option Explicit
Sub TEST1()
Dim ar, br, i&, r&

ar = Split([A1].Value)
ReDim br(1 To 10 ^ 3)
For i = 0 To UBound(ar)
      If CBool(Len(ar(i))) And IsNumeric(ar(i)) Then
         r = r + 1
         ReDim Preserve br(1 To r)
         br(r) = ar(i)
      End If
Next i

[A6].Resize(, UBound(br)) = br
Beep
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 拆分分列

评分