图片

汇总表

要求：运用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'结束此程序

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。