Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2318|回复: 3

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

[复制链接]
发表于 2015-9-9 13:50 | 显示全部楼层 |阅读模式
急求帮助解决根据逗号分隔的内容进行分行(表中C列),并保持其它字段不变的问题(最少到p列)
最佳答案
2015-9-9 14:31
补个附件

求助 (2).zip

11.18 KB, 下载次数: 9

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2015-9-9 14:28 | 显示全部楼层
  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
复制代码
回复

使用道具 举报

发表于 2015-9-9 14:31 | 显示全部楼层    本楼为最佳答案   
补个附件

求助 (2) (1).zip

20.43 KB, 下载次数: 14

评分

参与人数 1 +1 收起 理由
lilac001 + 1 赞一个!

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2015-9-9 14:47 | 显示全部楼层
gufengaoyue 发表于 2015-9-9 14:31
补个附件

谢谢大神!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-6-16 01:37 , Processed in 0.384520 second(s), 15 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表