ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
高效办公必会的Office实战技巧 永久免费,网表让Excel秒变数据库 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! 国内首部Excel函数公式学习大典 职场充电黑科技, Office微视频教程 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 突破Excel限制,用活字格提高效率 12门Excel免费公开课任你学
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 406|回复: 21

[求助] 各位大神帮助小女子解决这个问题吧,头大了

[复制链接]

TA的精华主题

TA的得分主题

发表于 2017-12-6 21:35 | 显示全部楼层 |阅读模式
本帖最后由 mekemeke 于 2017-12-8 08:22 编辑

小女子在这里求教了,麻烦各位大神能帮一帮啦~~实在是为了这个表格头大哇哇~~~有两张表格,如下图这样的:

QQ图片20171208081845.png

要把第一个表格里面的数据转换成第二个表格这样的
第一个表格里面,第二列为托盘数量,如果有一行就代表有一个托盘,有三行就代表有三个托盘,最大可能有20行;里面的数据代表长宽高;@后面的数字代表有几件货物
第二个表格里面,第二三四列代表高宽长

结合实际发觉昨天表达的有错误,谁让偶笨呢。。。
万分感谢呢~~谢谢各位大神呢~~

example.zip

8 KB, 下载次数: 5

TA的精华主题

TA的得分主题

发表于 2017-12-6 21:44 | 显示全部楼层
这个公式做不出来了,去VBA版块试试吧。

TA的精华主题

TA的得分主题

发表于 2017-12-7 09:55 | 显示全部楼层
  1. Sub test()
  2.   Dim r%, i%
  3.   Dim arr, brr
  4.   Dim reg As New RegExp
  5.   With reg
  6.     .Global = True
  7.     .Pattern = "[.\d]+"
  8.     Set mh = .Execute(Range("b1"))
  9.   End With
  10.   ReDim brr(1 To 1000, 1 To 4)
  11.   m = 0
  12.   With Worksheets("sheet1")
  13.     r = .Cells(.Rows.Count, 2).End(xlUp).Row
  14.     For i = 1 To r
  15.       If .Cells(i, 1).MergeArea.Cells(1, 1).Address = .Cells(i, 1).Address Then
  16.         hs = .Cells(i, 1).MergeArea.Rows.Count
  17.         m = m + 1
  18.         brr(m, 1) = .Cells(i, 1)
  19.         n = 0
  20.         For j = i To i + hs - 1
  21.           Set mh = reg.Execute(.Cells(j, 2).Value)
  22.           If mh.Count = 4 Then
  23.             For k = 1 To Val(mh(3))
  24.               n = n + 1
  25.               brr(m, 2) = brr(m, 2) & "," & "H" & n & ":" & mh(2)
  26.               brr(m, 3) = brr(m, 3) & "," & "W" & n & ":" & mh(1)
  27.               brr(m, 4) = brr(m, 4) & "," & "L" & n & ":" & mh(0)
  28.             Next
  29.           End If
  30.         Next
  31.       End If
  32.     Next
  33.     For i = 1 To m
  34.       For j = 2 To 4
  35.         brr(i, j) = Mid(brr(i, j), 2)
  36.       Next
  37.     Next
  38.   End With
  39.   With Worksheets("sheet3")
  40.     .Range("a1").Resize(UBound(brr), UBound(brr, 2)) = brr
  41.   End With
  42. End Sub
复制代码

评分

参与人数 1鲜花 +2 收起 理由
zpy2 + 2 优秀作品

查看全部评分

TA的精华主题

TA的得分主题

发表于 2017-12-7 09:55 | 显示全部楼层
详见附件。

example.rar

18.44 KB, 下载次数: 23

评分

参与人数 1鲜花 +2 收起 理由
乐乐2006201505 + 2 优秀作品

查看全部评分

TA的精华主题

TA的得分主题

发表于 2017-12-7 10:27 | 显示全部楼层
做好了,见附件。。。

2017-12-7.7z

16.66 KB, 下载次数: 15

TA的精华主题

TA的得分主题

发表于 2017-12-7 10:41 | 显示全部楼层
  1. Sub 按钮1_Click()
  2. Dim ar, cc&
  3. ReDim ar(1 To 4, 1 To 1)
  4. cc = 1
  5. For i = 1 To 4
  6. Dim rng As Range, stra$, strb$, strc$, c&
  7. stra = ""
  8. strb = ""
  9. strc = ""
  10. Set rng = Range("A" & i).MergeArea
  11. ReDim Preserve ar(1 To 4, 1 To cc)
  12. ar(1, cc) = Range("A" & i).Text
  13. k = 1
  14. c = 0
  15. For j = i To i + rng.Count - 1
  16.    Do While k <= c + Val(Split(Split(Range("B" & j).Text, "@")(1), "(")(0))
  17. If stra = "" Then
  18. stra = "H" & k & ":" & Split(Split(Range("B" & j).Text, "@")(0), "×")(2)
  19. strb = "W" & k & ":" & Split(Split(Range("B" & j).Text, "@")(0), "×")(1)
  20. strc = "L" & k & ":" & Split(Split(Range("B" & j).Text, "@")(0), "×")(0)
  21. Else
  22. stra = stra & "," & "H" & k & ":" & Split(Split(Range("B" & j).Text, "@")(0), "×")(2)
  23. strb = strb & "," & "W" & k & ":" & Split(Split(Range("B" & j).Text, "@")(0), "×")(1)
  24. strc = strc & "," & "L" & k & ":" & Split(Split(Range("B" & j).Text, "@")(0), "×")(0)
  25. End If
  26.    k = k + 1
  27.    Loop
  28.    c = k - 1
  29. Next j
  30. ar(2, cc) = stra
  31. ar(3, cc) = strb
  32. ar(4, cc) = strc
  33. i = i + rng.Count - 1
  34. cc = cc + 1
  35. Next i
  36. Sheet1.Range("A" & 9).Resize(UBound(ar, 2), UBound(ar)) = Application.Transpose(ar)
  37. End Sub
复制代码

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-12-7 11:16 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-12-7 11:35 | 显示全部楼层

大神哥,有个地方我弄错了,就是第一个表格里面的第二列,不是三行,是这三个数据都在一个单元格里面的,能帮我修改一下吗?谢谢谢谢!

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-12-7 14:48 | 显示全部楼层

大神哥,有个地方我弄错了,就是第一个表格里面的第二列,不是三行,是这三个数据都在一个单元格里面的,能帮我修改一下吗?谢谢谢谢!

TA的精华主题

TA的得分主题

发表于 2017-12-7 15:14 | 显示全部楼层
mekemeke 发表于 2017-12-7 14:48
大神哥,有个地方我弄错了,就是第一个表格里面的第二列,不是三行,是这三个数据都在一个单元格里面的, ...

没问题,用split分割换行符。。。。。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

关注官方微信,每天坐享新鲜教程

手机版|关于我们|联系我们|ExcelHome   

GMT+8, 2017-12-17 10:22 , Processed in 3.066492 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2017 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

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