当前位置:首页 >> 计算机软件及应用 >> 一步一步教你excel中用VBA自动从一个表按条件把数据填充到另一张表

一步一步教你excel中用VBA自动从一个表按条件把数据填充到另一张表


一步一步教你用 VBA 自动从一个表按条件把数据填充到另一张表
高考上线与未上线统计,下面是某市 2013 年高考总分与单科分数线

2013 年全市文科分数线
全市人 数 一本分数 567 人数 372 三本分数 477 人数 4547

科目 一本 人数 分数 科目 三本 人数 分数

语文 380 112 语文 4739 99

数学 426 128 数学 4754 105

外语 444 128 外语 4691 99

政治 391 71 政治 4732 60

历史 476 82 历史 4671 71

地理 394 74 地理 4547 57

综合 393 217 综合 4575 184

单科分数线以语文为例:全市一本 372 人,即语文在 372 名的分数即为语文的上线分数。这 里关键统计某人总分上了某一分数线, 而单科没上分数线的人数。 进一步统计上该科老师头 上该科是否努力,是不是拖了后腿。 原始成绩放 sheet1 表中,统计后的数据放 sheet2 表中,科任教师名单放 sheet3 表中,数据 如下: 1. 原始成绩表 sheet1:
姓名 班 级 语文 数 学 外 语 综 合 政治 历史 地理 加 分 总 分

向恭谱 郑淞方 姜岚 沈鑫 陈静 蒋儒 张璇琳 李罗一帆 廖梓君 何志文 李昀霞 刘奕伶 赵原巧 黄莹 雷凯迪

02 02 02 02 02 02 02 02 02 02 02 02 02 06 06

114 114 110 108 112 116 116 112 113 112 113 110 110 113 113

126 127 129 137 122 129 130 132 129 112 127 125 120 119 109

138 132 131 129 130 126 126 128 125 133 134 130 130 123 128

229 229 230 225 233 226 224 222 227 235 217 222 226 232 219

67 72.5 69 72.5 73 72 68 69 72.5 76.5 69 69.5 71 76.5 67.5

84.5 83 82 74 81 81 84 79.5 83 82.5 77 84.5 79.5 82 87

77.5 73.5 79 78 79 72.5 71.5 73.5 71 76 70.5 68 75.5 73 64

0 0 0 0 0 0 0 0 0 0 0 0 0 0 0

607 602 600 599 597 597 596 594 594 592 591 587 586 587 569

梁虹 邓铃
班 1 2 3 4 5 6 7 8 9 10

06 06
班主任 肖友老师 陈小老师 张小老师 鲜松老师 何万老师 唐建老师 刘 陈 老师 老师 语文 刘

110 126 125 206 71 73.5 109 123 123 211 65.5 72
数学 老师 肖友老师 向 老师 外语 肖雪老师 陈 陈 老师 老师 物理 张长老师 何继老师 徐文老师 冯朝老师 张长老师 魏定老师 杜 老师

61.5 73
化学 吴明老师 邓君老师 王 李 陈 老师 老师 老师

0 567 0 566
生物 王耀老师 陈小老师 张小老师 黄家老师 黄家老师 林玉老师 王耀老师 张小老师 林玉老师 张小老师

2.科任教师表 sheet3

邓小老师 姚 李 老师 老师

王春老师 鲜松老师 何万老师 龙泽老师 刘 老师

高乐老师 王文老师 高乐老师 冯 老师

敬文老师 唐建老师 姚仁老师 刘 老师

唐双老师 吴明老师 陈 老师

罗巧老师 赵元老师 鲜松老师

赵文老师 贾 老师

冯朝老师 何继老师 徐文老师

邓君老师 敬文老师

邓小老师 敬文老师

邓君老师 吴明老师

王文老师

3.统计结果 sheet2:

班 姓名 02 向恭谱 02 郑淞方 02 姜岚 02 沈鑫 02 陈静 02 蒋儒

总分

类别

607 一本 602 一本 600 一本 599 一本 597 一本 597 一本

02 张璇琳

596 一本

02 李罗一帆

594 一本

02 廖梓君 02 何志文

594 一本 592 一本

未上线 科目 数学 政治 数学 地理 语文 政治 语文 历史 数学 历史 外语 历史 地理 外语 政治 地理 政治 历史 地理 外语 地理 数学

未上线分 数 126 67 127 73.5 110 69 108 74 122 81 126 81 72.5 126 68 71.5 69 79.5 73.5 125 71 112

科任教师 向 老师 何继老师 向 老师 陈小老师 邓小老师 何继老师 邓小老师 邓君老师 向 老师 邓君老师 陈 老师 邓君老师 陈小老师 陈 老师 何继老师 陈小老师 何继老师 邓君老师 陈小老师 陈 老师 陈小老师 向 老师

