这个问题用vba就可以实现，三步就好！第一步：准备数据
如何把表1到表5中光头强的成绩，统一提取到汇总表中！
在原有表格基础上，新建两个表，如下图：
第二步：插入控件，在控件指定代码，如图：1、alt+f11,调出vba代码窗口，
2、插入一个模块
3、复制以下代码到这个模块内。
sub成绩提取()
dimrngasrange
dimbasinteger
dimcasinteger
dimj
j=sheets("成绩汇总表").cells(5,9)
sheets("成绩汇总表").select
columns("a:g").select
selection.clearcontents
sheets("data").select
columns("a:d").select
selection.deleteshift:=xltoleft
worksheets(1).select
rows("1:1").select
range(selection,selection.end(xldown)).select
selection.copy
sheets("data").select
setrng=sheets("data").range("a65536").end(xlup)
b=rng.row
sheets("data").cells(b,1).select
activesheet.paste
c=worksheets.count
fori=2toc-1
worksheets(i).select
rows("2:2").select
range(selection,selection.end(xldown)).select
selection.copy
sheets("data").select
setrng=sheets("data").range("a65536").end(xlup)
b=rng.row
sheets("data").cells(b+1,1).select
activesheet.paste
next
sheets("data").select
rows("1:1").select
selection.autofilter
activesheet.range("$a$1:$d$1048576").autofilterfield:=1,criteria1:=j
columns("a:d").select
selection.copy
sheets("成绩汇总表").select
columns("a:a").select
activesheet.paste
range("a1").select
application.cutcopymode=false
msgbox"已汇总完毕"
endsub
4、插入一个控件，指定这个宏，执行代码你就可以了。
三、最终效果如果这个回答帮助到了你，请帮忙转发出去，让更多人提高工作效率!
如果这个回答对你有帮助，请关注我，每周分享更多干货！
谢谢你的点赞！
网友解答:第一、把表一姓名按顺序排序第二在第二张表用vlookup()函数即可在成绩处输入公式=vlookup(b1,sheet1!b1:c36565,2,true)，然后一拖到底。选择填充格式。
