vba 不等于_汇总工作表小技巧【VBA、PQ】

汇总工作表：
【工具】Excel(VBA)、PQ
【工作表】前提各个表中字段名称、数量、位置相同
方式一：使用Excel(VBA)汇总工作表
例如：将表“工作表汇总”中1月、2月、3月三个表格汇总
第一步：打开表格“工作表汇总”，新建一张表格

第二步：点击开发工具--启动VBA(点击文件-选项-自定义功能区-开发工具-确认即可显示开发工具）

第三步：点击新建表右键-插入-模块，输入以下代码(蓝色部分)，点击小三角或者按F5运行即可

Sub CollectData()

Dim Sht As Worksheet, rng As Range, k&, n&

Application.ScreenUpdating = False

'取消屏幕更新

n = Val(InputBox("请输入标题的行数", "提醒"))

If n < 0 Then MsgBox "标题行数不能为负数。", 64, "提示": Exit Sub

'取得用户输入的标题行数，如果为负数，退出程序

Cells.ClearContents

'清空当前表数据

For Each Sht In Worksheets

'遍历工作表

If Sht.Name <> ActiveSheet.Name Then

'如果工作表名称不等于当前表名则进行汇总动作……

Set rng = Sht.UsedRange

'定义rng为表格已用区域

k = k + 1

'累计K值

If k = 1 Then

'如果是首个表格，则K为1，则把标题行一起复制到汇总表

rng.Copy

[a1].PasteSpecial Paste:=xlPasteValues '仅粘贴数值

Else

'否则，扣除标题行后再复制黏贴到总表，只黏贴数值

rng.Offset(n).Copy

Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1).PasteSpecial Paste:=xlPasteValues

End If

End If

Next

[a1].Activate

Application.ScreenUpdating = True '恢复屏幕刷新

End Sub

方式二：使用PQ汇总工作表(以Excel2016版为例

第一步：新建Excel表，点击数据-获取数据-从工作簿-导入表格“工作表汇总”

第二步:选择多项-点击转换数据进入PQ编辑器

第三步：点击主页-追加查询-选择将查询追加为新查询

第四步：追加三个或更多表，双击左侧可用表即可进入右侧追加表行列后确认

第四步：点击关闭并上载至，导入数据即可