自动更新（有难度）

qhllqhll · 发表于 2017-11-24 18:49

点击按钮就自动更新
请各位老师见附件
谢谢

自动更新.rar (221.19 KB, 下载次数: 19)

lsc900707 · 发表于 2017-11-24 19:56

（位置：以被汇总的A列序号和汇总表里的A列序号所对应）
不知道你要这个条件干什么？

qhllqhll · 发表于 2017-11-24 20:37

要对应更新，谢谢

qhllqhll · 发表于 2017-11-24 20:47

lsc900707 发表于 2017-11-24 19:56
（位置：以被汇总的A列序号和汇总表里的A列序号所对应）
不知道你要这个条件干什么？

需要对应更新，谢谢您的热心帮助！

qhllqhll · 发表于 2017-11-25 07:36

难题待解决
请换一个思路，用字典方法把数据表里O列和V列不为空的搜索出来，回放到汇总表里。
再次感谢各位老师的帮助！

lsc900707 · 发表于 2017-11-25 09:01

qhllqhll 发表于 2017-11-25 07:36
难题待解决
请换一个思路，用字典方法把数据表里O列和V列不为空的搜索出来，回放到汇总表里。
...

Sub gj23w98()
Dim brr(1 To 10000, 1 To 22)
p = ThisWorkbook.Path
f = Dir(p & "\*.xlsx")
Application.ScreenUpdating = False
Do While f <> ""
      If f <> ThisWorkbook.Name Then
         With GetObject(p & "\" & f)
            With .Sheets("sheet1")
                  arr = .[a1].CurrentRegion
                  For i = 2 To UBound(arr)
                     If arr(i, 15) <> "" Or arr(i, 22) <> "" Then
                           m = m + 1
                           For j = 1 To 22
                              brr(m, j) = arr(i, j)
                           Next
                     End If
                  Next
            End With
            .Close False
         End With
      End If
      f = Dir()
Loop
With ActiveSheet
      .[a2].Resize(m, 22) = brr
End With
Application.ScreenUpdating = True
MsgBox "汇总完成，请查看!"
End Sub