现在有10个excel，每个excel有12个表，但每个excel除了地区不一样，统计内容都一样，请问我怎么快速统计？

发布网友 发布时间：2022-04-24 21:47

我来回答

共4个回答

热心网友 时间：2023-10-12 04:39

最直接的办法是：

先将一个Excel A的统计用公式或函数做好，然后直接复制到Excel B对应位置，Excel B对应地方粘贴完成后，把公式或函数里面的地址替为空（Ctrl+F）。

例如把地址中的[名称1Excel.xlsx]Sheet1! 替换为""

热心网友 时间：2023-10-12 04:40

每个EXCEL文件一个地区，每个文件里面的12个表分别是12个月份，如果我遇到这样的问题，我会把这120个表合并一个表，在原始数据的前面增加两列：地区、月份，最后这个总表上进行透视等分析就很方便。

热心网友 时间：2023-10-12 04:40

个人建议合并所有工作簿再进行统计，合并代码如下：
Option Explicit
Sub 合并当前目录中所有工作簿下全部工作表()
Dim MyPath$, MyName$, sh As Worksheet, sht As Worksheet, m&, IsSheetEmpty As Boolean
Set sh = ActiveSheet
MyPath = ThisWorkbook.Path & "\"
MyName = Dir(MyPath & "*.xlsx")
Application.ScreenUpdating = False
Cells.ClearContents
Do While MyName <> ""
If MyName <> ThisWorkbook.Name Then
With GetObject(MyPath & MyName)
For Each sht In .Sheets
If IsSheetEmpty = IsEmpty(sht.UsedRange) Then
m = m + 1
If m = 1 Then
sht.[a1].CurrentRegion.Copy sh.[a1]
Else
sht.[a1].CurrentRegion.Offset(0).Copy sh.[a65536].End(xlUp).Offset(1)
End If
End If
Next
.Close False
End With
End If
MyName = Dir
Loop
Application.ScreenUpdating = True
MsgBox "已完成"
End Sub

热心网友 时间：2023-10-12 04:41

用python可以方便地汇总（最好生成一个新的汇总表，不影响原有数据）追问我倒是想用爬虫，可惜没有相关基础啊

追答这不叫爬虫，就是简单自动化，学习不难，
可以帮写