关于EXCEL表格合并的一些问题，需要大佬伸出一下援手！！~

Kii77 · 发表于 2019-12-12 15:07:33

马上注册，结交更多好友，享用更多功能^_^

您需要登录才可以下载或查看，没有账号？立即注册

x

本帖最后由 Kii77 于 2019-12-12 15:14 编辑

这应该算是数据整理的一种操作思路吧。
对需求举个例子吧，我有一个表格模板分发去给别人填报，填写完成之后，我需要把每张表格的数据加总在一起。这个加总的方式，假设表格1、表格2、表格3，合并成表格4，而需要填写数据的单元格为A1，那我想合并出来的表格4的A1=表格1!A1+表格2!A1+表格3!A1。
如果需要合并的表格数量一定，那设置excel的公式就可以解决，但是所需要合并表格的数量不是一定的，所以我想做到将同一个文件夹内的所有excel，通过上文的方式，将填写数字的单元格合并，所需要合并的数据是精确到小数点后2位的浮点数，而合并过程不改变填写文本的单元格，然后输出到一个同样格式的excel文件里。
有没有大佬提供个编写思路供我参考一下~

冬雪雪冬 · 发表于 2019-12-12 15:15:05

这不需要编程吧，直接在excel操作就行。

Kii77 · 发表于 2019-12-12 15:18:46

冬雪雪冬发表于 2019-12-12 15:15
这不需要编程吧，直接在excel操作就行。

表格太过于庞大，每个文件十几个工作表，每个表格几百个数据，而且交上来的数据还一直在改。。直接在excel改太恶心了

emlsglt21 · 发表于 2019-12-12 15:19:52

用VBA实理要简单些

Kii77 · 发表于 2019-12-12 15:21:01

emlsglt21 发表于 2019-12-12 15:19
用VBA实理要简单些

可是这个论坛我没找着VBA的版块，而且对VBA的了解太浅了。。总感觉没地方学

wp231957 · 发表于 2019-12-12 15:24:10

相当于xls文件的数量不固定
但是每个xls的行、列固定？？
然后大汇总为一个xls ？？？但是原始表都不变？？？

也许vba 比python 要容易些

Kii77 · 发表于 2019-12-12 15:32:16

wp231957 发表于 2019-12-12 15:24
相当于xls文件的数量不固定
但是每个xls的行、列固定？？
然后大汇总为一个xls ？？？但是原始表都不变 ...

是的，就是固定表格，表格数量不固定，然后全部合并在一个汇总表格里。

Kii77 · 发表于 2019-12-12 15:32:50

wp231957 发表于 2019-12-12 15:24
相当于xls文件的数量不固定
但是每个xls的行、列固定？？
然后大汇总为一个xls ？？？但是原始表都不变 ...

vba会不会很难学啊...

emlsglt21 · 发表于 2019-12-12 15:42:11

我有VBA的书电子的，要的话留邮箱

wp231957 · 发表于 2019-12-12 15:47:06

Kii77 发表于 2019-12-12 15:32
vba会不会很难学啊...

方便的话打包2个xls 放出来，帮你研究研究
要是不方便就只能你自己+度娘

空青 · 发表于 2019-12-12 16:41:48

用pandas吧

倒戈卸甲 · 发表于 2019-12-13 06:48:10

本帖最后由倒戈卸甲于 2019-12-13 07:13 编辑

这个问题在VBA实在过于简单，入门级的问题，但如果你没接触过VBA，我要讲的东西太多了。https://fishc.com.cn/thread-150574-1-1.html 这是之前我回答另一个鱼油的答案，你先试试手坐标6楼，第33行到56行能让你交互式的选择文件夹并通过按住Ctrl键选择多个文件，将多个工作簿变为一个工作簿的若干子表。

倒戈卸甲 · 发表于 2019-12-13 06:58:10

Sub 基本操作1()
Dim str As String
Dim wb As Workbook
str = Dir("d:\data\*.xls*")
For i = 1 To 100
Set wb = Workbooks.Open("d:\data" & str)
wb.Sheets(1).Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = Split(wb.Name, ".")(0)
wb.Close
str = Dir
If str = "" Then
Exit For
End If
Next
End Sub

