向大神请教，麻烦把代码写上

kiwarts

向大神请教，麻烦把代码写上

NaCl_cn

只有附件没有截图，没有问题描述啊。

lvying

NaCl_cn 发表于 2019-11-8 14:21
只有附件没有截图，没有问题描述啊。

所以只有大神能理解他的意思

Jaofuan

只写看一个保存，修改那个最好有一个批次编码，不然数据多了你根本不知道要修改哪一个！

1. Sub jaofuan保存()
   
2.     drow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
   
3.     ar = Sheet2.Range("a2:c" & drow)
   
4.     drow1 = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row + 1
   
5.     Sheet1.Range("a" & drow1).Resize(UBound(ar), 3) = ar
   
6. End Sub
   

复制代码

kiwarts

Jaofuan 发表于 2019-11-8 15:01
只写看一个保存，修改那个最好有一个批次编码，不然数据多了你根本不知道要修改哪一个！

大神真厉害，我试了下可以呀，帮忙帮到底吗，把其他几个也帮写下，望不吝赐教

kiwarts

kiwarts 发表于 2019-11-8 16:11
大神真厉害，我试了下可以呀，帮忙帮到底吗，把其他几个也帮写下，望不吝赐教

我弄了个编号，帮忙把代码写下，谢谢

larer

开局只有一堆数据,剩下全靠猜.

kiwarts

larer 发表于 2019-11-8 16:20
开局只有一堆数据,剩下全靠猜.

怎么会呢，就是sheet1表中点下按扭就把数据传到sheet2