修改代码

ddz79101

老师！有复制表的代码，用第3次的时候会将第1次的复制覆盖掉，而不是承上启下。如何修改代码。谢谢

ddz79101

搞不懂，复制了数据A，和B2次后，成功。但再复制数据C，会将A数据覆盖了。什么原因呀，如何再此基础上修改

ynzsvt

最后一行不能来多次的。

1. Sub dd()
   
2. Sheets("进").Select
   
3. AlastRow = Sheets("汇").Cells(Rows.Count, 1).End(xlUp).Row
   
4. BlastRow = Sheets("进").Cells(Rows.Count, 1).End(xlUp).Row
   
5. Sheets("进").Range("A2:j" & BlastRow).Copy Destination:= _
   
6.    Sheets("汇").Range("A" & AlastRow + 1)
   
7. End Sub

复制代码

小凡、、、

说明你要啥效果，看不懂你这个写的啥玩意

sdytsxd991122

是这个意思？

ddz79101

sdytsxd991122 发表于 2024-9-7 14:31
是这个意思？

谢谢老师！是这意思

ddz79101

小凡、、、 发表于 2024-9-7 14:29
说明你要啥效果，看不懂你这个写的啥玩意

谢谢老师的指点

ddz79101

ynzsvt 发表于 2024-9-7 14:26
最后一行不能来多次的。

谢谢老师的指点。