如何汇总多个工作表里的数据并用折线统计图展现出来

您好,蔡蔡就为大家解答关于如何汇总多个工作表里的数据并用折线统计图展现出来相信很多小伙伴还不知道,现在让我们一起来看看吧！

1、亲，请问每个工作簿有几个工作表？如果有多个工作表，是逐一遍历全部都要汇总吗？将要汇总的文件放到一个单独专门的文件夹中。

2、在此文件夹中新建或打开一个Excel文件作为汇总文件，找一个空白Sheet或者新建一个Sheet存放汇总数据。

3、然后按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。

4、关闭VBA窗口。

5、然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。

6、1234567891011121314151617181920212223242526Sub hz()Dim bt, i, r, c, n, first As Longbt = 1Dim f, ff As ObjectSet fso = CreateObject("Scripting.FileSystemObject")Set ff = fso.getfolder(ThisWorkbook.Path & "")For Each f In ff.Files    If f.Name <> ***.Name And Left(f.Name, 2) <> "~$" Then        ***.Open ThisWorkbook.Path & "" & f.Name        With Workbooks(f.Name)            For i = 1 To .Sheets.Count                If first = 0 Then                    c = .Sheets(i).Cells(1, Columns.Count).End(xlToLeft).Column                    .Sheets(i).Range("A1").Resize(bt, c).Copy ThisWorkbook.ActiveSheet.Range("A1")                    n = bt + 1: first = 1                End If                r = .Sheets(i).Cells(Rows.Count, "A").End(xlUp).Row                .Sheets(i).Range("A" & bt + 1).Resize(r - 1, c).Copy ThisWorkbook.ActiveSheet.Range("A" & n)                n = n + r - bt            Next        End With        Workbooks(f.Name).Close False    End IfNext fSet fso = NothingEnd Sub。

本文就讲到这里，希望大家会喜欢。

标签：

版权声明：本文由用户上传，如有侵权请联系删除！