有大神可以帮忙做个宏么

allked13

就是第一张表做一个宏 可以保存到表2的。。。有人可以帮忙做一个吗

笑着...两年过去

第二张表模板都没有呀，

allked13

笑着...两年过去 发表于 2018-9-20 15:00
第二张表模板都没有呀，

就是跟表1信息一样的 就可以了

allked13

重新传一个

笑着...两年过去

1. Sub test()
   
2.     Sheet1.[b7:k11].Copy
   
3.     i = [d65500].End(3).Row + 1
   
4.     Sheet2.Cells(i, 1).Select
   
5.     ActiveSheet.Paste
   
6. End Sub

复制代码

allked13

笑着...两年过去 发表于 2018-9-20 15:53

大神 怎么添加一个保存按钮 直接就保存在后面sheet1里呢。。。应该怎么弄代码？

笑着...两年过去

allked13 发表于 2018-9-20 16:32
大神 怎么添加一个保存按钮 直接就保存在后面sheet1里呢。。。应该怎么弄代码？

随便插一个按钮，然后指定这个宏

allked13

笑着...两年过去 发表于 2018-9-20 16:41
随便插一个按钮，然后指定这个宏

指定这个宏的时候

Sheet2.Cells(i, 1).Select

这一行提示不对

笑着...两年过去

allked13 发表于 2018-9-20 16:49
指定这个宏的时候

Sheet2.Cells(i, 1).Select

1. Sub test()
   
2.     Sheet1.[b7:k11].Copy
   
3.     i = Sheet2.[d65500].End(3).Row + 1
   
4.     Sheet2.Activate
   
5.     Sheet2.Cells(i, 1).Select
   
6.     ActiveSheet.Paste
   
7.     Sheet1.Activate
   
8. End Sub

复制代码