Question

VBA中，用按钮将指定单元格的值依次赋值到另外的单元格里。

VBA中，用按钮将指定单元格的值依次赋值到另外的单元格里。如图，右侧生成订单按钮需要将白酒五吨和啤酒十吨，是否加急，所需车辆，总费用依次赋值到左侧的大表格里。要求每次点击生成订单，都能生成一个新的订单号，并记录信息。





Answer 1

点按钮【生成订单】的时候把订单区域的内容添加到左边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列，如果不是你可以自行修改。

如果需要编写完整的代码，请在百度云上把你现在的文件分享给我。