本
02沈鑫
599一本
02陈静
597一本
02蒋儒
597一本
02张璇琳
596一本
02李罗一帆594一本
02廖梓君02何志文
594一本592一本
未上线科目数学政治数学地理语文政治语文历史数学历史外语历史地理外语政治地理政治历史地理外语地理数学
未上线分数
1266712773511069108741228112681725126687156979573512571112
科任教师
向老师何继老师向老师陈小老师邓小老师何继老师邓小老师邓君老师向老师邓君老师陈老师邓君老师陈小老师陈老师何继老师陈小老师何继老师邓君老师陈小老师陈老师陈小老师向老师
张小老师
f02李昀霞
591一本数学
127向老师
政治
69何继老师
历史
77邓君老师
地理
705陈小老师
02刘奕伶
587一本语文
110邓小老师
数学
125向老师
政治
695何继老师
地理
68陈小老师
02赵原巧
586一本语文
110邓小老师
数学
120向老师
历史
795邓君老师
06黄莹
587一本数学
119龙泽老师
外语
123高乐老师
地理
73林玉老师
06雷凯迪
569一本数学
109龙泽老师
政治
675魏定老师
地理
64林玉老师
06梁虹
567一本语文
110唐建老师
数学
126龙泽老师
外语
125高乐老师
历史
735唐双老师
地理
615林玉老师
下面介绍具体的操作步骤：
一、把成绩数据按上表的格式放sheet1表中，把科任教师信息看上述格式放sheet3表中。
二、建立一个VBA；选中sheet2表，点
菜单宏VisualBasic编
辑器，打开VBA编辑器。三、点插入菜单模块；双击新建的模块1；再点插入菜单下的过程，输入
过程名，然后进入代码编辑，把下面的代码复制入代码框即可PublicSub测试DimxyzvbjbxAsLo
gx2z2Forv2To2270
IfSheet1Cellsz11710The
IfSheet1Cellsz11567The
Sheet2Cellsx2Sheet1Cellsz1Sheet2Cellsx1Sheet1Cellsz2Sheet2Cellsx3Sheet1Cellsz11Sheet2Cellsx4