复制代码

这个函数则是基本操作，使用时把d:\data\替换为你的目标文件夹，该文件夹下的excel文件会被提取到同一文件中。

倒戈卸甲 · 发表于 2019-12-13 07:03:16

Sub wjhb()
Dim str As String
Dim wb As Workbook
Dim sht As Worksheet
str = Dir("d:\data\*.xls*")
For i = 1 To 100
Set wb = Workbooks.Open("d:\data" & str)
For Each sht In wb.Sheets
sht.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = Split(wb.Name, ".")(0) & sht.Name
Next
wb.Close
str = Dir
If str = "" Then
Exit For
End If
Next
End Sub

复制代码

这个函数稍微健壮一点，允许你每个excel文件有多个工作表。。。。使用时仍是把d:\data\替换为你的目标文件夹。其中基础原理我在链接的那个帖子里讲过你可以看一下

倒戈卸甲 · 发表于 2019-12-13 07:08:11

本帖最后由倒戈卸甲于 2019-12-13 07:16 编辑

不对，是必须读。我链接的那个帖子你必须通读，并且每个函数都运行一下，不然很可能就哪里出问题了。要节约你我的时间。如果你顺利将所有文件数据抓到同一个文件中，你距离你的目标只有30%的距离，剩下就几行代码。。。我先不敲了，万一你前面的步骤都搞不定

XiaoPaiShen · 发表于 2019-12-13 07:37:20

你把模版发上来，用pandas就可以根据模版写个python 程序实现了

Kii77 · 发表于 2019-12-13 09:54:24

emlsglt21 发表于 2019-12-12 15:42
我有VBA的书电子的，要的话留邮箱

529457249@qq.com 麻烦大佬发一份啦~

Kii77 · 发表于 2019-12-13 09:56:14

倒戈卸甲发表于 2019-12-13 07:08
不对，是必须读。我链接的那个帖子你必须通读，并且每个函数都运行一下，不然很可能就哪里出问题了。要节约 ...

woc 让我赶紧拜读一下...先研究一下这个是什么思路

倒戈卸甲 · 发表于 2019-12-13 10:43:50

本帖最后由倒戈卸甲于 2019-12-13 10:47 编辑

Sub 单列求和()
Dim sht As Worksheet
Dim i, j, k As Integer
k = Sheet1.Range("a65536").End(xlUp).Row '制式写法，获取你的数据有多少行。有需要的话可以自己赋值,比如k=88，处理到第88行
For j = 2 To k '如果设置j=3会从第三行开始处理，j=1会从第一行开始处理。一直处理到数据最后一行
For i = 2 To Sheets.Count
Sheet1.Range("a" & j) = Sheet1.Range("a" & j) + Sheets(i).Range("a" & j) '核心语句，求和，b代表第b列，换成c则会处理第c列
Next
Next
End Sub
Sub 求和2() '怕你想不到，所有写出来让你看看，把整个for-next语句段copy粘贴几遍，并分别改动b为a/c/e/f就可以处理多列乃至整个工作表了，用不着
'绞尽脑汁去想一个在列上的循环嵌套
Dim sht As Worksheet
Dim i, j, k As Integer
k = Sheet1.Range("a65536").End(xlUp).Row
For j = 2 To k
For i = 2 To Sheets.Count
Sheet1.Range("a" & j) = Sheet1.Range("a" & j) + Sheets(i).Range("a" & j)
Next
Next
For j = 2 To k
For i = 2 To Sheets.Count
Sheet1.Range("b" & j) = Sheet1.Range("b" & j) + Sheets(i).Range("b" & j)
Next
Next
End Sub

复制代码

算了，我后面这几天可能没空，就不循序渐进循循善诱了。你完成多文件合并后，要达成你的目标的话，剩下的代码也先给你了。绝对不难，用点心思就可以掌握。

genius_7321 · 发表于 2019-12-13 12:51:17

excel 插入数据透视表

账号		自动登录	找回密码
密码			立即注册

关于EXCEL表格合并的一些问题，需要大佬伸出一下援手！！~

马上注册，结交更多好友，享用更多功能^_^

浏览过的版块