如何利用vba查找两个特定字符串间的字符，将其剪切写至其它单元格里

hrbsunlei

如何利用vba查找两个特定字符串( , )间的字符，将其剪切写至其它单元格里,也就是将附件中的B列中的每个单元格里的内容，分解至同行中的五个单元格内，如：将“4131716 , 儒曼环保（安全防护） , 防静电产品及工程、无尘室、净化设备及工程、作业保护 , 31 , 需要身份验证才能加入该群”，分解成“4131716”“儒曼环保（安全防护）”“防静电产品及工程、无尘室、净化设备及工程、作业保护 ”“31”“需要身份验证才能加入该群”等五个部分，分别写至同一行中的五个列位里去。

hrbsunlei

具体情况祥见附件

fjmxwrs

你这个问题直接用分列就解决了，为什么还要用VBA呢？
选择B列，分列，分隔符，选择逗号，确定，就分列好了。

hrbsunlei

噢，太感谢了，让你见笑我，本人是excel菜鸟，对excel不太熟。

zjdh

是啊,为啥要弃简求烦？基本操作可以解决的问题没必要用VBA.

hrpotter

你的数据还是比较乱的，不规范，如果按“,”分，不止五列的，有的是五列，有的超过五列，暂时按前二个，和后二个逗号的分开，中间的都归在一起，不然就得手工一个个分了

1. Sub test()
   
2.     Dim arr, brr, crr
   
3.     Dim i As Long, j As Long
   
4.     arr = Range("b2:b" & Range("b65536").End(xlUp).Row)
   
5.     ReDim brr(1 To UBound(arr), 1 To 5)
   
6.     For i = 1 To UBound(arr)
   
7.         crr = Split(arr(i, 1), ",")
   
8.         brr(i, 1) = crr(0)
   
9.         brr(i, 2) = crr(1)
   
10.         brr(i, 4) = crr(UBound(crr) - 1)
    
11.         brr(i, 5) = crr(UBound(crr))
    
12.         For j = 2 To UBound(crr) - 2
    
13.             brr(i, 3) = brr(i, 3) & "," & crr(j)
    
14.         Next
    
15.         brr(i, 3) = Mid(brr(i, 3), 2)
    
16.     Next
    
17.     Range("c2").Resize(UBound(brr), 5) = brr
    
18.     Range("b:g").Columns.AutoFit
    
19. End Sub

复制代码