想破小脑袋也没想出来的问题！各位兄弟姐妹过来帮帮忙咯

wanghaijuan@

     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

1. 
   
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@

好多星星。。。。。。。。能不能给你的联系方式给我啊？QQ或电话什么的 ？

wanghaijuan@

pureshadow 发表于 2011-11-22 11:12
启用宏后点击click me 的按钮

好多星星。。。。。。。。能不能给你的联系方式给我啊？QQ或电话什么的 ？

wanghaijuan@

pureshadow 发表于 2011-11-22 11:12
启用宏后点击click me 的按钮

我的 QQ 445105327

roych

pureshadow 发表于 2011-11-22 11:12
启用宏后点击click me 的按钮

小妖姐姐也写代码了~~难得噢。换了我可能会先考虑ADO试试。

pureshadow

我这个V白能写出这样的就不容易了，没半句表扬的话。。。。{:soso_e149:}

wanghaijuan@

写的有点深奥。。木有看懂，怪自己太白菜了。
给有深度的妖热烈鼓掌。。。欢呼{:soso_e142:}

yehf

妖版也告别V白啦,祝贺一下