高考填报志愿所需数据 Excel 电子表格制作方法填报的重要性不言而喻，在填报过程中，家长和考生要能正确的到 所需的相关数据，高等院校在本省（自治区）招生计划、各高等院校在本 省（自治区）历年（近三年）投档分数线差及位次统计表，考生成绩对应
批次院校投档线数据（近三年），院校专业录取分数线数据（三到五年）等等。然后结合考生的分数和位次进行科学的分析，才能形成一套合理的志
愿填报方案。这些数据可以通过教育部门印发的填报志愿出版物、省级招
生主管部门网站（自治区招生网）、权威的专业网站（如阳光高考网，中国
教育在线等）、各院校的招生部门网站可以获得。不过，以上数据相对来说
比较分散，不便于集中查询和使用，而且大部分数据是图片状态，不便于排序、分类、分析。一套高考志愿方案的最终形成，则完全依赖于对数据的
分析。
本文中，笔者介绍获得以上数据的电子版，并且把以上有用的信息
合并到一个Excel 表格的方法。做出来了这样一个excel 表格以后，利用Excel 强大的数据排序、统计、分类、计算功能，把数据分析过程大大 简化，快速准确的进行分析相关数据，便于形成合理的高考志愿方案。
一、获得电子数据
首先应该保证的就是数据的正确性，省级招生主管部门发行的招生用书、省级招生网站和院校的招生部门网站提供的数据最是权威。
1、招生计划电子数据的获取：高考志愿填报系统中导出招生计划内容。
（1）打开省级招生网站，进入自治区普通高校招生网上填报志愿系统，
如v/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 <> ActiveSheet.Name 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”，在最后增加“院校”
