もえ最新番号 Excel-VBA代码，把系数使命表数据汇总到一个表格里

图片もえ最新番号もえ最新番号

汇总表

条目：诓骗Excel-vba代码，把1-12月份每天的发货磋商表,汇总到第一个汇总内外，便于年底统计和汇总。

图片

将要汇总的各表

图片

代码

图片

完成的汇总表

代码共享如下：

Sub 把各使命表复制到一个汇总表内()'运行此进程

Dim ws As Worksheet, x As Long, y As Long '声名变量

For Each ws In Worksheets '轮回各个使命表

If ws.Name <> '汇总' Then '判断是否为汇总表，若是不是汇总表，扩充底下代码

ws.Activate'激活轮回的使命表

x = Cells(Rows.Count, 'b').End(xlUp).Row '取得此使命表b列单位格从下往上的行号

Range('A2:Q' & x).Copy '界限内选拔复制

Worksheets('汇总').Activate '激活汇总表

y = Cells(Rows.Count, 'a').End(xlUp).Row '取得汇总表a列单位格从下往上的行号

Range('A' & y + 1).PasteSpecial Paste:=xlPasteValues '选拔性粘贴为数值

End If'退出判断

Next ws'再轮回

End Sub'适度此次序もえ最新番号