点按钮【生成订单】的时候把订单区域的内容添加到左边A列的最后区域，并且订单号+1，可以用下面的代码：
Dim i,j,no,v
i=cells(rows.count,1).end(xlup).row() 'A列最后一行
no=cells(i,1)+1 '订单号+1
i=i+1'输出新订单到下一行
cells(i,1)=no
j=2'保存结果列
for each v in range("J10:L15").cells '订单区域你需要修改，图片看不清楚
cells(i,j)=v
j=j+1'下一列
next v
图片看不清楚，假设订单号在A列，如果不是你可以自行修改。
如果需要编写完整的代码，请在百度云上把你现在的文件分享给我。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024