⾼考填报志愿所需数据Excel电⼦表格制作⽅法.docx
⾼考填报志愿所需数据 Excel 电⼦表格制作⽅法填报的重要性不⾔⽽喻，在填报过程中，家长和考⽣要能正确的到
所需的相关数据，⾼等院校在本省（⾃治区）招⽣计划、各⾼等院校在本
省（⾃治区）历年（近三年）投档分数线差及位次统计表，考⽣成绩对应
批次院校投档线数据（近三年），院校专业录取分数线数据（三到五年）等等。然后结合考⽣的分数和位次进⾏科学的分析，才能形成⼀套合理的志
愿填报⽅案。这些数据可以通过教育部门印发的填报志愿出版物、省级招
⽣主管部门⽹站（⾃治区招⽣⽹）、权威的专业⽹站（如阳光⾼考⽹，中国
教育在线等）、各院校的招⽣部门⽹站可以获得。不过，以上数据相对来说
⽐较分散，不便于集中查询和使⽤,⽽且⼤部分数据是图⽚状态，不便于排序、分类、分析。⼀套⾼考志愿⽅案的最终形成，则完全依赖于对数据的
分析。
本⽂中，笔者介绍获得以上数据的电⼦版，并且把以上有⽤的信息
合并到⼀个Excel 表格的⽅法。做出来了这样⼀个excel 表格以后，利⽤Excel 强⼤的数据排序、统计、分类、计算功能，把数据分析过程⼤⼤
简化，快速准确的进⾏分析相关数据，便于形成合理的⾼考志愿⽅案。
⼀、获得电⼦数据
⾸先应该保证的就是数据的正确性，省级招⽣主管部门发⾏的招⽣⽤书、省级招⽣⽹站和院校的招⽣部门⽹站提供的数据最是权威。
1、招⽣计划电⼦数据的获取：⾼考志愿填报系统中导出招⽣计划内容。
（1）打开省级招⽣⽹站，进⼊⾃治区普通⾼校招⽣⽹上填报志愿系统，
如www.doczj/doc/b18fb3ba4631b90d6c85ec3a87c24028905f8511.html /xjzs.html。
(2)打开当年省级⾼考计划查询系统，⽐如《新疆维吾尔⾃治区普通
⾼考计划查询系统》为124.117.250.21:8181/XJGK/stufrontend/gkjh.zhtml （3）根据《招⽣⽤书》上的招⽣计划，左列单击（或搜索，再单击）有招⽣计划的院校，右边数据上⾯右击，按下“导出为Excel”。
（4）弹出的对话框中选“全部记录”→“确定”，这样就导出了⼀所院校的所有专业招⽣计划到单独的⼀个 Excel ⽂件。
（5）有招⽣计划的所有院校重复以上（3）和（4），挨个导出。
2、招⽣计划电⼦数据的合并：多个 Excel ⽂件合并为⼀个电⼦表格。
以上导出来的是⼀个个单独的 Excel ⽂件，有学者们应该合并成⼀个电⼦表
格。多个 Excel ⽂件的电⼦表格合并成⼀个电⼦表格分两步完成，即先把多个⼯作簿合并到⼀个⼯作簿，然后把多个⼯作表合并到⼀个⼯作表。这个⽂章⾥笔者介绍⽤ Visual Basic For Excel（是 VBA）实现的⽅法。这个的操作之前，Excel 设置选项→信任中⼼→信任中⼼设置→宏设置⾥需要打开
“启⽤所有宏”。
第⼀步：将多个⼯作簿合并到⼀个⼯作簿
(1)把刚才导出的所有 excel ⽂件复制到⼀个新⽂件夹，如“⾼考志愿
数据⽂件夹”。
(2)新建⼀个启⽤宏的⼯作薄，将其命名例如“ 2019 年⼀本招⽣计
划.xlsm”（具体是新建空⼯作簿，“另存为”为启⽤宏的⼯作薄 xlsm），
打开此⼯作簿。
(3)在“2019年⼀本招⽣计划.xlsm”下第⼀个⼯作表 Sheet1 标签上点
击右键，选择“查看代码”。
(4)在打开的 VBA 编辑窗⼝中书写以下代码；
------------------------------------- 代码开始----------------------------------------
Sub 多个⼯作簿合并到⼀个⼯作簿()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen=Application.GetOpenFilename(FileFilter:="Microsoft Excel ⽂件(*.xlsx),*.xlsx", MultiSelect:=True, Title:="合并⼯作薄")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
errhadler:
MsgBox Err.Description
End Sub
------------------------------------- 代码结束----------------------------------------
(5)关闭该 VBA 编辑窗⼝。
(6)在 Excel 中，开发⼯具---宏，选“多个⼯作簿合并到⼀个⼯作簿”,
然后“执⾏”。
(7)在打开的对话窗⼝中，选择你要合并的多个⼯作薄(可以多选)，等
待运⾏。
(8) 有学者们在“2019 年⼀本招⽣计划.xlsm”的 Excel ⽂件⾥就能看
到多个其他⼯作簿（各个院校招⽣计划）以多个 Sheet（N）页的形
式合并到了这⼀个⼯作簿中。
第⼆步：将多个⼯作表合并成⼀个⼯作表
在“2019年⼀本招⽣计划.xlsm”⼯作簿中，有很多个 Sheet 页，有学者们的最终⽬的是把这多个 Sheet（N）页合并到⼀个Sheet 页的多⾏。即把所有院校的招⽣计划放在同⼀个电⼦表格⾥。其操作办法如下：
(1)在“⼀本招⽣计划”⼯作簿中，新建⼀个 sheet ⼯作表，如Sheet70。
(2)在新建的 sheet70 标签上单击右键，选择“查看代码”
(3)在打开的 VBA 编辑窗⼝中书写以下代码：
------------------------------------- 代码开始----------------------------------------
Sub 合并当前⼯作簿下的所有⼯作表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <> www.doczj/doc/b18fb3ba4631b90d6c85ec3a87c24028905f8511.html Then
X = Range("A65536").End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X, 1)
End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "当前⼯作簿下的全部⼯作表已经合并完毕！", vbInformation, "提⽰"
End Sub
-------------------------------------代码结束----------------------------------------
(4)关闭该 VBA 编辑窗⼝。
(5)在 Excel 中，开发⼯具---宏，选“合并当前⼯作簿下的所有⼯作表”,
然后“执⾏”。
(6)等待运⾏，⽽后就在 Sheet70 ⾥可以看到该⼯作簿⾥⾯的所有 Sheet
（N）的内容连在⼀起了。把 Sheet70 改名为“⼀本计划OK”
3、历年⾼考录取分数线、两线差数据的获取：⽤ OCR ⽂字识别⼯具。
历年全国各⾼等院校从本省（⾃治区）招⽣投档分数线统计表可以⽹上下载，但最可信的还是省级（⾃治区）考试院编发的本年《招⽣与考试》⽤书的中卷：《院校专业录取数据卷》中的有关统计表。⽤扫描仪扫描或⽤⼿机拍照扫描软件等⽅法可以获取该统计表的清晰照⽚。不过⽆论是⽹上下载或扫描，都是图⽚⽂字，不能直接导⼊其中的数据到 Excel 表格。两个表格核对重复数据
笔者⽤⼿机版 WPS（会员）的识别表格⽂字的 OCR 功能，⽤⼿机拍照进⾏转换。为了保证清晰度，⽽提⾼识别的准确率，⼿机拍照扫描推荐“扫描全能王”app。⽬前⼿机版 WPS ⼀次只能转换⼀张照⽚，可以保存为 xls 格式。这⾥需要的所有表格拍照，并挨个识别完了后，在 WPS ⽂档⾥就有了很多 xls 表格了。这时 WPS ⽂档列表中，选取多个⽂档，选“压缩分享”到的“⽂件助⼿”，在电脑PC 版进⾏下载。之后的步骤如下：
（1）⽂件解压缩到⼀个新⽂件夹⾥，如“历年数据⽂件夹”，逐个打开看⼀看每⼀个 Excel ⽂档，有没有识别错误的内容并核对纠正。
（2）这些⽂档要合并到⼀个 Excel ⽂件⾥的⼀个电⼦表格，操作步骤可以参考上⾯内容 2 中有学者们所述的《将多个 Excel ⽂件合并为⼀个电⼦表格》内容，这⾥不再重述了，合并出来的 Excel ⽂件名可以是“2016-2018 分数线差位次统计表.xlsm”，
合并后的电⼦表标签改名为“⼀本分数相差OK”。
（3）打开“2016-2018 分数线差位次统计表.xlsm”，在最后增加“院校”
⼀列，其第4、5、6 ⾏写⼊⼀样的公式“=A3&B3&C3&D3&E3&F3”，
⿏标选取此列第4、5、6、7 ⾏内容（即J3~J6），⽤⿏标抓住选取右
下⾓的⿊点，往下移动⾃动填充公式到列末。
（4）选取“院校”所处的整列→复制→选择性粘贴→数值。第 1 ⾏上⾯插
⼊⼀⾏，写⼊标题内容。
（5）在A 列前⾯插⼊⼀新列，在新列A2 中写⼊“院校年份”，A3 输⼊公式“=K3&B3”，然后向下复制这个公式到结尾（⼩技巧：公式输完按下Enter 键后，⽤⿏标双击单元格右下⾓的⿊点，就向下快速⾃动填充）。（6）选取“院校年份”所处的整列→复制→选择性粘贴→数值。
（7）按“院校”列进⾏从⼤到⼩的排序，删除下⾯部分的“院校”列为空
的所有⾏。
⼆、合并电⼦数据
把招⽣计划电⼦数据和往年⾼考录取分数线、两线差数据合并为⼀，做
填报志愿能参考的电⼦表格数据。
（1）新建的Excel ⽂档，命名为“2019 年⾼考志愿电⼦数据.xlsx”，
并打开它。