如何将多个表格中的数据汇总到一张表格里

兜兜转转zz

如何将多个表格中的数据汇总到一张表格里

兜兜转转zz

怎么能一键将表1中的这几列数据汇总到表2中呢

3190496160

Sub 合并()
Application.ScreenUpdating = False
Dim ar As Variant, cr As Variant
Dim i As Long, r As Long, rs As Long
Dim br(), brr()
lj = ThisWorkbook.Path & "\"
f = Dir(lj & "表1记录.xls*")
If f = "" Then MsgBox "找不到表1记录！": End
Set wb = Workbooks.Open(lj & f, 0)
With wb.Worksheets(1)
    r = .Cells(Rows.Count, 2).End(xlUp).Row
    ar = .Range("a1:bg" & r)
End With
wb.Close False
ReDim br(1 To UBound(ar), 1 To 18)
For i = 1 To UBound(ar)
    If ar(i, 2) <> "" And ar(i, 7) <> "" Then
        If IsDate(ar(i, 7)) Then
            n = n + 1
            br(n, 3) = ar(i, 2)
            br(n, 4) = ar(i, 7)
            br(n, 5) = ar(i, 15)
            br(n, 7) = ar(i, 19)
            br(n, 11) = ar(i, 55)
            br(n, 18) = ar(i, 59)
        End If
    End If
Next i
If n = "" Then MsgBox "没有需要汇总的数据！": End
With ActiveSheet
    .UsedRange.Offset(2) = Empty
    .[a3].Resize(n, UBound(br, 2)) = br
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

新建文件夹.rar (32.22 KB, 下载次数: 16)

2024-11-13 17:28 上传

点击文件名下载附件

玩excel完成你这样，也真是让人醉了

quqiyuan

其实不复杂，就是做的表格让人有点摸不着头脑，列名称什么的都不一致

z865593849

这种一看就是ERP 导出的数据，好多数据不知道去哪里找，能写不太想写

至少要告诉数据在哪里，

兜兜转转zz

3190496160 发表于 2024-11-13 17:28
玩excel完成你这样，也真是让人醉了

谢谢大神费心，一个笨蛋中专生确实差的可以，非常感谢大神的相助

兜兜转转zz

z865593849 发表于 2024-11-13 17:41
这种一看就是ERP 导出的数据，好多数据不知道去哪里找，能写不太想写

至少要告诉数据在哪里，

是我写的不够详细，真是万分抱歉，给您添堵了

兜兜转转zz

quqiyuan 发表于 2024-11-13 17:32
其实不复杂，就是做的表格让人有点摸不着头脑，列名称什么的都不一致

是呢是呢，忘了上传这个了

兜兜转转zz

3190496160 发表于 2024-11-13 17:27
Sub 合并()
Application.ScreenUpdating = False
Dim ar As Variant, cr As Variant

谢谢大神的热心帮助，但是小人斗胆再提一个要求，如果能多加一个按钮可以导入不同的表格基数就更好了5555