02 李昀霞

591 一本

02 刘奕伶

587 一本

02 赵原巧

586 一本

06 黄莹

587 一本

06 雷凯迪

569 一本

06 梁虹

567 一本

数学 政治 历史 地理 语文 数学 政治 地理 语文 数学 历史 数学 外语 地理 数学 政治 地理 语文 数学 外语 历史 地理

127 69 77 70.5 110 125 69.5 68 110 120 79.5 119 123 73 109 67.5 64 110 126 125 73.5 61.5

向 老师 何继老师 邓君老师 陈小老师 邓小老师 向 老师 何继老师 陈小老师 邓小老师 向 老师 邓君老师 龙泽老师 高乐老师 林玉老师 龙泽老师 魏定老师 林玉老师 唐建老师 龙泽老师 高乐老师 唐双老师 林玉老师

下面介绍具体的操作步骤: 一、 把成绩数据按上表的格式放 sheet1 表中,把科任教师信息看上述格式放 sheet3 表中。

二、

建立一个 VBA;选中 sheet2 表,点

菜单-- --宏---Visual Basic 编

辑器,打开 VBA 编辑器。 三、 点插入菜单---模块;双击新建的模块 1;再点插入菜单下的过程,输入 过程名,然后进入代码编辑,把下面的代码复制入代码框即可 Public Sub 测试() Dim x, y, z, v, bj, bx As Long x = 2 z = 2 For v = 2 To 2270 If Sheet1.Cells(z, 11) < 710 Then If Sheet1.Cells(z, 11) >= 567 Then Sheet2.Cells(x, 2) = Sheet1.Cells(z, 1) Sheet2.Cells(x, 1) = Sheet1.Cells(z, 2) Sheet2.Cells(x, 3) = Sheet1.Cells(z, 11) Sheet2.Cells(x, 4) = "一本" bj = Sheet1.Cells(z, 2) '语文 If Sheet1.Cells(z, 3) < 112 Then Sheet2.Cells(x, 5) = Sheet1.Cells(1, 3)

Sheet2.Cells(x, 6) = Sheet1.Cells(z, Sheet2.Cells(x, 7) = Sheet3.Cells(bj x = x + 1 End If '数学 If Sheet1.Cells(z, 4) < 128 Then Sheet2.Cells(x, 5) = Sheet1.Cells(1, Sheet2.Cells(x, 6) = Sheet1.Cells(z, Sheet2.Cells(x, 7) = Sheet3.Cells(bj x = x + 1 End If '英语 If Sheet1.Cells(z, 5) < 128 Then Sheet2.Cells(x, 5) = Sheet1.Cells(1, Sheet2.Cells(x, 6) = Sheet1.Cells(z, Sheet2.Cells(x, 7) = Sheet3.Cells(bj x = x + 1 End If '政治 If Sheet1.Cells(z, 7) < 71 Then Sheet2.Cells(x, 5) = Sheet1.Cells(1, Sheet2.Cells(x, 6) = Sheet1.Cells(z, Sheet2.Cells(x, 7) = Sheet3.Cells(bj x = x + 1 End If '历史 If Sheet1.Cells(z, 8) < 82 Then Sheet2.Cells(x, 5) = Sheet1.Cells(1, Sheet2.Cells(x, 6) = Sheet1.Cells(z, Sheet2.Cells(x, 7) = Sheet3.Cells(bj x = x + 1 End If '地理 If Sheet1.Cells(z, 9) < 74 Then Sheet2.Cells(x, 5) = Sheet1.Cells(1, Sheet2.Cells(x, 6) = Sheet1.Cells(z, Sheet2.Cells(x, 7) = Sheet3.Cells(bj x = x + 1 End If End If End If z = z + 1 Next v End Sub

3) + 1, 3)

4) 4) + 1, 4)

5) 5) + 1, 5)

7) 7) + 1, 6)

8) 8) + 1, 7)

9) 9) + 1, 8)

还有不懂的可以留言。


更多相关文档:

一步一步教你excel中用VBA自动从一个表按条件把数据填....doc

一步一步教你excel中用VBA自动从一个表按条件把数据填充到另一张表_计算机软

EXCEL中如何使用VLOOKUP函数查找引用其他工作表数据和....doc

EXCEL 中如何使用 VLOOKUP 函数查找引用其他工作表数据自动填充数据如何在 EXCEL 中对比两张表(不是对比两列)? 两张都是人员在职信息表,A 表长,B 表短,A ...

VBA操作网页读取数据自动填入EXCEL表中.txt

VBA操作网页读取数据自动填入EXCEL表中_互联网_IT/计算机_专业资料。利用excelvba程序实现自动查询网页信息并把结果填在excel表中,查询结果的处理因网页结构不同需...

excel表格怎么利用vba自动填充公式.doc

