多工作簿数据汇总指定条件的数据

河阳小子

lsc900707 发表于 2017-3-8 15:41
把代码中的 If UCase(ar(m, 3)) Like "A*" Then改成
If UCase(ar(m, 3)) Like "B*" Then

嗯，不错，好强大，谢谢！再问一下老师：如果用在类似的其他方面，B*可以修改成中文吗？

lsc900707

河阳小子 发表于 2017-3-9 11:51
嗯，不错，好强大，谢谢！再问一下老师：如果用在类似的其他方面，B*可以修改成中文吗？

当然可以。。。。。。

河阳小子

lsc900707 发表于 2017-3-9 12:35
当然可以。。。。。。

请问老师，我借用这个模版，想提取A至I例中属于农民工类别的人员的整行数据，照猫画虎地改了下宏代码，但是怎么改也调试不对，劳烦老师帮我修改一下，谢谢！我已上传附件！

lsc900707

河阳小子 发表于 2017-3-14 16:48
请问老师，我借用这个模版，想提取A至I例中属于农民工类别的人员的整行数据，照猫画虎地改了下宏代码，但 ...

你的数据表格式不统一,>>>>>>>>>
你的就是多簿单表合并，比那个容易多了，就不要用那个代码了。

lsc900707

河阳小子 发表于 2017-3-14 16:48
请问老师，我借用这个模版，想提取A至I例中属于农民工类别的人员的整行数据，照猫画虎地改了下宏代码，但 ...

把数据表整理一下，不能有合并单元格，然后用下面的代码：
Option Explicit
Sub test()
Dim myPath$, MyName$, sh As Worksheet, t#
Dim Arr, brr, i&, j&, m&, n&
t = Timer
myPath = ThisWorkbook.Path & "\"
MyName = Dir(myPath & "*.xls")
Application.ScreenUpdating = False
ReDim brr(1 To 100000, 1 To 9)
Do While MyName <> ""
    If MyName <> ThisWorkbook.Name Then
        n = n + 1
        Set sh = GetObject(myPath & MyName).Sheets("Sheet1")
            Arr = sh.[A1].CurrentRegion
            Workbooks(MyName).Close False
            For i = 3 To UBound(Arr)
                If Arr(i, 8) Like "农民工*" Then
                    m = m + 1
                    For j = 1 To 9
                        brr(m, j) = Arr(i, j)
                    Next
                End If
            Next
      End If
      MyName = Dir
Loop
Set sh = Nothing
With Sheet1
     .Rows("1:3000").ClearContents
     .[A1].Resize(2, UBound(Arr, 2)).Value = Arr
     .[a3].Resize(m, UBound(brr, 2)).Value = brr
End With
Application.ScreenUpdating = True
MsgBox "汇总完成！汇总了：" & n & "个工作表；共有：" & m & "行数据。" & vbCr & "用时：" & Format(Timer - t, "0.00") & "秒", vbInformation
End Sub

lsc900707

河阳小子 发表于 2017-3-14 16:48
请问老师，我借用这个模版，想提取A至I例中属于农民工类别的人员的整行数据，照猫画虎地改了下宏代码，但 ...

代码需要审核，看看能不能上传附件

河阳小子

老师，你这个代码比他们之前那个更好用呀，真好，谢谢谢谢！只是我还想请教下：现在这个代码可汇总任意名称的工作簿，但是只能汇总工作表名称为sheet1的工作。如果能够再修改一下，可汇总一个工作簿中的多个不同名称工作表（含中文名称）或N个中文名称或sheet1的单表就更好了，说白了就是一簿多表、一簿一表、中文名称工作簿sheet名称工作表、中文名称工作簿多个中文名称工作表等混杂型的，能不能实现？劳烦大神再帮下忙！另外，如果再加上*.xlsx的表格就更板扎了。谢谢！

lsc900707

河阳小子 发表于 2017-3-15 09:46
老师，你这个代码比他们之前那个更好用呀，真好，谢谢谢谢！只是我还想请教下：现在这个代码可汇总任意名称 ...

如果再加上*.xlsx的表格就更板扎了。谢谢！
这个只要将MyName = Dir(myPath & "*.xls")修改成MyName = Dir(myPath & "*.xls*")就通用了。

关于第一个问题，多表也只是多一层遍历工作表。很简单的。

你挑选一个你经常需要使用的实例，打包压缩上传就好。

dreamhight

使用vlookup函数就很好啊！详见附件

河阳小子

lsc900707 发表于 2017-3-15 18:46
如果再加上*.xlsx的表格就更板扎了。谢谢！
这个只要将MyName = Dir(myPath & "*.xls")修改成MyName = D ...

老师，我用之前那个案例修改了下，当然实际应用中不止这些簿和表，量很大。所以我把它们修改成实际应用中经常会出现的情况。修改后，历年名册工作簿中有2012年名册、名册、Sheet3、Sheet4四个工作表；333工作簿中只有sheet2一张工作表；文件夹1中有三个工作簿，其中太阳这个工作簿格式为较高版本的.xlsx。请老师帮忙重新编写下宏代码，这次改成汇总C列中的性别为男的整行数据，附件已上传，谢谢！