求大大帮我看看这个该怎么修改才行呢

walle616

Sub ujjj()

Dim s As Integer, z As Integer, w As Integer, u As Integer

   For s = 1 To 5000 Step 1

     If Workbooks("原版模板").Sheet2.Range("A" & s) Like "客户订单：*" Then

       For w = 8 To 28 Step 1
         u = s + w
     If Workbooks("原版模板").Sheet2.Range("A" & u) <> "合计：" Then
         Workbooks("原版模板").Sheet2.Range("A" & s).Copy Destination:=Workbooks("原版模板").Sheet3.Range("A65536").End(xlUp).Offset(1, 0)
         Workbooks("原版模板").Sheet2.Range("A" & u).Resize(1, 12).Copy Destination:=Workbooks("原版模板").Sheet3.Range("C65536").End(xlUp).Offset(1, -1).Resize(1, 12)

        ElseIf Workbooks("原版模板").Sheet2.Range("A" & u) = "合计：" Then

        Exit For

       End If

      Next

   End If

  Next

End Sub

蓝桥玄霜

haha表里做个效果看看。

walle616

蓝桥玄霜 发表于 2020-11-28 11:41
haha表里做个效果看看。

需要把sheet3里第一行的目录信息从sheet2中提取出来就行，能麻烦帮我看看问题出在哪嘛，谢谢啦

walle616

蓝桥玄霜 发表于 2020-11-28 11:41
haha表里做个效果看看。

那我重新上传一下吧
这个是订单中的内容，一个订单里有多行产品，可能我的模板没做好，没有体现出多行产品都要提取出来的意思。

walle616

蓝桥玄霜 发表于 2020-11-28 11:41
haha表里做个效果看看。

老师，这个我重新把hehe表里要提取到haha表里的标黄了，可是怎么替换附件呢

walle616

重新上传了附件。麻烦大大了

walle616

后面重新上传附件了

walle616

调整后重新上传，麻烦大大帮忙看看好吗

蓝桥玄霜

客户经理的位置要上下一致。其余的按位置赋值即可。

walle616

蓝桥玄霜 发表于 2020-11-29 09:54
客户经理的位置要上下一致。其余的按位置赋值即可。

谢谢大大