怎样把excel中姓名对应的成绩导⼊到⼀张相同姓名excel表中？这个问题⽤VBA就可以实现，三步就好！
第⼀步：准备数据
姓名代码转换器百度
如何把表1到表5中光头强的成绩，统⼀提取到汇总表中！
在原有表格基础上，新建两个表，如下图：
第⼆步：插⼊控件，在控件指定代码，如图：
1、ALT+F11，调出VBA代码窗⼝，
2、插⼊⼀个模块
3、复制以下代码到这个模块内。
Sub 成绩提取()
Dim rng As Range
Dim B As Integer
Dim c As Integer
Dim j
j = Sheets('成绩汇总表').Cells(5, 9)
Sheets('成绩汇总表').Select
Columns('A:G').Select
Selection.ClearContents
Sheets('data').Select
Columns('A:D').Select
Selection.Delete Shift:=xlToLeft
Worksheets(1).Select
Rows('1:1').Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets('data').Select
Set rng = Sheets('data').Range('A65536').End(xlUp)
B = rng.Row
Sheets('data').Cells(B, 1).Select
ActiveSheet.Paste
c = Worksheets.Count
For i = 2 To c - 1
Worksheets(i).Select
Rows('2:2').Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets('data').Select
Set rng = 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').AutoFilter Field:=1, Criteria1:=j Columns('A:D').Select
Selection.Copy
Sheets('成绩汇总表').Select
Columns('A:A').Select
ActiveSheet.Paste
Range('A1').Select
Application.CutCopyMode = False
MsgBox '已汇总完毕'
End Sub
4、插⼊⼀个控件，指定这个宏，执⾏代码你就可以了。
4、插⼊⼀个控件，指定这个宏，执⾏代码你就可以了。
三、最终效果

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。