将工作簿中各表符合条件的记录汇总到一个工作表

seelookme · 发表于 2011-8-8 16:35

各位高手，本人想请教一下问题：工作簿里面有四个表（或者更多），表1、表2、表3还有汇总表。那么我现在想把表1、表2、表3各个表里面工资金额超过2000元的员工信息“姓名、性别、部门、岗位和工资”自动汇总到“汇总表”工作表里面，或者也可以在汇总表F1和G1里面输入一个区间数据，如F1为2000元以上，G3为5000元以内。以上可以用VBA实现吗？详见附件

LangQueS · 发表于 2011-8-8 16:55

关于管理数据的方法请参考：

[原创]★Excel数据管理的一般规律★ http://club.excelhome.net/thread-287461-1-1.html

flysum2008 · 发表于 2011-8-8 17:56

Sub aa()
Dim arr, a%, i%, k%, h%
a = Sheets.Count
For i = 1 To Sheets.Count
If Sheets(i).Name <> "汇总" Then
With Sheets(i)
arr = .Range("a2", .[e65536].End(3))
End With
For k = 1 To UBound(arr)
h = Sheet1.Range("a65536").End(3).Row + 1
If arr(k, 5) > "2000" Then
Sheet1.Range("a" & h, "e" & h).Value = Sheets(i).Range("a" & k + 1, "e" & k + 1).Value
h = h + 1
End If
Next k
End If
Next i
End Sub

复制代码

zhaogang1960 · 发表于 2011-8-8 17:49

原帖由 seelookme 于 2011-8-8 16:35 发表
各位高手，本人想请教一下问题：工作簿里面有四个表（或者更多），表1、表2、表3还有汇总表。那么我现在想把表1、表2、表3各个表里面工资金额超过2000元的员工信息“姓名、性别、部门、岗位和工资”自动汇总到“汇总 ...

请测试
Sub Macro1()
Dim cnn As Object, rs As Object, SQL$, i&
Set cnn = CreateObject("ADODB.Connection")
cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName
For Each sh In ThisWorkbook.Worksheets
      If sh.Name <> "汇总" Then
         If SQL <> "" Then SQL = SQL & " union all "
         SQL = SQL & "select * from [" & sh.Name & "$] where 工资 between " & [f1] & " and " & [g1]
      End If
Next
SQL = "select 姓名,性别,部门,岗位,sum(工资) as 工资 from (" & SQL & ") group by 姓名,性别,部门,岗位" '如果不是求和,把这一句去掉
Set rs = cnn.Execute(SQL)
ActiveSheet.UsedRange.Offset(1).ClearContents
For i = 1 To rs.Fields.Count
      Cells(1, i) = rs.Fields(i - 1).Name
Next
Range("A2").CopyFromRecordset rs
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Sub

[ 本帖最后由 zhaogang1960 于 2011-8-9 08:48 编辑 ]

longming3 · 发表于 2011-8-8 18:20

数据透视的合并计算能解决楼主的要求

seelookme · 发表于 2011-8-8 19:01

谢谢你，这个可以。

seelookme · 发表于 2011-8-8 19:03

可以设置把工资超过2000元的汇总到汇总表里面吗？

seelookme · 发表于 2011-8-8 18:40

您好，请问透析表如何合并呢，我也想过用透析表，但不会设置。

flysum2008 · 发表于 2011-8-8 20:49

短信收到。如果更改条件为工资>2000元且工资<5000元，则将If arr(k, 5) > "2000" Then
改为If arr(k, 5) > "2000" and arr(k, 5) < "5000" Then

zhaogang1960 · 发表于 2011-8-8 20:49

原帖由 seelookme 于 2011-8-8 19:03 发表
可以设置把工资超过2000元的汇总到汇总表里面吗？

汇总.rar (19.79 KB, 下载次数: 209)

[ 本帖最后由 zhaogang1960 于 2011-8-9 08:50 编辑 ]

		自动登录	找回密码
密码			免费注册

[求助] 将工作簿中各表符合条件的记录汇总到一个工作表

回复 4楼 flysum2008 的帖子

回复 3楼 zhaogang1960 的帖子

回复 5楼 longming3 的帖子

浏览过的版块