Question

如何运用EXCEL将sheet1出库单依次汇总到sheet2出库单汇总表中？？

刚到单位，boss交代让我做一个出库单汇总表，将每次打印的出库单自动汇总到汇总表

这是需要打印的出库单

这是出库单汇总表

因为这个任务开始去学习excel相关知识，想在sheet1中插入一个命令按钮，按这个按钮实现依次无覆盖更新到sheet2中，不知这样的思路对不对？
如果对的话，请问如何写按钮的代码？如何将日期和客户名称汇总到sheet2中？
如果不对的话，烦请各位大神指条明路，这里先谢过各位了。





Answer 1

Sub 打印并保存()
'打印并保存记录
Dim s, x
Sheets("出库单打印").Select
ActiveWindow.SelectedSheets.PrintOut
s = Range("B65536").End(xlUp).Row

With Sheets("出库单汇总")
For i = 5 To s
x = .Range("A65536").End(xlUp).Row
.Cells(x + 1, 1) = x - 3
.Cells(x + 1, 2) = Format(Cells(2, 2), "yyyy-mm-dd")
.Cells(x + 1, 3) = Cells(2, 6)
.Cells(x + 1, 4) = Cells(i, 2)
.Cells(x + 1, 5) = Cells(i, 3)
.Cells(x + 1, 6) = Cells(i, 4)
.Cells(x + 1, 7) = Cells(i, 5)
.Cells(x + 1, 8) = Cells(i, 6)
.Cells(x + 1, 9) = Cells(i, 7)
.Cells(x + 1, 11) = Cells(i, 8)
   If i = s Then
   .Cells(x + 1, 10) = Cells(13, 7)
   End If
Next
End With
End Sub

Answer 2

你把表格发给我，我帮你做一个，你看看代码就明白了

zubaolin4506@163.com

做了一个，单元格地址按照你的图片来的，时间问题没有排版，你看看能不能用吧。

追问

很好用 谢谢 只是貌似客户名称不太对 刚刚操作了下 发现如下图提示 请问如何解决

追答

已做好，试过了，应该没什么问题了。 

Answer 3

代编 VBA 代码， 请把资料发送到邮箱，点名字可以查到。