excel 表格怎么利用 vba 自动填充公式 excel 中使用 vba 自动填充公式的方法 1、首先我们打开一个工作样表作为例子。 2、 打开 vba 编辑窗口, 创建一个新的模块...

利用Excel VBA实现数据自动抽取汇总.pdf

利用Excel VBA 实现数据自动抽取汇总作者:徐宝平 日期:2011 年 1

巧用VBA编程实现EXCEL电子表格的批量自动打印.doc

通过制作一张学员培训券来说明 VBAExcel 中如何实现自动批量打印多张含有照...信息填充到"培训券(计算机操作员)"工作表,并培训券(计算机操作 员) '用法:1...

Excel表格中vba宏帮助你按条件拆分两个单元格中的数字.ppt

Excel表格中vba宏帮助你按条件拆分两个单元格中的数字_财务管理_经管营销_专业资料。Lazysoft Excel工作表的A1单元格和B1单元格中有两个数字,这两 个数字有一...

用ExcelVBA方法实现报表自动生成.txt

ExcelVBA方法实现报表自动生成.txt人永远不知道谁...鉴于此, 本文提 中编写条件脚本程序,让 InTouch ...第 2 步,从已经生成的 CSV 文件中读取数据 1 ...

Excel VBA实例教程 #060:使用VBA自动生成图表.doc

在实际工作中我们常用图表来表现数据间的某种相对关系,一般采用手工插入的方式,而使用 VBA 代码可以在工作表中自动 生成图表,如下面的示例代码。 1. Sub ChartAdd...

在Excel 2003中如何利用VBA实现自动定时完成工作簿的复制.doc

Excel 2003 中如何利用 VBA 实现自动定时完成工作簿的 复制摘要:excel 是微软办公套装软件的一个重要的组成部分,它可 以进行各种数据的处理、统计分析和辅助决策...

基于Excel+VBA技术的自动数据采集系统_图文.pdf

基于Excel+VBA技术的自动数据采集系统_IT/计算机_...在采集工业现场实时数据过程中存在的一系列具体问题,...<: 2@- 编程方法, 研究 开发了一个自动数据采集...

使用VBA实现Excel表单数据的自动抽取与汇总_论文.pdf

使用VBA实现Excel表单数据自动抽取与汇总_信息与通信_工程科技_专业资料。本文介绍如何使用VBA开发通用型Excel数据抽取和汇总工具,从格式相同内容不同的多份Excel表单...

用Excel公式和函数实现自动填充.doc

Excel公式和函数实现自动填充_计算机软件及应用_IT...09、用 Excel2000 做成的工资表,只有第一个人有...也可以用 VBA 编程定义宏。 47、如何快速地批量...

请问怎么在vba中建立一个odbc连接,使得可以在excel中直....doc

请问怎么在 vba 中建立一个 odbc 连接,使得可以在 excel 中 直接查询出数据库中的表关于 odbc 连接我比较陌生,想问一下可不可以实现如题的要求。 数据库环境...

利用VBA自动提取CAD图纸明细表并进行数据库管理.doc

利用VBA自动提取CAD图纸明细表并进行数据库管理_机械...每一个 DWG 文件中包 含一张或数张图纸,设计的...表中获取技术文件数据, 再利用 WORD 或 EXCEL 进行...

VBA自动提取CAD图纸明细表).doc

VBA 自动提取 CAD 图纸明细表及数据库管理的研究与...将定义好的 Block 插入到另一个图形中,就 是基于...并运行 ACAD 工程中的模块 m_excel 中的宏(过程)...

使用VBA实现EXCEL批量生成图表并发送.doc

使用VBA实现EXCEL批量生成图表并发送_计算机软件及应用_IT/计算机_专业资料。office 2007 加强版邮件合并功能,把excel 中数据批量生成图表,并将图片作为邮件正文批量...

-一步一步教你自己编制EXCEL算量表格1.doc

-一步一步教你自己编制EXCEL算量表格1_互联网_IT...表,将其复制到 Excel 模板的相应位,模板会自动...VBA 编程文件 第 8 页共 12 页 www.zaojia001....

EXCEL VBA(EXCEL透视表的制作).doc

下面就让我来和大家一起讨论一下如何用 VBA 创建,操作 EXCEL数据透视

用VBA实现把多个Excel文件合并到一个Excel文件的多个工....doc

用VBA实现把多个Excel文件合并到一个Excel文件的多个工作表(Sheet)里_计算机软件及应用_IT/计算机_专业资料。用VBA实现把多个Excel文件合并到一个Excel文件的多个...

更多相关标签:
网站地图

文档资料共享网 nexoncn.com copyright ©right 2010-2020。
文档资料共享网内容来自网络,如有侵犯请联系客服。email:zhit325@126.com