怎么将多个工作表中的数据汇总到一张表格中?急!急!
我想汇总一下年纪的学生成绩,有五个工作表,分别是abcde,但每个工作表中人数不一样,比如a表中有甲和他的成绩,但b表中没有,现在想把他们所有人的成绩汇总到一张表格上面,来算总分,不知道怎么操作
怎么将多个工作表中的数据汇总到一张表格中?急!急! 我想汇总一下年纪的学生成绩,有五个工作表,分别
答案:3 悬赏:20 手机版
解决时间 2021-03-11 01:46
- 提问者网友:遁入空寂
- 2021-03-10 10:35
最佳答案
- 五星知识达人网友:零点过十分
- 2021-03-10 11:38
数据》合并计算
或者数据透视表》多重合并
或者数据透视表》多重合并
全部回答
- 1楼网友:孤独的牧羊人
- 2021-03-10 13:06
无图无真相
- 2楼网友:痴妹与他
- 2021-03-10 11:47
先把所有的表合并在一起,然后做分类汇总不是方便点。
由于表格较多可以用宏来解决
宏命令如下:
application.screenupdating = false
dim mypath
dim myname
dim awbname
dim wb
dim wbn
dim num as long
dim g as long
mypath = activeworkbook.path
myname = dir(mypath & "\" & "*.xls")
awbname = activeworkbook.name
num = 0
do while myname <> ""
if myname <> awbname then
set wb = workbooks.open(mypath & "\" & myname)
num = num + 1
with workbooks(1).activesheet
.cells(.range("a65536").end(xlup).row + 2, 1) = left(myname, len(myname) - 4)
for g = 1 to sheets.count
wb.sheets(g).usedrange.copy .cells(.range("a65536").end(xlup).row + 1, 1)
next
wbn = wbn & chr(13) & wb.name
wb.close false
end with
end if
myname = dir
loop
range("a1").select
unload frm按键集
application.screenupdating = true
msgbox "共合并了" & num & "个工作薄下的全部工作表。如下:" & chr(13) & wbn, vbinformation, "提示"
所有文件都必须放在一个文件夹下。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