1个单元格文字提取为3个单元格，文字长短不一

dailunchuan

027-漫步 发表于 2017-7-22 13:55
谢谢你的帮助，你的公式比楼上的简洁，之后我用在其他的文字上自己也能修改用，总共有1千多条，如果到时 ...

可以，随时都行

tcdatongye

1. Sub 分列()
   
2. Set reg = CreateObject("vbscript.regexp")
   
3. With reg
   
4.   .IgnoreCase = True
   
5.   .Pattern = "[一-龡]+（?[一-龡]*胶[）+]?"
   
6.   For i = 2 To 74
   
7.     Set mg = .Execute(Sheets(1).Cells(i, 1))
   
8.     If mg.Count > 0 Then
   
9.     Sheets(1).Cells(i, 3) = mg(0)
   
10.     arr = Split(Sheets(1).Cells(i, 1), mg(0))
    
11.     Sheets(1).Cells(i, 2) = arr(0)
    
12.     Sheets(1).Cells(i, 4) = arr(1)
    
13.     End If
    
14.   Next i
    
15. End With
    
16. End Sub
    

复制代码

戴眼镜的泥水匠

同行，我是做低纸的。

戴眼镜的泥水匠

朱荣兴 发表于 2017-7-22 09:57
再作调整，以此为准，完全准确无误

高手，厉害。