全科网导出数据批量处理代码
来源:高中英语教学交流网
发布时间:2017-10-30 15:49:00
查看次数:
全科网导出的成绩有不少的内容,暂时来说,作用是不大的。但是在排版方面,那些内容占了很多的空间,所以需要进行处理,每一次的成绩的处理需要比较长的时间。尤其是对于成绩查询系统里面的相关数据处理,花费比较长的时间。
最近,我想找一种比较一劳永逸的方法,对数据进行批量处理。现在已经基本上完成了,使用效果还是不错的。基本思路如下:
1、替换相关的列名内容。按照成绩查询系统的样式,替换那些名字。
2、删除多余的列:比如说班名列,级名列。班名对于成绩查询的意义其实是不大的,主要是看校名。级名多数是出现在多校联考才会出现。
以下是相关的代码:
Sub 一步转换()
Selection.Replace What:="理科数学", Replacement:="理数", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="文科数学", Replacement:="文数", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="文科总分", Replacement:="文总", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="理科总分", Replacement:="理总", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="文科", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="理科", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="理科", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="校名", Replacement:="名次", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="分数", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Application.CutCopyMode = False
Run "删除级名列"
Run "删除班名列"
End Sub
Sub 删除级名列()
Dim i As Integer
i = 0
xunhuan:
On Error GoTo eend
Cells.Find(What:="级名").Select
Selection.EntireColumn.Delete
i = i + 1
GoTo xunhuan
eend:
MsgBox (i & "列级名列被删除了")
End Sub
Sub 删除班名列()
Dim i As Integer
i = 0
xunhuan:
On Error GoTo eend
Cells.Find(What:="班名").Select
Selection.EntireColumn.Delete
i = i + 1
GoTo xunhuan
eend:
MsgBox (i & "列班名列被删除了")
End Sub
- 相关文章
- ·实现QQ邮箱发送邮件到Gmail邮箱的办法11-11·网络抽签系统ASP修改版05-04·写给2012届高三(1)班06-10·2024年3月5日七选五讲评03-05·2011年广州市一模英语口语阅卷体会02-19·11-24高考英语听说真题三问(领读版)02-24·[语法填空] 英文二十四节气之24“大寒”01-20·2019届高三备考日历表08-04
- 最新文章
-
·2025年高考英语语法填空高频易错考点总结06-05·2023年新高考I卷阅读讲评06-04·2024年新高考I卷阅读理解讲评06-03·2025年高考祝福:祝你在高考取得好成绩06-03·2025年5月28日语法05-28·小满未满 锋芒正好05-21·2025年5月20日应用文写作讲评05-20·教师福利:七天阅卷AI自动批改语法填空05-20·读后续写:一次坏心情的治愈过程05-19
- 阅读排行
- ·免费申请一级域名02-12·What的用法总结11-28·内外网下不同IP网段共享打印机03-22·英语教学资源网站汇总(建议收藏)08-02·各次考试成绩汇总模板10-12·形容词、副词讲义要点07-24·成功安装ies4linux,可以使用IE6了06-04·换一种方式研究高考真题01-22·ABCD选项对齐神器V3.0发布08-30·也用“3Q”造句11-10
点击这里识别二维码关注公众号