查看原文
其他

分表录入数据,汇总表点一下按钮就完成合并,真好!

卢子1987 Excel不加班 2023-03-11
与 30万 粉丝一起学Excel

我一直以为,年度数据汇总应该农历过年前就都解决了,没想到依然有很多学员才开始处理。今天,私下解决了一大堆多表相关的问题,跟卢子来看看。


1.多表合并


每个月一张表,每个表格式都相同,现在要将所有月份的数据合并到汇总表。


合并有很多种方法,PQ、VBA、WPS会员,详见文章:别找了,你要的Excel多表合并都在这里了!


今天讲VBA的方法,点一下合并的按钮,瞬间将所有数据合并过来,很快很爽。


Step 01 点开发工具,VB,插入模板,将代码放进去。代码的意思,是合并除汇总表以外的所有工作表。


Step 02 插入控件,关联代码。


Step 03 假如现在更新了记录,希望汇总表也更新,只需再点一次按钮就行。


注意点:


01 合并表的名称一定要改成汇总,标题手工复制过来。


02 代码只是引用A:F一共6列,如果不够可以自己改,比如改成A:Z,26列,也就是改圈住的地方,其他地方不用改。

Sub 合并()
Dim sht As Worksheet, arr
Range("a2:z65536").Clear
For Each sht In Worksheets
If sht.Name <> "汇总" Then
i = sht.Range("b65536").End(xlUp).Row
j = Sheets("汇总").Range("b65536").End(3).Row + 1
arr = sht.Range("a2:z" & i)
Sheets("汇总").Range("a" & j).Resize(UBound(arr), 26) = arr
End If
Next
End Sub


2.多表汇总


合并相当于复制粘贴,汇总是需要将合并后的数据进行统计。比如统计每种类型、车型的总销量。


最简单的就是插入透视表,将类型、车型、销量全部勾选,就完成统计。


多表的相关问题,思路都是想办法合并在一张表,最后用透视表统计,这是比较靠谱的。


2022年的表格,你统计好了吗?


链接:https://pan.baidu.com/s/1R27lojJAF84PZ45sWgK2TA?pwd=fv4m

提取码:fv4m

陪你学Excel,一生够不够?

一次报名成为VIP会员,所有课程永久免费学,永久答疑,仅需 1500 元,待你加入。

报名后加卢子微信chenxilu2019,发送报名截图邀请进群。

推荐:别找了,你要的Excel多表合并都在这里了!
上篇:2个月了,微信接收的所有文件变成只读,终于有解了

请把「Excel不加班」推荐给你的朋友

别忘了点赞支持卢子哦↓↓↓

您可能也对以下帖子感兴趣

文章有问题?点此查看未经处理的缓存