Office中国论坛/Access中国论坛

标题: 想破小脑袋也没想出来的问题！各位兄弟姐妹过来帮帮忙咯 [打印本页]
作者: wanghaijuan@    时间: 2011-11-22 08:55
标题: 想破小脑袋也没想出来的问题！各位兄弟姐妹过来帮帮忙咯
[attach]47411[/attach][attach]47411[/attach][attach]47411[/attach]     A                                          B                                  C                           D  

1   物料编码                                  物料名称                 订单编号        数量

2   R-18-122000-01-A2          底板/GBB-55B/B2        4500013005         50
                                                                                   4500013477         50
                                                                                   4500013484         50
                                                                                   4500013491        100
                                                                                   4500014307         20
                                                                                   4500014527         80
                                                                                   4500014527         36
3   R-18-047092-02-A4     180系列机底/GX-100A/C1  4500012990        58
                                                                                    4500014526       62




后面的订单编号 跟数量都在一个单元格里面。 有几千行呢！怎样把后订单编号 拆分到出来咯。

作者: pureshadow    时间: 2011-11-22 11:12

  2. Sub sample()
  3. On Error Resume Next
  4. Dim MyRow As Long, i As Long
  5. Dim MySp
  6. For MyRow = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
  7.     MySp = Cells(MyRow, 8)
  8.     MySp = Split(MySp, Chr(10))
  9.     Cells(MyRow + 1, 8).Resize(UBound(MySp) - 1, 1).EntireRow.Insert
  10.     Cells(MyRow, 8).Resize(UBound(MySp), 1) = MySp
  11.     MySp = Cells(MyRow, 9)
  12.     MySp = Split(MySp, Chr(10))
  13.     Cells(MyRow, 9).Resize(UBound(MySp), 1) = MySp
  14.     For i = 1 To UBound(MySp) - 1
  15.         MySp = Range(Cells(MyRow, 1), Cells(MyRow, 7))
  16.         Range(Cells(MyRow + i, 1), Cells(MyRow + i, 7)) = MySp
  17.     Next
  18. Next
  19. End Sub
复制代码
启用宏后点击click me 的按钮
作者: wanghaijuan@    时间: 2011-11-22 13:55
好多星星。。。。。。。。能不能给你的联系方式给我啊？QQ或电话什么的 ？
作者: wanghaijuan@    时间: 2011-11-22 13:55
pureshadow 发表于 2011-11-22 11:12
启用宏后点击click me 的按钮

好多星星。。。。。。。。能不能给你的联系方式给我啊？QQ或电话什么的 ？
作者: wanghaijuan@    时间: 2011-11-22 14:00
pureshadow 发表于 2011-11-22 11:12
启用宏后点击click me 的按钮

我的 QQ 445105327
作者: roych    时间: 2011-11-23 21:57
pureshadow 发表于 2011-11-22 11:12
启用宏后点击click me 的按钮

小妖姐姐也写代码了~~难得噢。换了我可能会先考虑ADO试试。
作者: pureshadow    时间: 2011-11-23 22:21
我这个V白能写出这样的就不容易了，没半句表扬的话。。。。{:soso_e149:}
作者: wanghaijuan@    时间: 2011-11-24 18:16
写的有点深奥。。木有看懂，怪自己太白菜了。
给有深度的妖热烈鼓掌。。。欢呼{:soso_e142:}
作者: yehf    时间: 2011-11-25 13:35
妖版也告别V白啦,祝贺一下



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3