excel(数据收集与录入)
Excel基本操作
• 输入数据：选定某个单元格，输入数据， 按回车键确定 • 修改数据：1双击单元格，即可进行数据的 编辑，2也可选定该单元格后，在编辑栏中 修改 • 保存数据：执行“文件----保存”命令或单 击工具栏上的“保存”按钮，在“保存” 对话框中选择保存位置、输入文件名
本节课任务：
• 以小组为单位动手制作通讯录，通讯录中 包含本组成员信息即可。
考一考
• 1、下面哪个是单元格地址？ A:50B B:C80 C:CC D:50 2、下面哪个是Excel工作薄？ A:成绩表.xls B:考试.doc C:工作.ppt D:学生.exe
考一考
• 如果把-①-比喻为你的练习本，那 么-②-就是你练习本中的一张纸， 而-③-则是这一页纸上的格子，你 正在写入文字的这一格就是-④-。 这句话中的①②③④分别指：单元 格、当前活动单元格、工作表、工 作薄
Excel基本概念2
• 工作表：一张表格称为一个工作表，每个 工作表都有一个标签，如sheet1、sheet2 • 工作薄：一个Excel文件称为一个工作薄， 文件扩展名为xls，一个工作薄包含多张表 • 数据区域：指若干相邻单元格组成的矩形 区域，如B3：C4表示从左上角B3这个单元 格到右下角C4这个单元格组成的一个数据 区域
第一节 数据收Hale Waihona Puke 与录入Excel基本概念1
• 行、列：每个工作表包含若干行、若干列 • 单元格：行与列相交形成了一个单元格 • 当前活动单元格：单击某单元格，该单元 格四周就会显示出粗轮廓线，这样的单元 格被称为活动单元格 • 单元格的地址：每个单元格都有一个编号， 称之为地址，地址用“列号+行号”表示， 如A1表示A列第一格
《数据收集与录入-数据的来源》教学设计及反思.doc
第二课数据收集与录入——数据的收集金牛湖初级中学张世庆■教材分析本节内容主要完成纲要中的“信息识别与获取”任务。
教材内容分为两部分, 一是介绍Excel软件的功能、基本操作和基本使用方法；二是介绍数据的来源、数据的收集，尤其是使用调查问卷获取数据的知识。
本单元从Word中的表格处理引入，体现出知识的延续性，同时也要求学生在学习的过程中，注意思考、比较和总结。
“信息识别与获取”是人的基本生存需求。
获取信息的能力是一个人的基本素质，获取信息的过程也是一个人不断成长、不断提高的过程，这种能力的培养对一个人来说是终生受益的。
■学情分析这节课是数据收集与录入的第二节课，学生在上一节课对Excel有了初步的了解。
但由于绝大部分学生家里没有计算机，所以谈不上任何熟练度，课前先要回顾一下，然后再引入数据的收集这一课。
■教学目标1-知识与技能通过对数据的感知和分析，掌握获取数据的两种方法。
并能将其技能应用到实际当中。
2.过程与方法应用Excel有关窗口和基本操作，会填写有关表格数据，获取第一手资料。
3 •情感态度与价值观初步感受电子表格与word表格在数据的计算和处理、分析的优势；激发和培养学生对信息技术的兴趣。
4.行为与创新在自主学习的探究活动中，思考出对表格数据处理的新方法，从中选出迅速快捷的最佳方案。
在合作交流中做到资源共享大家齐头并进。
■课时安排安排1课时。
■教学盍点与难点1•教学重点正确理解什么是数据，以及数据获取的两种方法。
2.教学难点对调查问卷的掌握和编写，以及如何反馈。
■教学方法与手段教师演示操作、课件的指导讲述、学生探究和实践操作，■课前准备回顾上一节课Excel界面的讲述课件；学生操作的表格素材和操作要求，学生课后运用电子表格制作新的信息分析处理表格。
■教学过程教学环节教师与学生活动设计意图1、复习导入新课打开上一节课件，让学生回忆一下内容。
关键是Excel 的儿个常规操作。
让学生掌握Excel的几个操作。
Excel使用技巧利用数据表进行数据汇总和分析
Excel使用技巧利用数据表进行数据汇总和分析Excel使用技巧——利用数据表进行数据汇总和分析一、数据的录入和整理在进行数据汇总和分析之前，首先需要将数据正确地录入Excel，并进行必要的整理。
数据录入时，应保证数据的准确性和完整性，避免录入错误和遗漏。
同时，可以使用Excel的数据验证功能，对数据进行有效性检查，确保数据的合法性。
二、利用数据表进行数据汇总1. 制作数据表在Excel中，可以利用数据表功能快速创建一个数据表格，方便进行数据的汇总和分析。
选中数据区域，点击“插入”选项卡中的“表格”按钮，选择“表格”命令，即可创建一个数据表。
2. 添加汇总行和汇总列利用数据表可以方便地添加汇总行和汇总列，对数据进行快速汇总。
在数据表的最后一行，可以添加一个汇总行，在该行中使用函数计算各列数据的汇总值。
同样地，在数据表的最后一列，可以添加一个汇总列，计算各行数据的汇总值。
这样，可以快速了解整个数据表的概况。
3. 利用数据透视表进行汇总分析除了使用汇总行和汇总列进行数据汇总外，还可以利用Excel的数据透视表功能进行更加灵活和深入的数据汇总与分析。
(1) 选中数据表中的数据区域，点击“插入”选项卡中的“数据透视表”按钮，选择“数据透视表”命令，即可创建一个数据透视表。
(2) 在数据透视表的字段列表中，将需要进行汇总和分析的字段拖拽到行区域、列区域或值区域，然后进行相应设置和操作。
(3) 可以添加多个字段，进行多维度的数据汇总和分析。
可以对汇总值进行排序、过滤、格式化等操作，以及使用各种统计函数进行进一步的计算和分析。
三、利用数据表进行数据分析Excel提供了多种功能，可以方便地对数据进行分析，以及进行图表的制作和展示。
1. 条件格式化利用Excel的条件格式化功能，可以通过设置特定的条件，对数据进行可视化的处理。
比如，可以根据数据的大小、颜色、图标等条件，对数据进行高亮显示或其他格式处理，以便更清晰地观察和分析数据。
excel业绩统计表
excel业绩统计表Excel业绩统计表一、数据收集与录入在使用Excel进行业绩统计之前，首先需要收集相关的数据。
这些数据可以包括销售额、利润、客户数量等。
一般来说，这些数据可以从企业的销售系统、财务系统或其他相关系统中导出。
在收集数据时，需要确保数据的准确性和完整性。
在收集到数据后，我们可以打开Excel，创建一个新的工作簿。
在工作簿中，可以创建多个工作表，每个工作表可以用来记录特定的数据。
例如，可以创建一个工作表用于记录销售额，另一个工作表用于记录利润等。
在每个工作表中，可以设置合适的列标题，便于数据的录入和查找。
二、数据分析与计算在数据录入完成后，我们可以利用Excel的强大功能进行数据分析和计算。
首先，我们可以使用Excel的公式功能进行各种计算。
例如，可以使用SUM函数计算销售额的总和，使用AVERAGE函数计算利润的平均值，使用COUNT函数计算客户的数量等。
在计算过程中，需要确保公式的正确性，并避免出现错误。
除了基本的计算功能外，Excel还提供了丰富的数据分析工具，如排序、筛选、透视表等。
这些工具可以帮助我们更好地理解数据，发现其中的规律和趋势。
例如，我们可以使用排序功能对销售额进行排序，了解销售排名靠前的产品或客户；使用筛选功能对数据进行筛选，找出符合特定条件的记录；使用透视表功能对数据进行汇总和分析，生成直观的报表。
三、数据可视化与报表生成除了使用Excel的数据分析功能外，我们还可以利用Excel的图表功能将数据可视化。
通过将数据以图表的形式展示，可以直观地展现数据的趋势和变化。
例如，可以使用柱状图展示不同产品的销售额，使用折线图展示销售额的变化趋势，使用饼图展示不同客户所占比例等。
在生成图表时，需要选择合适的图表类型，并进行必要的设置和调整，以确保图表的清晰和易读性。
在生成图表的基础上，我们可以创建报表，将多个图表和数据表格整合在一起，形成完整的业绩统计报告。
在报表中，可以使用合适的标题和副标题，通过段落和分节，使报告的结构清晰，易于阅读。
数据收集与录入
（1）知识与技能：①掌握Excel的基本概念；②掌握Excel的基本操作；③掌握使用调查问卷获取信息。
（2）过程与方法：①学会通过不同的渠道获取信息，尤其是利用调查问卷的方式获取数据和信息；②初步掌握调查问卷的设计方法，了解开展问卷调查的一系列过程，并能合理评价调查问卷。
（3）情感态度价值观：①增强数据收集的意识，了解数据处理的广泛应用以及对社会、生活的意义；②让学生学会团队合作，养成合作、探究的良好行为习惯和良好意识。
二、教学重点①掌握Excel的基本概念；②掌握Excel的基本操作。
教学难点掌握使用调查问卷获取信息。
三、课前准备多媒体课件四、内容分析：《数据收集与录入》是苏教版初中信息技术（上册）第4单元第1节的内容，本节内容主要完成《纲要》中：“信息的识别与获取”任务。
教材内容分为两部分，一是介绍Excel软件的功能和基本操作；二是介绍数据的来源、数据的收集，尤其是通过调查问卷获取的数据。
五、学生分析：教学对象是初一年级的学生，此年级段的学生已有一定的信息素养，掌握了计算机的一些操作技能，并且也学过了word软件。
Excel是信息技术教学的一大难点，与其他教学内容的难点有一点悬殊，学生相对掌握起来有一点吃力。
本节从word中的表格处理进行引入，体现知识的延续性，同时也要求学生在学习的过程中注意思考、比较和总结。
六、教学策略分析：本部分的教学重点是引导学生自主探究，通过实践、讨论、总结等丰富多彩的学习活动，提高学生的信息素养和使用Excel解决实际问题的能力。
对于“数据的来源”部分内容，教师要有效的通过情景导入和任务驱动，引导学生探索第一手资料和第二手资料的问题，通过模仿、设计、评价的活动方式，初步学会设计调查问卷，并通过开展调查获取数据。
七、教学过程（一）观察比较、导入新课1、观察多哈亚运会奖牌榜，思考如何计算各国代表团的奖牌总数，并进行排名。
2、学生尝试做一做，讨论完成。
3、教师演示在Excel中的求和、排序等功能。
Excel在生产计划和物料需求计划中的应用实践
Excel在生产计划和物料需求计划中的应用实践随着企业规模的不断扩大和市场需求的不断增长，生产计划和物料需求计划成为企业管理中至关重要的环节。
作为一种常用的办公软件，Excel通过其强大的功能和灵活性，在生产计划和物料需求计划中得到了广泛的应用。
本文将从几个方面介绍Excel在生产计划和物料需求计划中的应用实践。
1. 数据收集与录入生产计划和物料需求计划的制定离不开大量的数据收集和录入工作。
Excel作为一款电子表格软件，提供了便捷的数据录入功能。
通过建立相关的表格结构，可以将各类数据按照一定的格式输入Excel，并进行合理的分类和整理。
同时，Excel支持多种数据格式的录入和自定义字段的添加，使得数据收集和录入工作更加灵活和高效。
2. 数据分析和运算数据的分析和运算是生产计划和物料需求计划中必不可少的环节。
Excel具有强大的数据处理和计算功能，可以对大量的数据进行分析和运算。
通过利用Excel的公式和函数，可以进行各种运算和逻辑处理，包括合计、平均、最大值、最小值等，为生产计划和物料需求计划的制定提供了有力的支持。
此外，Excel还支持数据的图表展示，方便用户直观地了解数据的趋势和变化。
3. 生产计划编制在生产计划编制过程中，Excel可以方便地进行排程和计划的制定。
通过建立任务清单和工作流程表，可以清晰地记录每个任务的时间和工作量，并合理地分配资源。
同时，Excel的筛选和排序功能可根据各项条件对任务进行排序和调整，统计各个工作环节的完成情况，并对生产进度进行动态跟踪。
4. 物料需求计划编制物料需求计划编制是确保生产计划正常进行的关键环节。
Excel可以通过建立物料清单和库存表，精确地计算物料的需求量和采购量。
通过运用Excel的相关函数和公式，可以进行成本的计算和优化，提高物料的利用率和采购效益。
此外，Excel还支持数据的筛选和排序，方便用户根据不同的需求对物料进行分类和管理。
5. 数据汇总和报表生成生产计划和物料需求计划的制定完成后，需要进行数据的汇总和报表的生成。
Excel操作技巧大全—2 数据输入和编辑技巧
第2节数据输入和编辑技巧2.2.1 在一个单元格内输入多个值我们有时需要在某个单元格内连续输入多个数值，以查看引用此单元格的其他单元格的效果。
但每次输入一个值后按回车键，活动单元格均默认下移一个单元格，非常不便。
其实可以采用以下方法:单击鼠标选定单元格，然后按住Ctrl键再次单击鼠标选定此单元格，此时，单元格周围将出现实线框，再输入数据，敲回车键就不会移动了。
2.2.2 增加工作簿的页数单击“插入→工作表”命令，即可在底部看到一个新名称的工作表。
2.2.3 奇特的F4键Excel中有一个快捷键的作用极其突出，那就是F4键。
作为“重复”键，F4键可以重复前一次操作，在很多情况下起作用，比如在工作表内加入或删除一行，然后移动插入点并按下F4键以加入或删除另一行，根本不需要使用菜单。
2.2.4 将格式化文本导入Excel 1.在Windows“记事本”中输入格式化文本，每个数据项之间会被空格隔开，当然你也可以用逗号、分号、Tab键作为分隔符。
输入完成后，保存此文本文件并退出; 2.在Excel中打开刚才保存的文本文件，出现“文本导入向导-3步骤之1”对话框，选择“分隔符号”，单击“下一步”;3.在“文本导人向导-3步骤之2”对话框中选择文本数据项分隔符号，Excel提供了Tab键、分号、逗号以及空格等供你选择。
注意，这里的几个分隔符号选项应该单选。
你在“预览分列效果”中可以看到竖线分隔的效果。
单击“下一步”;4.在“文本导人向导-3步骤之3”对话框中，你可以设置数据的类型，一般不需改动，Excel自动设置为“常规”格式。
“常规”数据格式将数值转换为数字格式，日期值转换为日期格式，其余数据转换为文本格式。
单击“完成”按钮即可。
2.2.5 快速换行我们在使用Excel制作表格时经常会遇到需要在一个单元格输入一行或几行文字的情况，如果输入一行后敲回车键就会移到下一单元格，而不是换行，有一个简便实用的操作方法可以实现换行:在选定单元格输入第一行内容后，在换行处按“Alt+回车键”，即可输入第二行内容，再按“Alt+回车键”输入第三行以此类推。
“初识Excel—数据收集与录入”教学设计
“初识Excel—数据收集与录入”教学设计连云港市赣榆县金山中学傅西连一．设计思想课前设计有效的活动，精心设计上课的环节，促使每个学生主动的参与到课堂学习中来，提高学生参与的积极性，才会造就精彩而高效的课堂。
这一章内容主要讲的是数据，学生的兴趣不是很浓，而且Excel软件是学生以前没有接触过的，有一定的难度，另外七年级的学生心智还不成熟，注意力不能完全集中，易受网络、游戏等影响，因此创设一个让学生主动参与的情境，让学生动起来是上好这章内容的良好的开端，我发现学生到了快毕业的时候都喜欢做一些通讯录，收集一些平时要好的朋友、同学的资料，方便今后联系，为此我对教材内容做了适当的调整，让通讯录这个活动从情境导入开始就贯穿整个课堂，为了照顾到学生的个性发挥，我并没有限制通讯录的统一样式，而是让学生通过小组讨论确定自己的通讯录的栏目，然后收集资料、输入资料等，学生都忙起来了，从表面看更像活动课，但就是在活动中，学生的综合能力得到了提高，信息素养也得到了培养，同时通过活动学生对一些概念有了切身感受，也较易掌握。
为了尽可能的减少学生间的差异，我设置了学案，同时在平时的课堂中强调小组合作学习，并且在老师的引导下鼓励学生自主探究学习，目的都是为了提高学生的综合能力。
二．教材分析“数据收集与录入”是江苏省《初中信息技术》（上册）第四章第一节的内容，本节内容主要完成《纲要》中“信息的识别与获取”任务，分为两部分，一是介绍Excel软件的功能和基本操作；二是介绍数据的来源、数据的收集，本课是第一课时初识Excel，主要培养学生获取信息的能力，本课的学习对于这一章的学习起了一个很好的开头作用，因此如何激发学生的学习兴趣，显得尤为重要。
三．学情分析本节课主要针对七年级学生，我们学校的学生从小学三年级就接触到了信息技术的学习，通过小学几年的学习，学生具备了一定的信息素养，掌握了基本的信息技术知识和技能，有一定的操作基础，但对一些概念性的理论知识不是很感兴趣，理论知识相对欠缺，他们对感兴趣的东西学习积极性特别高且乐于探索，有争强好胜心理，但学习中易受网络、游戏等影响，注意力不够集中，另外因各种因素，学生之间存在一定的差异。
第1章 Excel数据管理基础
三、数据格式设置
字体、字形、 字体体、字形、字体颜色设置 字体、字形、
跨列居中 垂直对齐 文本、 文本、数字的旋转 取消合并单元格
五、格式化数据
文本 数值、 数值、百分比和科学计数 货币和会计专用 日期和时间 特殊和自定义
1.2 数据处理
数据有效性检查 数据排序 数据筛选 数据分类汇总 条件格式 数据合并计算
一、数据录入基本概念
工作表：工作表就是人们常说的电子表格， 工作表：工作表就是人们常说的电子表格， 由一些横向和纵向的网格组成， 由一些横向和纵向的网格组成，横向的称为 纵向的称为列， 行，纵向的称为列，在网格中可以填写不同 的数据。一个表格最多有65536行，256列。 的数据。一个表格最多有 行 列 每个工作表有一个名字， 每个工作表有一个名字，体现在工作表标签 只有一个工作表是当前工作表， 上。只有一个工作表是当前工作表，刚打开 一个工作簿时， 是当前工作表。 一个工作簿时，Sheet1是当前工作表。 是当前工作表
一、数据录入基本概念
单元格： 工作表实际上是一个二维表格， 单元格：Excel工作表实际上是一个二维表格，单 工作表实际上是一个二维表格 元格就是这个表格中的一个“格子” 元格就是这个表格中的一个“格子”。单元格由它 所在行、列所确定的坐标来标识和引用， 所在行、列所确定的坐标来标识和引用，在标识或 引用单元格时，列标符号在前面，行号在后面； 引用单元格时，列标符号在前面，行号在后面； 活动单元格：在工作表中， 活动单元格：在工作表中，有时会有一个或多个单 元格由粗边框包围， 元格由粗边框包围，这种由粗边框包围的单元格称 为活动单元格（又称当前单元格）。 为活动单元格（又称当前单元格）。
一、数据录入基本概念
公式： 公式：公式是对工作表数据进行运算的表达 公式不仅可以进行数学运算， 式。公式不仅可以进行数学运算，如加法和 乘法，还可以比较工作表数据或合并文本。 乘法，还可以比较工作表数据或合并文本。 中输入公式时， 在Excel中输入公式时，第一个输入的符号必 中输入公式时 须是等号“ 。 须是等号“=”。
数据收集与录入
数据收集与录入一、教学目的：1.了解Excel的功能和特点。
2.了解Excel中工作簿、工作表、活动单元格等有关概念。
3.掌握工作簿的建立、保存和打开等操作。
4.掌握输入和修改数据的方法。
二、教学方法：探究学习、实践学习。
三、教学重难点：输入和修改数据的方法四、教学过程：1、情景导入在日常的生活中，我们经常使用某种工具进行统计。
在Office2003中，Excel电子表格软件可以方便地对各种数据进行统计分析。
如学习成绩，人口，,运动会奖牌统计等等。
教师展示“2006年第十五届多哈亚运会”相关信息表格。
请学生观察，并思考如何计算图中各国代表团所得的奖牌总数进行排序,美化,做成右边漂亮的表格。
2、介绍Excel窗口界面Excel它具有友好的用户界面，能进行数据的输入、计算和输出，能够用形象化的图表来表示数据，有强大的数据计算和分析处理功能，能实现数据筛选、排序、数据查询和分类汇总等统计工作，其工作簿共享功能使多个用户能同时处理同一个工作簿。
Excel是迄今为止功能最强的电子表格软件。
特点：操作简易、处理功能强大。
教师可以个人信息资料表格为例，分析Excel窗口，请学生先观察分析，并与Word的软件界面进行对比，找到窗口组成中的相同与不同之处。
此处要强调活动单元格、单元格地址、工作区、工作表、工作簿等概念，介绍Excel中的“菜单栏”、“常用工具栏”、“格式工具栏”、“编辑栏”、“工作表标签栏”等窗口组成情况。
3、学生实践建立通讯录（1）启动Excel让同学们回忆以前Word软件是如何启动的，再进行尝试：①双击桌面上的“快捷方式”图标。
②执行“开始→程序→Microsoft Office→Microsoft Office Excel 2003”命令。
（2）建立工作簿当我们每次启动Excel时，系统将会自动为我们打开一个新的工作簿Book1.xls，一般而言，一个工作簿可以包括多张工作表，每张工作表中都可以存放数据和图表，在当前工作表标签中显示的是当前工作簿里每个工作表的名称。
用Excel建立数据录入系统
用Excel建立数据录入系统-升级版(2013-09-06 16:02:28)转载▼分类：OFFICE标签：excelvba一、数据采集系统功能录入、保存、查询、清空、修改二、两个界面1. 数据录入界面：前台功能使用界面，实现“录入、保存、查询、清空、修改”；2. 数据存储界面：后台实现数据的保存；录入界面：三、实现方法1. 保存功能Sub Save()''保存数据Marco，xiaohou制作，时间2013-9-5'Dim r1, r2, r3 As RangeWith Sheets("数据存储")Set r2 = .Range("a2", .[a100000].End(xlUp))End WithWith Sheets("数据录入")Set r1 = .Range("c4:e4, d6:l39")If IsEmpty(.Range("c4")) Or IsEmpty(.Range("e4")) Then'Or IsEmpty(.Range("b7:b41")) 添加科室不为空，未成功MsgBox ("编码、名称为空，不可保存！")ElseSet r3 = r2.Find(.Cells(4, 3), , , 1)If Not r3 Is Nothing ThenMsgBox ("此编码已存在，不可保存。
如果此信息需要修改，请点击查询后再修改")ElseSheets("数据存储").Rows("2:35").Insert Shift:=xlDown.Range("c6:l39").Copy '复制“数据录入”表体信息Sheets("数据存储").Range("c2:l2").PasteSpecial Paste:=xlPasteValues.Range("c4").Copy '复制“数据录入”编码Sheets("数据存储").Range("a2:a35").PasteSpecial Paste:=xlPasteValues.Range("e4").Copy '复制“数据录入”名称Sheets("数据存储").Range("b2:b35").PasteSpecial Paste:=xlPasteValuesr1.ClearContents '保存数据后，清空录入界面.Range("c4").SelectEnd IfEnd IfEnd WithEnd Sub2. 查询功能Sub Query()'' 查询筛选Macro，xiaohou制作，时间2013-9-5''Dim Erow As IntegerDim r1, r2 As RangeWith Sheets("数据录入")Set r1 = .Range("d6:l39")Set r2 = .Range("a6:b39")Erow = Sheets("数据存储").[a100000].End(xlUp).Rowr1.ClearContents'For Each ce In .[a2:x2]'If ce <> "" Then ce.Value = "*" & ce & "*" '加上通配符*,实现模糊查询'NextIf IsEmpty(.Range("c4")) Or IsEmpty(.Range("e4")) Then'Or IsEmpty(.Range("b7:b41")) 添加科室不为空，未成功MsgBox ("编码、名称为空，不可查询！")ElseSheets("数据存储").Range("A1:l" & Erow).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _ .[c3:e4], CopyToRange:=.[A5:l5], Unique:=Falser2.Borders(xlDiagonalDown).LineStyle = xlNoner2.Borders(xlDiagonalUp).LineStyle = xlNoner2.Borders(xlEdgeLeft).LineStyle = xlNoner2.Borders(xlEdgeTop).LineStyle = xlNoner2.Borders(xlEdgeBottom).LineStyle = xlNone'r2.Borders(xlEdgeRight).LineStyle = xlNoner2.Borders(xlInsideVertical).LineStyle = xlNoner2.Borders(xlInsideHorizontal).LineStyle = xlNoner2.NumberFormatLocal = ";;;"'For Each ce In .[a2:x2]'If ce <> "" Then ce.Value = Mid(ce, 2, Len(ce) - 2) '取消"*"通配符'NextEnd IfEnd WithEnd Sub3. 更新Sub Update()''更新Macro，xiaohou制作，时间2013-9-5Dim arr, d As ObjectDim r As RangeDim lr&, i&, j%With Sheets("数据录入") '查询修改工作表数据区域写入数组arr'arr = .Range("A7:D" & .Range("A65536").End(xlUp).Row)arr = .Range("a6:l39")Set r = .Range("d6:l39")End WithSet d = CreateObject("scripting.dictionary") '定义字典对象For i = 1 To UBound(arr) '逐行'If Len(arr(i, 2)) <> 0 Then '排出“合计”行，即：姓名务数据If Not d.exists(arr(i, 1) & arr(i, 2) & arr(i, 3)) Then d(arr(i, 1) & arr(i, 2) & arr(i, 3)) = arr(i, 4) & Chr(9) & arr(i, 5) _& Chr(9) & arr(i, 6) & Chr(9) & arr(i, 7) & Chr(9) & arr(i, 8) & Chr(9) & arr(i, 9) & Chr(9) & arr(i, 10) & Chr(9) & arr(i, 11) & Chr(9) & arr(i, 12)'上一句：如果编码和名称连接字符串字典不存在(首次出现，这里判断可能多余)，这个字符串添加到字典键值，后续的相关属性字段用制表符连接添加到字典条目'End IfNextWith Sheets("数据存储")lr = .Range("A100000").End(xlUp).Row '数据存储工作表数据行数'.Range("C2:D" & lr).SpecialCells(xlCellTypeConstants, 23).ClearContents '清除C、D列不含公式单元格的值arr = .Range("A2:l" & lr) '数据存储工作表数据区域写入数组arrFor i = 1 To UBound(arr) '逐行If d.exists(arr(i, 1) & arr(i, 2) & arr(i, 3)) Then '如果编码和名称连接字符串字典存在，即Sheet2中有For j = 4 To 12 'D、E、F...列逐列'If Not Cells(i, j).HasFormula Then Cells(i, j) = Split(d(arr(i, 1) & arr(i, 2)), Chr(9))(j - 3)'上句：如果单元格不含公式，把Sheet2对应的数据写入这个单元格.Cells(i + 1, j) = Split(d(arr(i, 1) & arr(i, 2) & arr(i, 3)), Chr(9))(j - 4) NextEnd IfNextEnd Withr.ClearContentsSheets("数据录入").Cells(4, 3).SelectMsgBox ("数据已更新完成，若要查看更新后的内容，请点击按钮查询") End Sub4. 清空Sub Clear()''查询内容后，清空单元格Marco，xiaohou制作，时间2013-9-5'Dim r As RangeWith Sheets("数据录入")Set r = .Range("c4,e4,d6:l39")End Withr.ClearContentsEnd Sub5. 加密隐藏敏感信息、加密保护关键字段，就ok了。