求助提取字符串数据

orc250

如图显示我想提取字符串里面每个“&”前的内容，“&”也可以换成别的符号，不限制。我要怎么提取呢，提取第一个我可以，但是提取后面的2个就不会了，求大神赐教~~~~

魂断蓝桥

按&分列，删除第三列就行了。

orc250

魂断蓝桥 发表于 2018-8-30 10:27
按&分列，删除第三列就行了。

不行手动去做哦，我想通过公式或者VBA去试试

zhangzhang

split.......

魂断蓝桥

orc250 发表于 2018-8-30 10:30
不行手动去做哦，我想通过公式或者VBA去试试

Dim tmp, i%, j%
For i = 2 To 2
    tmp = Split(Cells(i, 1), "&")
    Cells(i, 2) = tmp(0)
    Cells(i, 3) = tmp(1)
    Cells(i, 4) = tmp(3)
Next
End Sub

719404338

1. Sub t()
   
2. Dim str$
   
3. str = [a2]
   
4. [b3] = Split(str, "&")(0)
   
5. [c3] = Split(Split(str, "&")(1), "&")(0)
   
6. [d3] = Split(str, "&")(3)
   
7. End Sub
   

复制代码

orc250

魂断蓝桥 发表于 2018-8-30 10:35
Dim tmp, i%, j%
For i = 2 To 2
    tmp = Split(Cells(i, 1), "&")

我有上传附件，帮忙修改一下，我有些小白，谢谢

kankan1030

Sub aa()
r = [a65536].End(3).Row
ReDim brr(1 To r, 1 To 3)
For i = 2 To r
   st = VBA.Split(Cells(i, 1), "&")
   brr(i - 1, 1) = st(0)
   brr(i - 1, 2) = st(1)
   brr(i - 1, 3) = st(2)
Next
[b2].Resize(UBound(brr), 3) = brr
End Sub