[已解决]根据逗号分隔的内容进行分行（c列），并保持其它字段不变

lilac001

急求帮助解决根据逗号分隔的内容进行分行（表中C列），并保持其它字段不变的问题（最少到p列）

最佳答案

月排行榜 / 总排行榜

gufengaoyue

2015-9-9 14:31

补个附件

跳转到最佳答案楼层

gufengaoyue

1. Sub XXX()
   
2. On Error Resume Next
   
3. Dim arr, brr, Sht As Worksheet
   
4. arr = Sheet1.UsedRange
   
5. ReDim brr(1 To 4 ^ 8, 1 To UBound(arr, 2))
   
6. For x = 1 To UBound(arr, 2)
   
7.      brr(1, x) = arr(1, x)
   
8. Next
   
9. b = 1
   
10. For a = 2 To UBound(arr)
    
11.      b = b + Val(arr(a, 4))
    
12.      For x = b - Val(arr(a, 4)) + 1 To b
    
13.           For bb = 1 To UBound(brr, 2)
    
14.                brr(x, bb) = arr(a, bb)
    
15.           Next
    
16.      Next
    
17.      srr = Split(arr(a, 3), ",")
    
18.      For s = 0 To UBound(srr)
    
19.           brr(b - Val(arr(a, 4)) + 1 + s, 3) = srr(s)
    
20.      Next
    
21. Next
    
22. Err.clear:Set Sht = Sheets("结果")
    
23. If Err.Number <> 0 Then
    
24.      Sheets.Add.Name = "结果"
    
25.      Set Sht = Sheets("结果")
    
26. End If
    
27. Sht.Cells.ClearContents
    
28. Sht.[a1].Resize(b, UBound(arr, 2)) = brr
    
29. End Sub
    

复制代码

gufengaoyue

补个附件

lilac001

gufengaoyue 发表于 2015-9-9 14:31
补个附件

谢谢大神!