求大佬看下A为固定，B,C多个数据用,隔开对应，B,C分成单独的数据行，B,C分开后A顺序行跟随，求大佬们帮忙。
链接：百度网盘
提取码：1234

求大佬帮忙

a序号需要单独放一列还是和分开后的数据放在一个单元格

Option Explicit
Sub abc()
　Dim a, i, j, m, t(3)
　With Sheets("测试数据")
　　a = .[a1].CurrentRegion.Offset(1).Resize(, 3).Value
　　ReDim b(1 To UBound(a) * 5, 1 To 3)
　　For i = 1 To UBound(a)
　　　For j = 2 To 3
　　　　t(j) = Split(a(i, j), ",")
　　　Next
　　　For j = 0 To UBound(t(2))
　　　　m = m + 1
　　　　b(m, 1) = a(i, 1): b(m, 2) = t(2)(j):: b(m, 3) = t(3)(j)
　　　Next
　　Next
　　.[e2].Resize(m, 3) = b
　End With
End Sub

你要的是这个效果吧

加我QQ，199093596

排序与你结果中的不同，但应该是你想要的。
=DROP(REDUCE("",B2:B818,LAMBDA(x,y,VSTACK(x,IFNA(HSTACK(OFFSET(y,,-1),TEXTSPLIT(y,,","),TEXTSPLIT(OFFSET(y,,1),,",")),OFFSET(y,,-1))))),1)