数据分裂

trd1898

VBA使用正则表达式将A列按各种疾病分列，要求去除前面的序号，书写正则要注意文件中标红单元格数据

沈默00

貌似前几天处理过吧，看着眼熟

trd1898

沈默00 发表于 2023-7-1 10:23
貌似前几天处理过吧，看着眼熟

比前几天复杂

shiruiqiang

split（chr(10)，去除序列号最快

gwjkkkkk

请参考。。。

shiruiqiang

记号学习一下

DevilW

1. Sub test()
   
2.     Set reg = CreateObject("vbScript.Regexp")
   
3.     reg.Global = True
   
4.     reg.Pattern = "^\(\d+\)|\n(?!\()"
   
5.     ar = [a2:a32]
   
6.     ReDim br(1 To UBound(ar), 1 To 15)
   
7.     For i = 1 To UBound(ar)
   
8.         s = Split(reg.Replace(ar(i, 1), ""), Chr(10))
   
9.         For j = 0 To UBound(s)
   
10.             br(i, j + 1) = reg.Replace(s(j), "")
    
11.         Next
    
12.     Next
    
13.     [c2].Resize(UBound(ar), 15) = br
    
14. End Sub

复制代码

cidanji

精确去除“（数字）”，分列

trd1898

gwjkkkkk 发表于 2023-7-1 11:15
请参考。。。

跪谢大神帮助，

ykcbf1100

正则练个手