请教大神们，如何提取这样的数据？

hidwos

把B列的商品规格提取成商品和数量，但商品规格列有些只有一个商品，有些有多个商品；有些多个商品间有“+”分隔，有些多个商品间只有代表数量的数字进行了分隔，怎么才能提取？拜托各位大神了

原始数据

希望的结果

test.rar (10.21 KB, 下载次数: 24)

2019-9-18 09:41 上传

点击文件名下载附件

hidwos

沉得太快了，我没有思路，VBA也没有思路。

aleaflin

会VBA就好办了
1、数据规范化：全文替换，把“杯装”“杯”“+”都替换为""
2、逐行遍历，每行提取字符串后逐个字符遍历，用like "[0-9]"获取数字位置，达成拆分字符串存入数组的效果
3、提取数组内容放到指定位置

micch

有新函数没？
VBA直接遍历就可以啊

libo5563

power query 拆分工具的使用，数据有增加，在结果区刷新

hidwos

aleaflin 发表于 2019-9-18 10:01
会VBA就好办了
1、数据规范化：全文替换，把“杯装”“杯”“+”都替换为""
2、逐行遍历，每行提取字符串 ...

第二条不会

hidwos

libo5563 发表于 2019-9-18 10:04
power query 拆分工具的使用，数据有增加，在结果区刷新

老师，能详细地教一下嘛？POWER QUERY是什么？

libo5563

数据-显示查询-双击 查询里的表1

micch

1. Sub test()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = [a1].CurrentRegion
   
4.     Dim brr(1 To 99, 1 To 4)
   
5.     For i = 2 To UBound(arr)
   
6.         x = Replace(Replace(Replace(arr(i, 2), "杯装", "杯"), "杯", ""), "+", "")
   
7. 1
   
8.         For k = 1 To Len(x)
   
9.             If Val(Mid(x, k, 9)) Then
   
10.                 n = n + 1
    
11.                 brr(n, 1) = n
    
12.                 brr(n, 2) = Left(x, k - 1)
    
13.                 brr(n, 3) = Val(Mid(x, k, 9))
    
14.                 brr(n, 4) = arr(i, 3)
    
15.                 x = Mid(x, k + Len(brr(n, 3)), 99)
    
16.                 GoTo 1
    
17.             End If
    
18.         Next k
    
19.     Next i
    
20.     [e2].Resize(n, 4) = brr
    
21. End Sub
    

复制代码

函数弄的太闹心了，还是代码吧

jivy1212

万一有单元格  番茄鸡蛋面6杯装藤椒2酸菜2  我该理解为  “番茄鸡蛋面6杯装+藤椒2+酸菜2”还是“番茄鸡蛋面6+杯装藤椒2+酸菜2”呢？
函数硬写二个列吧
结果G2=

1. =IFNA(-LOOKUP(,-RIGHT(INDEX(LEFT(SUBSTITUTE(PHONETIC($B$2:$B$15),"+",),MODE.MULT(ROW($1:$255)-ISERR(-(MID(SUBSTITUTE(PHONETIC($B$2:$B$15),"+",)&"x",ROW($1:$255),1)&0)))),ROW(A1)),ROW($1:$9))),"")

复制代码

辅助列D2=COUNT(0/(MMULT(LENB(MID(SUBSTITUTE(B2,"+",),ROW($1:$50)+{0,1},1)),{10;1})=21))
H2=LOOKUP(ROW(A1)-1,SUBTOTAL(9,OFFSET($D$1,,,ROW($1:$15))),$C$2:$C$15)&""