VBA 的复制指定行，新人求助

exc-led

如图，想要把sheet2中的内容每十行复制到sheet1中红色框指定的区域，内容对应，关键是其中的“送货日期”和“送货单号”是合并的单元格，不知道VBA怎么实现复制过去，因为数据量很多，所以需要用VBA每十行复制一遍过去，直到结束后，跳出结束提示。
谢谢各位大神了

john13579

送货日期在F3,货单编号在I3，对淮订单编号和送货单号，由Sheet2 抄往Sheet1便是。

exc-led

john13579 发表于 2018-9-26 19:55
送货日期在F3,货单编号在I3，对淮订单编号和送货单号，由Sheet2 抄往Sheet1便是。

大神能否给我做个案例上传一下？VBA小白，求助大神，谢谢了！！

liulang0808

exc-led 发表于 2018-9-26 21:08
大神能否给我做个案例上传一下？VBA小白，求助大神，谢谢了！！

一次拷贝10行，日期怎么处理
10行日期不一样啊，楼主结合附件说明下

exc-led

liulang0808 发表于 2018-9-26 21:41
一次拷贝10行，日期怎么处理
10行日期不一样啊，楼主结合附件说明下

你这么说是对哦！日期就先不处理！先复制十行的吧[]，谢谢

exc-led

liulang0808 发表于 2018-9-26 21:41
一次拷贝10行，日期怎么处理
10行日期不一样啊，楼主结合附件说明下

其实就是sheet2中日期筛选出来，sheet2中日期都是一致的！然后这个日期就选sheet2中日期的任一个，因为是一样的日期

不知道为什么

exc-led 发表于 2018-9-26 22:14
其实就是sheet2中日期筛选出来，sheet2中日期都是一致的！然后这个日期就选sheet2中日期的任一个，因为是 ...

还是没有把需求说明白，复制后的结果 生成新的sheet  还是工作簿？

shi353

提問人應該是想作模板套印吧，每10筆資料塞入一張表，每張表的序號為累積號
例如  第2張表序號由11開始

xiangbaoan

……………………

liulang0808

1. Sub a()
   
2.     Set sh = Sheets(1)
   
3.     Application.ScreenUpdating = False
   
4.     With Sheets(2)
   
5.         For j = 2 To .Cells(Rows.Count, 1).End(3).Row Step 10
   
6.             sh.[b5:j14].ClearContents
   
7.             .Cells(j, 1).Resize(10, 9).Copy sh.[b5]
   
8.             sh.[i3] = .Cells(j, 10)
   
9. '            sh.[f3]=""
   
10.             sh.[a1:j16].PrintOut
    
11.         Next j
    
12.     End With
    
13. 
    
14.     Application.ScreenUpdating = True
    
15. End Sub
    

复制代码