求助大神帮帮忙,数据分裂转换

豪情雲天

ykcbf1100 发表于 2024-2-13 21:47
用正则，附件供参考。。。

感谢大佬,我又加了几行数据就不能执行了,麻烦在帮忙看看

豪情雲天

今铭昔 发表于 2024-2-14 07:34

感谢,辛苦了

豪情雲天

lizhipei78 发表于 2024-2-14 21:01
如果A列都是这么规则的话，不用到正则也可以，非常简单

这个颜色没识别出来

ykcbf1100

豪情雲天 发表于 2024-2-14 22:53
感谢大佬,我又加了几行数据就不能执行了,麻烦在帮忙看看

明天再看一下。

shiruiqiang

ykcbf1100 发表于 2024-2-14 23:42
明天再看一下。

lizhipei78

豪情雲天 发表于 2024-2-14 22:57
这个颜色没识别出来

我重新上传了，你再下载看看

lizhipei78

gwjkkkkk 发表于 2024-2-14 21:35
草爷说得不错，应该考虑通用性，如果其中有天蓝色呢，这样就不行了、

感谢大佬指导，正则我看别人的代码能懂得，我自己写还不会，特别是正则代表式

ykcbf1100

豪情雲天 发表于 2024-2-14 22:53
感谢大佬,我又加了几行数据就不能执行了,麻烦在帮忙看看

改好了，主要是字串结构有变化，开始数字部分加入了字母，正则表达式需要修改，另外原代码也有点小问题。

ykcbf1100

代码供参考。。。

1. Sub ykcbf()   '//2024.2.15
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     Set reg = CreateObject("VBScript.RegExp")
   
4.     r = Me.Cells(Rows.Count, 1).End(3).Row
   
5.     arr = Me.Range("a1:b" & r)
   
6.     ReDim brr(1 To 1000, 1 To 20)
   
7.     With reg
   
8.         .Global = True
   
9.         .Pattern = "([a-zA-Z]+\d+)|(\d+)|([\u4e00-\u9fa5]+)"
   
10.     End With
    
11.     n = 2
    
12.     For i = 2 To UBound(arr)
    
13.         st = arr(i, 1)
    
14.         Set mh = reg.Execute(st)
    
15.         s1 = mh(0).Value & "|" & mh(1).Value
    
16.         If Not d.exists(s1) Then
    
17.             m = m + 1
    
18.             d(s1) = m
    
19.             brr(m, 1) = mh(0).Value
    
20.             brr(m, 2) = mh(1).Value
    
21.         End If
    
22.         s2 = mh(2).Value
    
23.         If Not d.exists(s2) Then
    
24.             n = n + 1
    
25.             d(s2) = n
    
26.         End If
    
27.         r = d(s1): c = d(s2)
    
28.         brr(r, c) = arr(i, 2)
    
29.     Next
    
30.     With Sheets("Sheet2")
    
31.         .UsedRange.Offset(2).Clear
    
32.         .Columns(1).NumberFormatLocal = "@"
    
33.         .[a3].Resize(m, n) = brr
    
34.         .[a3].Resize(m, n).Borders.LineStyle = 1
    
35.     End With
    
36.     Set d = Nothing
    
37.     MsgBox "OK!"
    
38. End Sub
    

复制代码

ykcbf1100

shiruiqiang 发表于 2024-2-15 08:04

二个问题：1、数组写入时的c应该是n；
                2、字串结构发生了变化，导致正则表达式需要修改。
新代码已经上传。