怎么把都在一列的数据按条件拆分

Peny2020

请问我这种所有数据都在列里，从特定字符“SO”开始到"TTL"结束为一组数据，因中间的数据是不固定的。怎么最后变成一个多维表格？谢谢各位了。

一条小笨笨

试试, 数据都是这么规则的话, 应该是没问题的

cidanji

Book1.zip (17.73 KB, 下载次数: 3)

2024-1-19 17:47 上传

点击文件名下载附件

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.1.19
   
2.     Dim zrr(1 To 1000), brr(1 To 10000, 1 To 10)
   
3.     With Sheets(1)
   
4.         r = .Cells(.Rows.Count, "a").End(xlUp).Row
   
5.         arr = .Range("a1:a" & r)
   
6.         On Error Resume Next
   
7.         For i = 2 To UBound(arr)
   
8.             If InStr(arr(i, 1), "S/O") Then
   
9.                 n = n + 1
   
10.                 zrr(n) = Array(i, i)
    
11.             End If
    
12.             If InStr(arr(i, 1), "TTL") Then
    
13.                 zrr(n)(1) = i - 1
    
14.             End If
    
15.         Next
    
16.         For x = 1 To n
    
17.             st = Split(arr(zrr(x)(0), 1), ": ")(2)
    
18.             For i = zrr(x)(0) + 1 To zrr(x)(1) Step 3
    
19.                 b = Split(arr(i + 2, 1))
    
20.                 m = m + 1
    
21.                 brr(m, 1) = st
    
22.                 brr(m, 2) = Split(arr(i, 1), ".")(3)
    
23.                 brr(m, 3) = arr(i + 1, 1)
    
24.                 brr(m, 4) = b(0)
    
25.                 brr(m, 5) = b(1)
    
26.                 brr(m, 6) = b(3)
    
27.                 brr(m, 7) = b(2)
    
28.             Next
    
29.         Next
    
30.         .[g3:m1000].Clear
    
31.         With .[g3].Resize(m, 7)
    
32.             .Value = brr
    
33.             .Borders.LineStyle = 1
    
34.             .HorizontalAlignment = xlCenter
    
35.             .VerticalAlignment = xlCenter
    
36.         End With
    
37.     End With
    
38.     MsgBox "OK！"
    
39. End Sub
    

复制代码

ykcbf1100

附件供参考。。。

x-xx-xx

so po                 

yynrzwh

Book1.rar (19.18 KB, 下载次数: 2)

2024-1-19 22:27 上传

点击文件名下载附件