重复值加色
色相配色
HSB颜色模式
基本配色
• 105 101 • 无色设计
98
• 不用彩色，只用黑 、 • 白、灰色。
• 92 88 73 • 类比设计 • 在色相环上任选 三个连续的色彩 或其任一 明色和暗色。
• 4 68 • 冲突设计 • 把一个颜色和它补 色 左边或右边的色彩 配 合起来。
• 9244 • 互补设计 • 使用色相环上全 然相 反的颜色。
4、重复配色
重复是指在同一设计中，相同的
颜色出现两次以上，重复手法是设 计中比较常用的，形成有规律的节
奏感，使画面统一。
红色
热情、活泼、热闹、革命、温暖、幸福
色彩应用
警示、喜庆场合、标语、滚动字幕等
搭配方案
红色与枚红色和黄色相配，会有一种华丽 大气的感觉；红色与它的渐变色搭配会产生一 种甜美的效果，红色与蓝色搭配强烈醒目，可 以在其彩度和面积上加以对比。
无论是童年、青年、中年、还是老年，使用绿色决 不失其活泼、 大方。在各种绘画、装饰中都离不开
绿色，绿色还可以作为一种休闲的颜色。
搭配方案
绿色中掺入黄色为黄绿色，单纯、年轻；绿色中
掺入蓝色为蓝绿色，它清秀、豁达。含灰的绿色， 宁静、平和，就像暮色中的森林或晨雾中的田野。 深绿色和浅绿色相配有一种和谐、安宁的感觉；绿 色与白色相配，显得很年轻。
搭配方案
不同的蓝色与白色相配，表现出明朗、 清爽与洁净；蓝色与黄色相配，对比度大， 较为明快；大块的蓝色一般不与绿色相配， 它们只能互相渗入，变成蓝绿色、湖蓝色 或青色。
紫色 优 雅、高贵、魅力、神圣、自傲
色彩应用
具有强烈的女性化性格，在商业设计用色中，紫色 也受到相当的限制，除了和女性有关的商品或企业 形象之外，其他类类似色相的配色是在色 相环上呈30度至60度角的色 相间的配色。 使用类似色相的近似色 调进行配色，有甜美、浪漫 的感觉，是初春服装的流行 色彩。差异大些的类似色相 容易调和，为多数人所喜爱， 广泛用于化妆品、食品等的 包装及服装的配色中。
EXCEL表格中公式大全1
Excel常用电子表格公式大全1、查找重复内容：（格式—条件格式）公式=IF(COUNTIF($D$2:D2,D2)>1,"重复","不重复")或=IF(COUNTIF($D$2:D2,D2)>1,"重复","")=COUNTIF($D$2:$D$500,$D2)>=22、数据--筛选--高级筛选--输入数据区域--勾选"选择不重复记录"--确定3、=COUNTIF(D$2:D2,D2)>1这个是提示一列中第二个重复。
EXCEL一列内如何区分出重复的文字问：EXCEL表的客户名录,如果区分是否重复答：在客户名录后面一列（假设为B列）输入=if(countif($B$1:B1,B1)>1,"重复","不重复")4、EXCEL条件格式教程:用条件格式辨别重复数值在excel2003中，我们会发现辨别一个范围中的重复数值是非常有帮助的。
可以使用下面的条件格式公式。
在该例子中，格式应用于范围A1:G2中所有非惟一单元格中=COUNTIF($A$1:$G$12,A1)>1在一个范围中只对非重复数值应用格式，使用下面的公式=COUNTIF($A$1:$G$12,A1)=1实例：将A1:G2中的重复值添加特殊的格式。
1.选择要设置交替行阴影的单元格区域A1:G2，点击菜单栏的“格式”——“条件格式”，将弹出“条件格式”对话框。
2.在“条件格式”对话框中的“条件1”下拉列表框中选择“公式”，然后在公式输入框中输入公式“=COUNTIF($A$1:$G$12,A1)>1”，并设置其格式为蓝色加粗。
然后添加“条件2”公式为“=COUNTIF($A$1:$G$12,A1)=1”，并设置其格式为红色加粗。
3.点击“确定”按钮关闭“条件格式”对话框。
如何在Excel中按单元格颜色对数据进行排序并删除重复的数值和文本
如何在Excel中按单元格颜色对数据进行排序并删除重复的数值和文本在Excel中，按单元格颜色对数据进行排序并删除重复的数值和文本是一个非常有用的操作。
这个功能可以帮助我们更轻松地整理和分析数据。
在本文中，我将详细介绍如何使用Excel中的筛选功能实现这一目标。
首先，我们需要准备要处理的数据。
假设我们有一个包含许多数值和文本的数据表格，其中的每个单元格都有不同的颜色。
我们的目标是按照单元格颜色对数据进行排序，并且删除重复的数值和文本。
要实现这个目标，我们可以按照以下步骤进行操作：步骤一：选择要处理的数据范围在Excel中打开我们的数据表格，并确定要处理的数据范围。
可以是整个表格，也可以是特定的列。
选中这个数据范围，确保在处理过程中我们只会对这些数据进行操作。
步骤二：打开筛选功能在Excel的顶部菜单栏中，点击“数据”选项卡，然后点击“筛选”。
这将打开一个筛选功能的窗口。
步骤三：按颜色筛选在筛选功能窗口中，我们会看到一个“按颜色”选项。
点击它，并选择我们想要按照的颜色。
这将使得Excel只显示具有这个颜色的单元格。
步骤四：排序数据在已经筛选出指定颜色的单元格之后，我们可以对这些数据进行排序。
在Excel的顶部菜单栏中，点击“开始”选项卡，然后选择“排序和筛选”。
这将打开一个排序功能的窗口。
在排序功能窗口中，选择我们想要根据的列，以及排序的方式（升序或降序）。
点击“确定”按钮，Excel将会按照我们指定的方式对数据进行排序。
步骤五：删除重复数据在完成了数据的排序之后，我们可以删除重复的数值和文本。
在Excel的顶部菜单栏中，点击“数据”选项卡，然后选择“删除重复项”。
这将打开一个删除重复项的窗口。
在删除重复项的窗口中，选择我们要根据的列，并点击“确定”按钮。
Excel将会删除所有重复的数值和文本，只保留一个。
通过按照以上五个步骤进行操作，我们就成功地在Excel中按照单元格颜色对数据进行了排序并删除了重复的数值和文本。
excel符合条件单元格标颜色
excel符合条件单元格标颜色
对单元格符合条件标颜色1模拟数据
在Excel中A:C输入数据，D中输入条件数据即要求对A:C 中最接近D的值标颜色接近有正向接近和负向接近，所以是A1:C1数据-D1的绝对值最小min 丨x-D丨在Excel中的表达式即为MIN(ABS($D$1-$A$1:$C$1))这个数组公式计算结果=0.2那么接下来就是判断D1-A1:C1某个单元格绝对值为0.2，即标上颜色2设置条件格式选中A1:A3数据，在【开始】-【条件格式】-【管理规则】-【新建规则】-【使用公式确定要设置格式的单元格】输入公式：
=ABS($D$1-A1)=MIN(ABS($D$1-$A$1:$C$1))3进一步理解条件格式原理：在框选的三个单元格中输入公式条件格式公式的值为1（true）的单元格，才会按你设置的预览效果展示假如我们框选的单元格是A2:C2，按同样的公式设置格式，得到的结果便是A2单元格标为绿色，为什么？把条件格式的公式=ABS($D$1-A1)=MIN(ABS($D$1-$A$1:$C$1))在A2单元格输入，向右填充至C2(这个时候应该能理解有些单元格为绝对引用，有些单元格没有绝对引用，没有绝对引用会随着填充而进行变化)只有A2单元格返回true值，B2:C2都是false，A2单元格就会标注会绿色所以当选择条件格式设置的区域为A1:C1时，自然A1就会标颜色不知道有没有理
解，自己动手试试公式吧！看十遍，不如自己动手做一遍========================同步原创微信公众号：自学成才ExcelID：selftt关注获取更多精彩内容！。
Excle让不同类型数据用不同颜色显示
也许你已经在Excel中完成过上百张财务报表，也许你已利用Excel函数实现过上千次的复杂运算，也许你认为Excel也不过如此，甚至了无新意。
但我们平日里无数次重复的得心应手的使用方法只不过是Excel全部技巧的百分之一。
本专题从Excel中的一些鲜为人知的技巧入手，领略一下关于Excel的别样风情。
一、让不同类型数据用不同颜色显示在工资表中，如果想让大于等于2000元的工资总额以“红色”显示，大于等于1500元的工资总额以“蓝色”显示，低于1000元的工资总额以“棕色”显示，其它以“黑色”显示，我们可以这样设置。
1.打开“工资表”工作簿，选中“工资总额”所在列，执行“格式→条件格式”命令，打开“条件格式”对话框。
单击第二个方框右侧的下拉按钮，选中“大于或等于”选项，在后面的方框中输入数值“2000”。
单击“格式”按钮，打开“单元格格式”对话框，将“字体”的“颜色”设置为“红色”。
2.按“添加”按钮，并仿照上面的操作设置好其它条件(大于等于1500，字体设置为“蓝色”；小于1000，字体设置为“棕色”)。
3.设置完成后，按下“确定”按钮。
看看工资表吧，工资总额的数据是不是按你的要求以不同颜色显示出来了。
二、建立分类下拉列表填充项我们常常要将企业的名称输入到表格中，为了保持名称的一致性，利用“数据有效性”功能建了一个分类下拉列表填充项。
1.在Sheet2中，将企业名称按类别(如“工业企业”、“商业企业”、“个体企业”等)分别输入不同列中，建立一个企业名称数据库。
2.选中A列(“工业企业”名称所在列)，在“名称”栏内，输入“工业企业”字符后，按“回车”键进行确认。
仿照上面的操作，将B、C……列分别命名为“商业企业”、“个体企业”……3.切换到Sheet1中，选中需要输入“企业类别”的列(如C列)，执行“数据→有效性”命令，打开“数据有效性”对话框。
在“设置”标签中，单击“允许”右侧的下拉按钮，选中“序列”选项，在下面的“来源”方框中，输入“工业企业”，“商业企业”，“个体企业”……序列(各元素之间用英文逗号隔开)，确定退出。
表格中满足公式条件自动变色
表格中满足公式条件自动变色全文共四篇示例，供读者参考第一篇示例：表格是我们在日常工作和学习中经常会用到的工具，它能够清晰地展示数据和信息，帮助我们进行数据分析和决策。
通过一些特定的设置，我们还可以让表格更加直观和易于理解。
其中一种常见的设置就是根据条件来自动变色，这样可以更快速地找到符合特定条件的数据，从而提高工作效率。
在Excel等电子表格软件中，我们可以通过设置条件格式来实现这一功能。
条件格式是一种灵活的功能，可以让我们根据不同的条件来设置不同的格式，比如文字颜色、填充颜色、字体等。
这样，当数据符合特定条件时，就会自动显示相应的格式效果，使得数据更加清晰明了。
一个常见的应用场景就是根据公式条件来自动变色。
我们想要在一个销售数据表中标出销售额超过10000的业绩，我们可以设置一个条件格式，当销售额大于10000时，该单元格就会自动变色，这样我们就能一目了然地看出哪些业绩达标，哪些还需要努力。
接下来，让我们来详细介绍一下如何在Excel中实现表格中满足公式条件自动变色的设置。
打开Excel并创建一个包含销售数据的表格。
假设我们有一个销售人员的业绩数据表，其中包含姓名、销售额等字段。
接着，选中需要设置条件格式的单元格范围。
在本例中，我们选中了销售额这一列的数据。
然后，点击Excel界面上的“开始”选项卡，在“样式”组中找到“条件格式”，点击“条件格式”下拉菜单中的“新建规则”。
在弹出的“新建规则”对话框中，我们选择“使用一个公式确定要设置格式的单元格”，然后在“格式值”框中输入我们的公式条件。
我们想要设置销售额大于10000时单元格变色，那么我们的公式条件可以写为“=B2>10000”，其中B2表示我们选中的单元格，>10000表示大于10000的条件。
接下来，点击“格式”按钮，选择我们想要设置的格式，比如背景色为绿色。
点击“确定”按钮，我们就成功设置了条件格式。
此时，销售额大于10000的单元格就会自动变成绿色，让我们更容易地看出哪些销售额达标。
单元格两列数值相同填充颜色条件格式
《单元格两列数值相同填充颜色条件格式》一、前言在Excel等电子表格软件中，条件格式是一种非常实用的功能，它可以根据设定的条件自动对单元格进行格式化，使得数据的呈现更加直观、清晰。
而其中一种常见的条件格式就是针对两列数值相同的情况进行填充颜色，这在数据分析和对比中非常有用。
二、简单介绍我们要了解如何在Excel中应用条件格式。
在Excel中打开你要处理的表格后，选择要添加条件格式的单元格区域，然后点击“开始”菜单中的“条件格式”按钮，接着选择“新规则”，在弹出的对话框中选择“使用公式确定要设置格式的单元格”，在“格式值”中输入对比数值的位置，选择填充的颜色，并且在“格式值”处输入公式“=$A2=$B2”。
三、深入探讨上述方法是最基本的使用条件格式来填充相同数值的方法，但是我们也可以对条件格式进行更加灵活的设置。
我们可以使用不同的颜色来表示不同的数据，从而让数据的对比更加直观；我们还可以对比多列数据的情况，进行更加复杂的条件格式设计。
我们还可以设置条件格式的排列顺序，以及应用的范围，从而使得条件格式的应用更加灵活和个性化。
四、总结回顾通过对单元格两列数值相同填充颜色条件格式的介绍和深入探讨，我们可以得出以下结论：条件格式在数据分析和对比中起着非常重要的作用，能够使数据更加直观地呈现出来，帮助我们更好地理解数据的规律和关系。
通过灵活运用条件格式，我们能够对不同类型的数据进行更加直观的分析和对比，从而更好地满足不同的需求。
五、个人观点和理解作为一名数据分析师，我经常使用条件格式来对数据进行可视化处理。
我认为，条件格式不仅仅是简单的填充颜色，更是一种对数据的理解和表达。
通过对条件格式的灵活运用，我们能够从数据中发现更多的规律和关系，为决策提供更加有效的支持。
我非常重视条件格式的学习和运用，在实际工作中也经常使用条件格式来辅助数据分析和报告。
在实际应用中，我发现条件格式在复杂数据情境下能够发挥更大的作用。
百宝箱9.0功能一览表
【工作表批量加解密】:批量对工作表进行加密码、解除密码（只能批量解除自己设置的密码）。
【破解工作表/簿密码】:可以破解工作表密码和工作簿密码。在不知道密码的前提下找回密码
【批量命名文件】:对指定文件夹下所有文件进行重命名。可以限定文件类型或者对所有类型文件进行命名。可以在原文件名前或者后插入新名称，也可以替换原名称。
【图表条件格式】:对图表的系列执行条件格式，可以设置2到3个条件，符合条件的系列值填充指定的颜色
【修改文件时间】:随心所欲修改文件的创建时间
【清除IE上网密码】:用于清除IE浏览器的密码，突破上网限制
【创建多版本打开方式】:如果安装了多个版本的Office，本工具可助您任意选择Excel文件的打开方式。通过文件右键的“发送到”菜单执行
【将公式转换成值】：将指定工作表中指定区域的公式转换成值，可以自由选择工作表和单元格范围。
【根据工资计算钞票】：根据员工的工资计算需要多少张100元、50元......1元的钞票，可以批量计算。发现金工资的财务工作者必备
【隔行插入行】：对工作表隔行插入行，或者隔列插入列，其中行数可以自定义
【折分工作簿】：将指定工作簿的每个工作表拆分成单独的工作簿，新工作簿名称等于原工作表名称
【工作簿一键减肥】:对工作簿减肥，不损坏数据的前提下，让工作簿容量减少，从而提升开启速度。
【打印当前页】:仅仅打印当前鼠标所在页，忽略其它数据
【双面打印】:打印双面小册子专用
【打印底端标题】:将最后几行做为底端标题进行打印，弥补Excel只有顶端标题之不足
【生成系统图标】:VBA编程人员常用的工具。可以查询Excel内部图标的ID号
7个极具技巧的公式嵌套，直接套用，不收藏就太可惜了
7个极具技巧的公式嵌套，直接套用，不收藏就太可惜了如果你关于重复值有计算或者标记需求,下方这7个公式应该可以包含所有你的需求了.我们从简单的开始,越往后越难.当然你可以照搬我写的这些公式.01标记重复值但凡出现重复值,用这个公式进行标记.=IF(COUNTIF($A$2:$A$9,A2)>1,'重复','')02标记非第一次出现重复值第一次出现重复值,不对其进行标记,多次出现之后,做重复标记.=IF(COUNTIF($A$2:A2,A2)>1,'重复','')03标记第一次出现重复值如果在一列中有重复值,对出现重复值的内容进行第一个出现的标定.=IF(COUNTIF(A2:A9,A2)>1,'重复','')04去重计数下方总共8个单元格出现2个人的重复值,去重之后应该是6个人,重复出现的内容不记录其中.=SUMPRODUCT(1/COUNTIF(A2:A9,A2:A9))05对未重复的内容计数李秋水和萧远山属于重复值,只对唯一值进行计数.=SUMPRODUCT(IF(COUNTIF(A2:A9,A2:A9)=1,COUNTIF(A2: A9,A2:A9),''))06对重复的内容计数李秋水和萧远山属于重复内容,对重复内容进行计数.=SUMPRODUCT(IFERROR(1/IF(COUNTIF(A2:A9,A2:A9)>1,C OUNTIF(A2:A9,A2:A9),''),''))07去重唯一值清单对人员名单进行去重,提取唯一值.当然如果新版本用户,可以使用UNIQUE函数.=IFERROR(INDEX($A$2:$A$9,MATCH(0,COUNTIF($C$1:C1,$ A$2:$A$9),0)),'')新版本包括365,2021,WPS新版,可以使用去重函数去做.考虑到很多朋友使用的是老版本,所以可以使用以上公式做到所有关于重复值的处理问题.并且以上公式直接套用就行.如果喜欢老徐的内容,记得给老徐点赞谢谢咯!!。
EXCEL 查找重复数据并标出颜色
EXCEL 查找重复数据并标出颜色一、区域内查找重复数据1、选中在表中需要重复查找的区域。
2、打开“格式”－＞“条件格式”对话框。
3、把“条件格式”对话框最左边的“单元格数值”改为“公式”，并且在右边的文本框中输入“=COUNTIF（”。
4、对选中的重复区域再次用鼠标框选，则在“条件格式”对话框的公式编辑栏内增加$A$1:$B$11，此时右边的公式变为“=COUNTIF（$A$1:$B$11”。
现在把公式补充完整为“=COUNTIF（$A$1:$B$11,A1）＞1”（A1表示从这个单元格也必须从这个单元格开始，否则会出错；＞1表示有2个以上的重复数据）。
5、点选“条件格式”对话框中的“格式”，出现“单元格格式”对话框，点选“图案”标签，选中自己想要的颜色，点“确定”，此时“条件格式”对话框中“格式”颜色改变（当然也可以改边框、字体）。
再次点击“条件格式”对话框中的“确定”，这样就完成了重复数据的颜色显示。
二、列内查找重复数据1、选中在表中需要重复查找的列D。
2、打开“格式”－＞“条件格式”对话框。
3、把“条件格式”对话框最左边的“单元格数值”改为“公式”，并且在右边的文本框中输入“=COUNTIF(D:D,D1)>1”。
此公式的含义是：彻底查看列D列的整个区域。
计算此区域内有多少单元格的值与单元格D1相同，然后进行对比以确定该计数是否大于 1。
4、点选“条件格式”对话框中的“格式”，出现“单元格格式”对话框，点选“图案”标签，选中自己想要的颜色，点“确定”，此时“条件格式”对话框中“格式”颜色改变（当然也可以改边框、字体）。
再次点击“条件格式”对话框中的“确定”，这样就完成了重复数据的颜色显示。
5、如果对D列的数据选中后复制，通过“选择性粘贴”，选择“格式”到E列，则可以把E列的重复数据查找出来。
但这种复制对区域选择不适用。
利用条件格式对数据进行颜色标记
利用条件格式对数据进行颜色标记在Excel中，条件格式是一个非常实用的功能，通过它我们可以根据特定的条件对数据进行颜色标记，以便更好地展示数据的特点和趋势。
本文将分享一些常用的条件格式技巧，帮助您更好地利用条件格式对数据进行颜色标记。
一、基本的条件格式设置1. 格式刷功能：选择需要格式化的单元格，点击“格式刷”按钮，再选中需要应用格式的单元格，即可将原单元格的条件格式应用到其他单元格上。
2. 单元格值的条件格式：可以根据单元格的数值范围或特定的数值进行条件格式设置。
比如，可以将某一列数字大于10的单元格标记为红色，小于10的单元格标记为绿色。
3. 文字条件格式：可以根据单元格中的文字内容进行条件格式设置。
比如，可以将某一列包含“优秀”的单元格标记为绿色，包含“不及格”的单元格标记为红色。
二、高级的条件格式设置1. 使用公式进行条件格式设置：可以根据自定义的公式来设置条件格式。
比如，可以根据单元格数值的绝对值大小来进行颜色标记。
2. 使用图标集进行条件格式设置：可以根据图标集来对数据进行标记。
比如，可以根据数据的大小将单元格标记为不同的图标，如上升箭头、下降箭头等。
3. 使用数据条进行条件格式设置：可以根据数据的大小来使用数据条进行标记。
比如，可以将某一列的数值按照大小显示为不同的长度的数据条，从而直观地展示数据的大小关系。
三、条件格式的常见应用场景1. 数据的异常标记：可以通过条件格式将数据异常的单元格标记出来，便于快速发现和处理异常数据。
比如，可以将超出一定范围的数值标记为红色，以便及时进行修正。
2. 数据的趋势标记：可以根据数据的趋势来进行标记，以便更好地观察数据的发展趋势。
比如，可以将数据逐渐上升的单元格标记为绿色，逐渐下降的单元格标记为红色。
3. 数据的分类标记：可以根据不同的数据分类进行标记，以便更好地区分不同类别的数据。
比如，可以根据销售额的不同范围将单元格标记为不同的颜色，从而更好地展示销售业绩。
条件格式本列大于另一列数字标颜色
条件格式本列大于另一列数字标颜色条件格式本列大于另一列数字标颜色条件格式是Excel中非常实用的功能之一，它可以根据特定的条件对单元格进行格式化。
其中一个常见的应用是根据本列数据是否大于另一列的数据来标注颜色，这可以帮助用户快速识别和分析数据。
在本文中，我将探讨条件格式的基本用法，以及如何在Excel中使用条件格式让本列大于另一列的数字时标注颜色。
1. 条件格式的基本用法首先让我们来了解一下条件格式的基本用法。
在Excel中，条件格式可以在“开始”选项卡中找到，通过“条件格式”下拉菜单中的各种选项来实现对单元格的格式化。
用户可以根据数值、文本、日期等不同的条件来对单元格进行颜色填充、字体加粗、斜体等格式的设置。
2. 在Excel中使用条件格式标注颜色接下来，我们将重点介绍在Excel中如何使用条件格式让本列大于另一列的数字时标注颜色。
假设我们有一个表格，A列为学生成绩，B列为及格分数。
我们希望当学生成绩大于及格分数时，A列的单元格能够以特定的颜色标注出来。
首先选中A列的数据，然后在“条件格式”下拉菜单中选择“新建规则”。
在弹出的“新建格式规则”对话框中，选择“使用公式确定要设置格式的单元格”。
在“格式值”中输入公式“=A1>B1”，然后点击“格式”按钮选择想要的填充颜色。
点击确定后，A列中大于B列的单元格便会被标注上你所选择的颜色。
3. 个人观点和理解对我来说，条件格式是Excel中非常实用的功能之一。
它不仅可以帮助用户快速分析数据，还能使数据可视化，更直观地呈现出来。
而在使用条件格式的过程中，最让我感到惊喜的是它的灵活性和多样性。
无论是简单的数值比较，还是基于特定条件的格式化，条件格式都能够满足我的需求，让我对数据有更深入的了解。
总结：通过本文的介绍，我们了解了条件格式的基本用法和如何在Excel中使用条件格式让本列大于另一列的数字时标注颜色。
我也共享了我对条件格式的个人观点和理解。
希望本文能够帮助到大家更好地使用条件格式，提高对数据的分析和理解能力。
excel单元格变色公式
excel单元格变色公式Excel单元格变色公式是一项用于快速区分信息的有效方法。
在实际工作和学习中，单元格的颜色可以更为清晰地展示出工作表中的信息。
它可以帮助用户快速识别高低值，并将其呈现为易于理解的图表；同样也可以用于预先定义的某些特定的逻辑，以便在表格中形成直观的标记，便于进行快速排查。
Excel变色公式使用起来非常简单便捷，只需要按照一定的原则，添加一定的公式即可实现，而无需安装任何特定的插件或外部程序。
它可以让用户更加快捷地展现出数据的分类，从而更方便地进行信息的检索和管理。
首先，用户需要确定单元格颜色变化的规则，比如某类数据从大到小依次变色。
接下来，在单元格中输入关于颜色变化的公式，比如使用“=IF（A＜B，C，D）”即可。
在这里，“A”代表待变色单元格的值，“B”代表预定值，“C”代表变色后的颜色，“D”代表变色前的颜色。
当单元格中的数据小于或等于“B”时，单元格颜色会变化到“C”，反之则变为“D”。
此外，用户可以利用统计函数FORMAT和COUNTIF等来设置公式，实现不同类型的颜色变化，比如根据值的范围将单元格分成三组，每组的单元格设置不同的颜色。
这样，会根据不同类型的值而出现不同的颜色变化，而不仅仅是判断高低值。
在利用Excel变色公式时，还可以利用一些函数，实现不同比例的单元格颜色变化，比如让单元格按照一定比例渐变，从而使其可视化信息变得清晰明了。
同样也可以采用混合颜色，让深色部分更显眼，以此来分类信息。
Excel变色公式是一种有效的信息管理方式，对于企业人员、学生和学术研究者等，都可以在一定程度上帮助他们快速找到所需的信息；同时它还能为用户提供便捷的视觉管理，更加易于管理和理解大量信息，有效提高工作效率。
表格中满足公式条件自动变色
表格中满足公式条件自动变色
首先，选择你希望应用条件格式的单元格范围。
然后，点击Excel菜单中的“开始”选项卡，在“样式”组中找到“条件格式”按钮，点击它并选择“新建规则”。
在弹出的对话框中，选择“使用公式确定要设置格式的单元格”，然后在“格式值”框中输入你想要应用的条件格式的公式。
例如，如果你希望当A1单元格的数值大于10时自动变色，你可以
输入公式“=A1>10”。
接下来，点击“格式”按钮，选择你希望应用的格式，比如背
景色或者字体颜色。
设置完成后点击“确定”。
这样，当A1单元格的数值大于10时，该单元格就会自动变色，从而满足了公式条件自动变色的要求。
除了Excel，其他电子表格软件如Google表格、Numbers等也
都提供类似的条件格式功能，你可以根据具体软件的操作方法来实
现表格中满足公式条件自动变色的效果。
希望这些信息能对你有所
帮助。
Excel自编宏大全(Word版)
E x c e l自编宏大全(W o r d版)-CAL-FENGHAI.-(YICAI)-Company One1目录1，从数据源匹配取数的问题2，部分字符地址查找3，多表查询汇总和重复值问题（相同行删除、循环比较）4，工作表的名称和index号5，重复值加色6，统计7，最大或最小8，最后一记录（定义动态区域名称、不重复值公式宏、不重复值个数和行数公式宏、加边框宏）9，大港表格转换10，筛选尾数11，对比数据12，修改批注字体13，删除合并单元格14，物品领用报表15，条件格式设置16，多表查询，自动筛选法17，多条件查询累计汇总18，和值19，教师安排汇总（循环比较、不重复值）20，自动着色（不同个数、不同颜色）21，不重复值的个数及所在行的行数（各个值的个数、行数）22，分表自动字体格式化23，自动填充数字24，导入文本文件25，累计不变化（内部循环）26，同结构多表统计汇总（Consolidate方法）27，资产负债表汇总（多工作簿汇总）28，导出到文本文件29，角度求和的自定义公式30，表单输入模板31，两表间复制与核对1，从数据源匹配取数的问题Sub 宏131()'从数据源匹配取数的问题' 2007-1-31' Shizx98'Dim a As Range, Myrng1 As Range, Myrng2 As RangeDim Myrow As IntegerDim Myrow2 As IntegerDim Myrow3 As IntegerDim x As IntegerWorksheets("Sheet1").ActivateRange("d2").SelectMyrow2 = 'D列数据的行数Range("a1").SelectMyrow3 = 'AB列数据的行数Set Myrng1 = Range(Cells(2, 1), Cells(Myrow3, 1))Set Myrng2 = Range(Cells(2, 2), Cells(Myrow3, 2))For x = 2 To Myrow2 + 1Set a = Range("D" & x)For y = 1 To Myrow3If Len(a) > 7 ThenMyrow = Myrng1, 0)ElseMyrow = Myrng2, 0)End IfIf Myrow = 0 ThenGoTo 100ElseRange("F1").SelectMyrow1 = Range(Cells(Myrow + 1, 1), Cells(Myrow + 1, 2)).SelectDestination:=Range(Cells(Myrow1 + 1, 6), Cells(Myrow1 + 1, 7))Shift:=xlUpMyrow = 0MsgBox "已找到！"GoTo 200End If100: Next y200: Next xEnd Sub2，部分字符地址查找‘2007/1/30‘部分字符地址查找.xlsSub bfzfcz()Dim Myrow1 As IntegerDim x%, y1%, y2%, gg%Dim AA, BBOn Error Resume NextRange("a2").SelectMyrow1 = Range("e1").SelectMyrow2 = gg = 2For x = 2 To Myrow2AA = Range("e" & x)For y1 = 2 To Myrow1 + 1BB = Cells(y1, 1))If BB > 0 ThenRange("g" & gg) = "A" & y1gg = gg + 1ElseEnd IfBB = 0Next y1For y2 = 2 To Myrow1 + 1BB = Cells(y2, 2))If BB > 0 ThenRange("g" & gg) = "B" & y2gg = gg + 1ElseEnd IfBB = 0Next y2'gg = gg + 1Next xEnd Sub3，多表查询汇总和重复值问题（相同行删除、循环比较）Sub 宏0204()''见汇总' 2007-2-4'蓝桥玄霜'大汇总问题'Dim x As Integer, y As IntegerDim rng1 As Range, tbl As RangeDim n As IntegerDim Myrow1 As Integer, Myrow2 As IntegerDim rng2= FalseSheets("汇总").Select '清除总表原有的数据Range("a1").SelectSet tbl =If > 1 Then(1, 0).Resize - 1, ElseEnd Ifn = 2Sheets("使用型号表").SelectRange("a1").SelectMyrow1=[a65536].End(xlUp).Row 'A列最下面一行的行数，中间有空格也行 For x = 2 To Myrow1Sheets("使用型号表").SelectSet rng1 = Range("B" & x) '依次把“使用数量”的值赋给rng1变量rng2 = Range("A" & x).Text '把序号里的表格名赋给rng2变量If <> "" ThenSheets("汇总").Cells(1, 6).Value =Sheets(rng2).Select '用表格名选择表格Range("a1").SelectMyrow2 = '数据的行数Range(Cells(2, 2), Cells(Myrow2, 5)).Copy '复制这些数据Sheets("汇总").ActivateCells(n, 2).PasteSpecial '粘贴到汇总表Range(Cells(n, 6), Cells(Myrow2 + n - 2, 6)).Select '选择F列相同行数1C = "=RC[-1]*r1c6" '将使用数量X数量Range(Cells(n, 6), Cells(Myrow2 + n - 2, 6)).Copy '复制这些数据Cells(n, 5).SelectPaste:=xlValues'以“选择性粘贴”的“数值”粘贴Range(Cells(n, 6), Cells(Myrow2 + n - 2, 6)).ClearContents '清除F列数量Cells(1, 6).ClearContentsn = n + Myrow2 - 1 '为下次粘贴数据的行位置ElseEnd IfNext xbcfhz0204 '不重复汇总的宏End SubSub bcfhz0204()'不重复汇总'蓝桥玄霜'2007-2-4Dim b As Integer, x As Integer, y As Integer, aa As Integer, yyy As IntegerDim minc As RangeDim rng1 As Range, a As RangeDim n1 As Integer, nn As Integer, Myrow1 As IntegerDim pp, pp1On Error Resume NextSheets("汇总").SelectRange("a1").SelectMyrow1 = 'A列数据的行数Set minc = Range("b2:b" & Myrow1)Set rng1 = Range("m2:m" & Myrow1)Range("m2").Select '求重复值个数的辅助列公式="=if((countif(minc,$b2)>1)*(match($b2,minc,0)=row($a1)),count(m$1:m1)+1,"""")" Destination:=rng1, Type:=xlFillDefault '公式往下复制b = Range("n2").Select '求重复值的辅助列公式="=if(iserror(index(minc,match(row(b1),m$2:m$65536,0))),"""",index(minc,match(ro w(b1),m$2:m$65536,0)))"Destination:=Range("n2:n" & b + 1), Type:=xlFillDefault '公式往下复制Range("n2:n" & b + 1).Select'以“选择性粘贴”的“数值”粘贴n,m列，因为删除一行后，公式会重新计算 'Range("n2").SelectPaste:=xlValuesRange("m2").SelectPaste:=xlValuesFor x = 2 To b + 1Set a = Range("n" & x)aa = a) '计算重复值的个数Range("o" & x).Value = aaRange("p1") = aRange("p2").Select '重复值所在行数的数组公式="=if($p$1<>"""",if(iserror(small(if(minc=$p$1,row(minc),""""),row(1:1))),"""",small(if( minc=$p$1,row(minc),""""),row(1:1))))"Destination:=Range("p2:p" & aa + 1), Type:=xlFillDefaultRange("p2:p" & aa + 1).SelectRange("p2").SelectPaste:=xlValues'以“选择性粘贴”的“数值”粘贴去除公式影响For y = 2 To nn '在重复值里循环比较pp = Range("p" & y).Value '将行数赋给变量ppFor yy = y + 1 To nn + 1pp1 = Range("p" & yy).Value '将行数赋给变量pp1If pp1 = "" ThenGoTo 100ElseEnd IfIf Cells(pp, 2) = Cells(pp1, 2) And Cells(pp, 3) = Cells(pp1, 3) And Cells(pp, 4) = Cells(pp1, 4) ThenCells(pp, 5) = Cells(pp, 5) + Cells(pp1, 5) '汇总部分Range(Cells(pp1, 1), Cells(pp1, 5)).Delete shift:=xlUp'删除多余的行For yyy = yy + 1 To nn + 1Range("p" & yyy) = Range("p" & yyy) - 1Next yyyRange("p" & yy).Delete shift:=xlUpyy = yy - 1: nn = nn - 1ElseEnd IfNext yy100: Next ynn = aaRange("p1:P" & aa + 1).ClearContents '清除辅助列数据200: Next xRange("m1").Select'清除辅助列数据Range("A1").Select '以下在A列加上序号n1 = Range("A2").Select1C = "1"Range("A3").Select1C = "2"Range("A2:A3").SelectDestination:=Range("A2:A" & n1), Type:=xlFillDefaultRange("A2").SelectEnd Sub4，工作表的名称和index号Sub Sheetsname()‘见上例的xls‘2007-2-2Dim Sht As WorksheetSheets("使用型号表").Activaten = 2For Each Sht InIf <> "汇总" And <> "使用型号表" Then("k" & n) =("l" & n) =n = n + 1ElseEnd IfNext ShtEnd Sub5，重复值加色Sub 重复值加色()'重复值加色.xls' 蓝桥玄霜 2007-2-2'表格中有重复值公式'Dim rng1 As Range, data As RangeDim b As IntegerSet rng1 = Range("n2:n117") ‘重复值区域 b = ‘重复值个数Range("B2:B117").SelectFor X = 2 To b + 1 ‘用查找Type:=xlCellValue, Operator:=xlEqual, _Formula1:="=$M$" & X(X - 1). = 3Next XEnd Sub6，统计Sub tongji()‘车次统计，见统计月报‘Excel论坛Dim Myrow1 As Integer, Myrow2 As IntegerDim Sht As Worksheet, Sht1 As Worksheet= FalseOn Error Resume NextFor Each Sht In 'AB列空格填充If <> "月计" ThenSheets.SelectRange("a1").SelectMyrow1 = [a65536].End(xlUp).Row 'A列最下面一行的行数，中间有空格也行Set rng1 = Range(Cells(4, 1), Cells(Myrow1 - 1, 2))If IsError(xlCellTypeBlanks)) ThenGoTo 100Else(xlCellTypeBlanks).SelectRange("A5").Activate1C = "=R[-1]C"Range("A4").SelectPaste:=xlValues= FalseRange("A4").SelectEnd IfElseEnd If100: Next ShtSheets("月计").SelectSet Sht1 = Sheets("月计")Range("a1").SelectMyrow1 = [a65536].End(xlUp).RowMyrow1 = Myrow1 - 1Range(Cells(4, 4), Cells(Myrow1, 11)).ClearContents For x = 4 To Myrow1fa = Range("a" & x).Valuedao = Range("b" & x).ValueIf fa = "" And dao = "" ThenGoTo 200ElseEnd IfFor n = 1 To 10Sheets(n).ActivateRange("a1").SelectMyrow2 = [a65536].End(xlUp).RowMyrow2 = Myrow2 - 1For y = 4 To Myrow2fa1 = Range("a" & y).Valuedao1 = Range("b" & y).ValueIf fa = fa1 And dao = dao1 Then("d" & x) = ("d" & x) + Range("d" & y) '汇总 ("e" & x) = ("e" & x) + Range("e" & y)("f" & x) = ("f" & x) + Range("f" & y)("g" & x) = ("g" & x) + Range("g" & y)("h" & x) = ("h" & x) + Range("h" & y)("i" & x) = ("i" & x) + Range("i" & y)("j" & x) = ("j" & x) + Range("j" & y)("k" & x) = ("k" & x) + Range("k" & y)ElseEnd IfNext yNext nSheets("月计").Select200: Next xSheets("月计").Select= TrueEnd Sub7，最大或最小‘Excel论坛‘最大或最小.xlsSub MaxMin()Dim rng1 As RangeDim x As Integer, b As IntegerDim a(12)Range("a14").Value = ""For x = 1 To 12Cells(2, x + 3).SelectSet rng1 = Cells(2, x + 3)a(x) =b = "/", rng1)a(x) = Left(rng1, b)a(x) = Val(a(x))Next xMymax = a(2), a(3), a(4), a(5), a(6), a(7), a(8), a(9), a(10), a(11), a(12)) Mymin = a(2), a(3), a(4), a(5), a(6), a(7), a(8), a(9), a(10), a(11), a(12)) If a(1) = Mymax ThenRange("a14").FormulaR1C1 = "最大"ElseIf a(1) = Mymin ThenRange("a14").FormulaR1C1 = "最小"ElseEnd IfEnd IfEnd Sub8，最后一记录（定义名称）Sub zhytjl0206()'最后一次的那条记录.xls'Shizx98'2007-2-6‘&ID=219549&replyID=&skin=0Dim b As Integer, x As Integer, y As Integer, aa As IntegerDim minc As RangeDim rng1 As Range, a As RangeDim nn As Integer, Myrow1 As IntegerDim pp, pp1Dim Sht1 As Worksheet, Sht2 As WorksheetOn Error Resume Next= FalseSet Sht1 = Sheets(1): Set Sht2 = Sheets(3)Name:="data1", RefersToR1C1:= _"=OFFSET(Sheet1!R1C1,1,,COUNTA(Sheet1!R2C1:R65535C1),)"Range("n1").Select'清除辅助列数据Range("a1").Select'清除上次数据("a1:g1").Copy Sheet2.[a1]Range("a1").SelectMyrow1 = 'A列数据的行数Set minc = Range("a2:a" & Myrow1)Set rng1 = Range("n2:n" & Myrow1)BcfzGS '转求不重复值宏For x = 2 To b + 1FuzulieGS '转辅助列公式宏Range("p2:p" & aa + 1).Select("a2")= Falsepp = ("p" & 2).Value '将行数赋给变量ppRange(Cells(pp, 7), Cells(pp + aa - 1, 7)).Select("b2") '时间复制到表2Cells(2, 3).Select= "=datevalue(rc[-1])+timevalue(rc[-1])" '时间值公式If aa > 1 ThenDestination:=Range("c2:c" & aa + 1), Type:=xlFillDefault '公式往下复制 Range("a2:c" & aa + 1).SelectKey1:=Range("C2"), Order1:=xlDescending, Header:=xlNo, _OrderCustom:=2, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _:=xlPinYinElseEnd Ifpp1 = Range("a2").ValueSheets(2).SelectFor xx = 1 To 7Cells(x, xx) = (pp1, xx)Next xxnn = aaRange("p1:P" & aa + 1).ClearContents '清除辅助列数据Range(Cells(1, 1), Cells(aa + 1, 3)).ClearContents200: Next xRange("m1").Select'清除辅助列数据Sheets(2).ActivateRange("a1:g" & b + 1).Select ‘排序Key1:=Range("a1"), Order1:=xlAscending, Header:=xlGuess, _OrderCustom:=2, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _:=xlPinYin加边框'转加边框宏Range("A1").Select= TrueEnd SubSub BcfzGS()'不重复值公式Range("n2").Select '辅助列公式求有几个不重复值= "=index(a:a,min(if(countif(n$1:n1,data1),65536,row(data1))))&"""""Destination:=rng1, Type:=xlFillDefault '公式往下复制b = "4*")End SubSub FuzulieGS()'某个不重复值的个数和所在行数的数组公式Set a = Range("n" & x)aa = a) '计算某个不重复值的个数Range("o" & x).Value = aann = aaRange("p1") = Val(a)Range("p2").Select '某个不重复值所在行数的数组公式="=if($p$1<>"""",if(iserror(small(if(minc=$p$1,row(minc),""""),row(1:1))),"""",small(if( minc=$p$1,row(minc),""""),row(1:1))))"If aa > 1 ThenDestination:=Range("p2:p" & aa + 1), Type:=xlFillDefaultElseEnd IfEnd SubSub 加边框()BorderVars(1) = xlEdgeLeftBorderVars(2) = xlEdgeTopBorderVars(3) = xlEdgeBottomBorderVars(4) = xlEdgeRightBorderVars(5) = xlInsideVerticalBorderVars(6) = xlInsideHorizontalRange("a1:g" & b + 1).Select(xlDiagonalDown).LineStyle = xlNone(xlDiagonalUp).LineStyle = xlNoneFor x = 1 To 6With (BorderVars(x)).LineStyle = xlContinuous.Weight = xlThin.ColorIndex = xlAutomaticEnd WithNextEnd SubSub zhytjl0215()'最后一条记录'蓝桥玄霜,'2007-2-15'根据czzqbμ的数组公式修改'在表1的H列加了时间转换公式Dim b As Integer, x As Integer, y As IntegerDim minc As RangeDim rng1 As Range, a As RangeDim Myrow1 As IntegerDim Sht1 As Worksheet, Sht2 As WorksheetDim BorderVars(6) As VariantOn Error Resume Next= FalseSet Sht1 = Sheets(1): Set Sht2 = Sheets(2)‘定义动态区域名称Name:="data1", RefersToR1C1:= _"=OFFSET(Sheet1!R1C1,1,,COUNTA(Sheet1!R2C1:R65535C1),)"Name:="shiji", RefersToR1C1:= _"=OFFSET(Sheet1!R1C8,1,,COUNTA(Sheet1!R2C8:R65535C8),)"Range("n1").SelectRange("a1").Select("a1:g1").Copy Sheet2.[a1]Range("a1").SelectMyrow1 =Set minc = Range("a2:a" & Myrow1)Set rng1 = Range("n2:n" & Myrow1)Range("n2").Select ''辅助列公式求不重复值= "=index(a:a,min(if(countif(n$1:n1,minc),65536,row(minc))))&""""" Destination:=rng1, Type:=xlFillDefault‘不重复值的个数b = "4*")Range("n2:n" & b + 1).SelectPaste:=xlValuesRange(Cells(2, 14), Cells(1 + b, 14)).Copy (2, 1)Sht2.[b2].Select1C = "=index(mydata,match(value(rc[-1]),data1,0),2)"Sht2.[c2].Select= "=index(mydata,match(value(rc[-2]),data1,0),3)"Sht2.[d2].Select= "=index(mydata,match(value(rc[-3]),data1,0),4)"Sht2.[e2].Select= "=index(mydata,match(value(rc[-4]),data1,0),5)"Sht2.[f2].Select= "=index(mydata,match(value(rc[-5]),data1,0),6)"Sht2.[g2].Select= "=max(if(data1=value(rc[-6]),shiji))" ‘求时间最后的数组公式，by:czzqb Range("b2:g2").SelectDestination:=Range("b2:g" & b + 1), Type:=xlFillDefaultSheets(2).ActivateRange("a1:g" & b + 1).Select ‘排序Key1:=Range("a1"), Order1:=xlAscending, Header:=xlGuess, _OrderCustom:=2, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _:=xlPinYin(xlDiagonalDown).LineStyle = xlNone(xlDiagonalUp).LineStyle = xlNone‘加边框BorderVars(1) = xlEdgeLeftBorderVars(2) = xlEdgeTopBorderVars(3) = xlEdgeBottomBorderVars(4) = xlEdgeRightBorderVars(5) = xlInsideVerticalBorderVars(6) = xlInsideHorizontalFor x = 1 To 6With (BorderVars(x)).LineStyle = xlContinuous.Weight = xlThin.ColorIndex = xlAutomaticEnd WithNextRange("A1").Select= TrueEnd Sub9，大港表格转换‘大港.xlsSub dagang()Dim Sht1 As Worksheet, Sht2 As WorksheetDim x As Integer, y As IntegerDim n As Integer, m As IntegerDim n1 As Integer= FalseSet Sht1 = (1)Set Sht2 = Sheets(2)‘清除原有数据Range("a1").SelectWith Sht2 ‘表格的表头赋值.Cells(1, 1) = "编号".Cells(1, 2) = "姓名".Cells(1, 3) = "性别".Cells(1, 4) = "年龄".Cells(1, 5) = "职务".Cells(1, 6) = "家庭地址".Cells(1, 7) = "户口性质及所在地".Cells(1, 8) = "身体状况".Cells(1, 9) = "备注"End Withn = 2: m = 2For x = 1 To 9For y = 3 To 168 Step 11 ‘两分表间隔11行 If (y, m) <> "" Then ‘如果姓名值为空，则程序结束 With Sht2.Cells(n, 2) = (y, m).Cells(n, 3) = (y, m + 2).Cells(n, 4) = (y, m + 4).Cells(n, 5) = (y, m + 6).Cells(n, 6) = (y + 1, m).Cells(n, 7) = (y + 1, m + 4).Cells(n, 8) = (y + 3, m).Cells(n, 9) = (y + 4, m + 4)End Withn = n + 1ElseGoTo 100End IfNext y'Stopy = 3: m = m + 9Next x100: Range("a1").Select ‘加编号n1 = [b65536].End(xlUp).RowRange("A2").Select1C = "1"Range("A3").Select1C = "2"Range("A2:A3").SelectDestination:=Range("A2:A" & n1), Type:=xlFillDefault Range("A2").Select= TrueEnd Sub10，筛选尾数&id=220360&star=1#220360Sub weisu()'筛选尾数'by:Shizx98'2007-2-9Dim Myrow1 As IntegerDim Mymax As IntegerDim x%, y%, yy%, nn%= FalseRange("n1:s30").ClearContents ‘清除原有数据Range("a1").SelectRange("b1")Myrow1 = "c1").Select= "=right(rc[-1],4)" ‘取四位尾数Range("g1").Select= "=left(rc[-4],1)" ‘分成四列Range("f1").Select= "=mid(rc[-3],2,1)"Range("e1").Select= "=mid(rc[-2],3,1)"Range("d1").Select= "=right(rc[-1],1)"Range("c1:g1").SelectDestination:=Range("c1:g" & Myrow1), Type:=xlFillDefault ‘公式复制For yy = 2 To 7Select Case yyCase 2Range("h1").Select= "=if(and(rc[-4]=rc[-3],rc[-3]=rc[-2],rc[-2]=rc[-1]),1,"""")" ‘判断四位尾数相等 Destination:=Range("h1:h" & Myrow1), Type:=xlFillDefaultRange("n1") = "尾数四位相同" 'AAAACase 3Range("i1").Select= "=if(and(rc[-4]=rc[-3],rc[-3]=rc[-5],rc[-3]<>rc[-2]),1,"""")"Destination:=Range("i1:i" & Myrow1), Type:=xlFillDefault ‘判断三位尾数相等Range("o1") = "尾数三位相同" 'BAAACase 4Range("j1").Select= "=if(and(rc[-6]=rc[-5],rc[-5]<>rc[-4],rc[-4]<>rc[-3]),1,"""")" ‘判断两位尾数相等 Destination:=Range("j1:j" & Myrow1), Type:=xlFillDefaultRange("p1") = "尾数两位相同" 'AACase 5Range("k1").Select= "=if(and(rc[-6]=rc[-7],rc[-4]=rc[-5],rc[-5]<>rc[-6]),1,"""")" 'AABBDestination:=Range("k1:k" & Myrow1), Type:=xlFillDefaultRange("q1") = "尾数AABB"Case 6Range("l1").Select= "=if(and(rc[-6]=rc[-7],rc[-7]<>rc[-8],rc[-5]=rc[-6]),1,"""")" 'AAABDestination:=Range("l1:l" & Myrow1), Type:=xlFillDefaultRange("r1") = "尾数AAAB"Case 7Range("m1").Select= "=if(and(rc[-9]=rc[-7],rc[-8]=rc[-6],rc[-7]<>rc[-8]),1,"""")" 'ABABDestination:=Range("m1:m" & Myrow1), Type:=xlFillDefaultRange("s1") = "尾数ABAB"End SelectNext yyRange("c1:m" & Myrow1).SelectRange("c1").PasteSpecial Paste:=xlValues '以“选择性粘贴”的“数值”粘贴去除公式影响500: nn = Myrow1For y = 1 To 6n = 2Mymax = y + 7), Cells(Myrow1, y + 7)))If Mymax = 0 ThenGoTo 1000ElseEnd IfFor x = 1 To nnIf Cells(x, y + 7) = 1 ThenCells(n, y + 13) = Cells(x, 2)Range(Cells(x, 2), Cells(x, 13)).Delete shift:=xlUp ‘有相同的就复制后删除B列的一个，连一行公式数据也删除n = n + 1: nn = nn - 1ElseEnd IfNext x'Stop1000: Next yRange(Cells(1, 3), Cells(Myrow1, 13)).ClearContentsColumns("C:M").Select= True ‘隐藏C－M列= TrueEnd Sub11，对比数据‘&ID=220430&page=1&px=0‘数据比对.xlsSub duibisujue()Dim Myrow1 As IntegerDim x%, y%, xx%, nn%= FalseRange("a1").SelectMyrow1 = = Myrow1: n = 1For x = 1 To nnxx = 0If Cells(x, 1) = "" ThenGoTo 100ElseEnd IfFor y = 1 To nnIf Cells(x, 1) = Cells(y, 2) And Cells(x, 1) <> "" Then Cells(n, 5) = Cells(x, 1): Cells(n, 6) = Cells(y, 2) n = n + 1: xx = 1Cells(x, 1).Delete shift:=xlUpCells(y, 2).Delete shift:=xlUpnn = nn - 1y = y - 1ElseEnd IfNext yIf xx = 1 Thenx = x - 1ElseEnd IfIf nn < x ThenGoTo 100ElseEnd IfNext x100:= TrueEnd Sub12，修改批注字体Sub 修改批注字体()' Shizx98 2007-2-10'&ID=220734&replyID=&skin=0Dim c As CommentSet cmt = Worksheets(1).CommentsFor Each c In cmt= TrueTrueWith.Name = "隶书".Size = 20End With= FalseNextEnd Sub13，删除合并单元格Sub 宏1()' 分部.xls' Shizx98' 2007-2-11'&ID=220741&page=1&px=0Dim ma As RangeDim Myrow1 As Integer, nn As Integer, gesu As IntegerDim XuhaoDim rng1 As RangeDim n%, x%, y%, a%, b%= FalseRange("a1").SelectMyrow1 = Set rng1 = Range(Cells(1, 1), Cells(Myrow1, 1))= "data" ‘区域命名n = 1: nn = Myrow1For x = 1 To nnXuhao = Cells(x, 1)If Xuhao = "" Or Not (IsNumeric(Xuhao)) Thennn = nn - 1: GoTo 200Elsegesu = Xuhao) ‘重复值个数If gesu = 1 ThenGoTo 200ElseRange("p1") = Cells(x, 1)Cells(1, 17) = gesuCells(2, 17).Select= "=small(if(data=$p$1,row(data)),row(1:1))" ‘重复值所在行数Destination:=Range("q2:q" & gesu + 1), Type:=xlFillDefault '公式往下复制Range("q2:q" & gesu + 1).SelectRange("q2").SelectPaste:=xlValues '以"选择性粘贴"的"数值"粘贴去除公式影响 b = 0For y = 2 To gesun = Cells(y + 1, 17) - bCells(n, 1).SelectSet ma = Cells(n, 1)With maIf .MergeCells Thena =b = b + a: nn = nn - aElseRange(Cells(n, 1), Cells(n, 13)).Selectshift:=xlUpa = 1: nn = nn - 1:b = b + aGoTo 100End IfEnd WithIf a > 1 ThenRange(Cells(n, 1), Cells(n + a - 1, 13)).Selectshift:=xlUpElseEnd If100: Next yRange("q1:q" & gesu + 1).ClearContentsRange("p1").ClearContentsEnd IfEnd If200: 'StopNext x= TrueEnd Sub14，物品领用报表Sub 宏9()' 赋予“报表制表”按钮的宏 Macro‘进出货领用表.xls' 蓝桥玄霜 2006-12-19Dim PitItemVar As PivotItemDim Pivot1 As PivotTableDim MyItem As VariantDim x, y, xx, xcolumn As IntegerDim BorderVars(6) As VariantDim yearcpage, monthcpage As Variant'“打印报表”原有的数据行删除Worksheets("打印报表").SelectRange("1:100").SelectShift:=xlUpRange("a1").Select'边框的常数赋值BorderVars(1) = xlEdgeLeftBorderVars(2) = xlEdgeTopBorderVars(3) = xlEdgeBottomBorderVars(4) = xlEdgeRightBorderVars(5) = xlInsideVerticalBorderVars(6) = xlInsideHorizontalxcolumn = 0'清除原有领用部门名称的aa1、ab1列数据 Worksheets("部门领用汇总").SelectSet Pivot1 = ("数据透视表1")Range("aa1:ab1").SelectRange("b12").Select'xcolumn = ("领用部门").'MsgBox xcolumn'StopRange("aa1").Select'排序For Each PitItemVar In ("领用部门").PivotItems 'MsgBox '& " Position = " &='Range("ab1").Value =(rowoffset:=1).SelectNextRange("AB1").Select= "=INDEX(bumenxuhao,MATCH(RC[-1],bumen,0),2)"Range("AB1").SelectDestination:=Range(Cells(1, 28), Cells(xcolumn, 28)), _Type:=xlFillDefaultRange("AB1").SelectRange(Cells(1, 27), Cells(xcolumn, 28)).SelectKey1:=Range("AB1"), Order1:=xlAscending, Header:=xlGuess, _OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _:=xlPinYinRange("Aa1").SelectMyItem = ""MyItem = Range("aa1").Value'调整列的显示顺序With ("领用部门")For x = 1 To xcolumn.PivotItems(MyItem).Position = xCells(x + 1, 27).SelectMyItem = Cells(x + 1, 27).ValueNextEnd With'Range("b15").SelectLet y = '当前数据域的列数Let xx = '当前数据域的行数(0, 0).Resize - 1).Select '少选底下一行，为了不要行的合计Range("A1").Selectyearcpage = ("年份").monthcpage = ("月份").Worksheets("打印报表").SelectRange("A14").SelectPaste:=xlValuesRange(Cells(14, 2), Cells(14, y - 1)).Select= FalseWith Selection.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenter.ColumnWidth = 12End WithRange("A14").Select= 16Range("A14:A15").SelectRange("A15").ActivateWith Selection.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenter.RowHeight = 24End WithCells(14, y).SelectRange(Cells(14, y), Cells(15, y)).SelectCells(15, y).ActivateWith Selection.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenterEnd With'加边框Range(Cells(14, 1), Cells(xx + 12, y)).Select (xlDiagonalDown).LineStyle = xlNone(xlDiagonalUp).LineStyle = xlNoneFor x = 1 To 6With (BorderVars(x)).LineStyle = xlContinuous.Weight = xlThin.ColorIndex = xlAutomaticEnd WithNextRange("b15").SelectRange(Cells(15, 2), Cells(15, y)).SelectWith Selection.HorizontalAlignment = xlCenterEnd With'加标题Range(Cells(11, 1), Cells(11, y)).SelectWith Selection.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenterEnd WithIf yearcpage <> "(All)" ThenIf monthcpage <> "(All)" Then= yearcpage & " 年" & monthcpage & "月份物品领用汇总表" Else= yearcpage & " 年物品领用汇总表"End IfElseIf monthcpage <> "(All)" Then= " 所有年份" & monthcpage & "月份物品领用汇总表"Else= " 总物品领用汇总表"End IfEnd IfWith.Name = "黑体".Size = 20.Strikethrough = False.Superscript = False.Subscript = False.OutlineFont = False.Shadow = False.Underline = xlUnderlineStyleNone.ColorIndex = xlAutomaticEnd WithRange("A12").SelectEnd SubSub 宏10()' 宏10 Macro' 2006-12-19'加“制表”按钮并赋值“宏9”Worksheets("打印报表").SelectWith ActiveSheet. 20, 20, 90, 30End WithWith (按钮3).Caption = "制表"With .Font.Size = 14.Bold = TrueEnd With.OnAction = "宏9"End With。
重复项怎么标注不同颜色
重复项怎么标注不同颜色
1、首先打开要进行操作的Excel表格。
2、打开后选中要进行操作的数据。
3、点击菜单栏中的开始选项卡，如果已经在开始选项卡中就不用点击。
4、在开始选项卡中点击条件格式。
5、在弹出的对话框中点击新建规则。
6、在弹出的新建格式规则窗口中点击仅对唯一值或重复值设置格式。
7、将全部设置格式设置为重复，然后点击格式。
8、在弹出的单元格格式窗口中点击颜色下的自动，然后选择一个颜色，这里以红色为例。
9、选择完成后点击确定。
10、回到新建格式规则窗口后点击确定。
11、这样就完成了在Excel中用不同颜色显示出重复项。
方法学评价试验——重复性试验(TP)
血清(浆)总蛋白(TP)测定
蛋白质检测方法
免疫化学法
利用抗原抗体特异反应 免疫比浊法、免疫扩散法、免疫沉淀法、免疫化学法等
方法学评价试验---重复性试验
实验原理
蛋白质分子中的肽键在碱性条件下，与Cu2+产生稳定的 紫红色络合物。与两分子尿素缩合后生成的双缩脲在碱性
溶液中与Cu2+的反应相似，故称为双缩脲反应。络合物颜色
血清(浆)总蛋白(TP)测定
蛋白质检测方法
化学法
凯式定氮法（N） 双缩脲法（肽键）
1883 年建立，是经典的蛋白质测 早期用于酪氨酸和色氨酸的定量 定方法。该法结果准确，精密度 测定。该方法较双缩脲法反应灵 此法操作简便、准确、重复性好， 高，灵敏度低，适用于 敏100倍左右，检测范围最低可达 干扰物质少 (硫酸铵；Tris缓冲液；某 0.2 1.0mg 氮测定，是蛋白质测 5~ μg ，通常为 20~250μ浓度范围内 g，使用很广 些氨基酸 )，在 10~120g/L
最低分析物浓度，或称检测限。
特异度 (specificity，SPE)，又称真阴性率
(true negative rate，TNR)，即实际无病按该
诊断标准被正确地判为无病的百分比。它反映筛 检试验确定非病人的能力。
方法学评价试验---重复性试验
方法学评价常用技术性能指标
分析测量范围(analysis measure range，AMR)是 指对没有进行任何预处理（稀释、浓缩等）的标本，分析方 法能够直接测定出的待测物的范围，也就是系统最终的输出
血清(浆)总蛋白(TP)测定
蛋白质检测方法
染料结合法
常用染料有氨基黑、丽春红、考马斯亮蓝、邻苯三酚红钼等。 氨基黑、丽春红常作为血清蛋白醋酸纤维素薄膜电泳或琼脂 糖凝胶电泳的染料。 考马斯亮蓝(Bradford)1976年由Bradford建立，该法灵敏度 最高（1~5μ g），试剂配制简单，检测速度快（5~15分钟）、 简便，，干扰因素少(强碱性缓冲液；TritonX100；SDS)，颜色 深浅随不同蛋白质变化。适用于要求灵敏度高的微量蛋白质快 速定量测定，如尿液、脑脊液等。但有染料粘附比色杯上不易 洗脱的缺点。
excel利用公式对不同值数据标注颜色的方法
excel利用公式对不同值数据标注颜色的方法推荐文章
•企业运营能力分析热度：
•初中物理公式记忆法顺口溜热度：
•工作中如何充分利用时间热度：
•亲情文章陪父亲热度：
•初三学生要充分利用课堂时间热度：
excel利用公式对不同值数据标注颜色的方法
在Excel中经常录入好数据以后都需要进行数据统计，如果把不同值的数据进行标注颜色，那就显得更加直观了。
下面是由店铺分享的excel利用公式对不同值数据标注颜色的方法，以供大家阅读和学习。
excel利用公式对不同值数据标注颜色的方法
利用公式不同值标注颜色步骤1：如图所示，我们分别对1、10、20、30的数值自动标记出颜色。
excel利用公式对不同值数据标注颜色的方法图1
利用公式不同值标注颜色步骤2：这个可以通过条件格式实现，首先我们选中数值。
excel利用公式对不同值数据标注颜色的方法图2
利用公式不同值标注颜色步骤3：点击格式，选择条件格式。
excel利用公式对不同值数据标注颜色的方法图3
利用公式不同值标注颜色步骤4：首先选择，介于1-9之间，背景选择绿色。
excel利用公式对不同值数据标注颜色的方法图4
利用公式不同值标注颜色步骤5：然后选择添加条件格式，将10-19,20-29的条件格式分别设置好。
excel利用公式对不同值数据标注颜色的方法图5
利用公式不同值标注颜色步骤6：点击确定后就可以了。
excel利用公式对不同值数据标注颜色的方法图6。
筛选高亮重复项
筛选高亮重复项在处理大量数据时，经常会遇到需要筛选出重复项的情况。
而在这些重复项中，如果能够将其高亮显示出来，将会更加方便我们进行进一步的数据分析和处理。
本文将介绍一种筛选高亮重复项的方法，并探讨其在实际应用中的价值和意义。
一、筛选高亮重复项的方法1. 使用Excel进行筛选：Excel是一款功能强大的电子表格软件，提供了多种筛选和格式调整的功能。
我们可以通过以下步骤来筛选高亮重复项：1）选择需要筛选的数据范围；2）点击“数据”选项卡中的“删除重复项”按钮；3）在弹出的对话框中，选择需要进行重复项筛选的列；4）点击“确定”按钮，Excel将自动筛选出重复的数据，并高亮显示。
2. 使用编程语言进行筛选：除了Excel，我们还可以使用编程语言来筛选高亮重复项。
例如，Python是一种流行的编程语言，提供了丰富的数据处理和分析库。
我们可以使用pandas库来实现重复项的筛选和高亮显示。
以下是Python代码示例：```import pandas as pd# 读取数据data = pd.read_csv('data.csv')# 筛选重复项duplicates = data.duplicated()# 高亮显示重复项data['重复项'] = duplicates.map({True: '是', False: '否'}) # 保存结果data.to_csv('result.csv', index=False)```以上代码中，我们首先读取了一个名为"data.csv"的数据文件，然后使用"duplicated()"函数找出了重复项，并将结果保存在一个名为"duplicates"的布尔型数据中。
接着，我们使用"map()"函数将重复项的布尔值映射为字符串"是"或"否"，并将结果保存在原数据中的一个名为"重复项"的列中。
Excel自编宏大全(Word版)
目录1，从数据源匹配取数的问题2，部分字符地址查找3，多表查询汇总和重复值问题（相同行删除、循环比较）4，工作表的名称和index号5，重复值加色6，统计7，最大或最小8，最后一记录（定义动态区域名称、不重复值公式宏、不重复值个数和行数公式宏、加边框宏）9，大港表格转换10，筛选尾数11，对比数据12，修改批注字体13，删除合并单元格14，物品领用报表15，条件格式设置16，多表查询，自动筛选法17，多条件查询累计汇总18，和值19，教师安排汇总（循环比较、不重复值）20，自动着色（不同个数、不同颜色）21，不重复值的个数及所在行的行数（各个值的个数、行数）22，分表自动字体格式化23，自动填充数字24，导入文本文件25，累计不变化（部循环）26，同结构多表统计汇总（Consolidate方法）27，资产负债表汇总（多工作簿汇总）28，导出到文本文件29，角度求和的自定义公式30，表单输入模板31，两表间复制与核对1，从数据源匹配取数的问题Sub 宏131()'从数据源匹配取数的问题131.xls' 2007-1-31' Shizx98'Dim a As Range, Myrng1 As Range, Myrng2 As RangeDim Myrow As IntegerDim Myrow1 As IntegerDim Myrow2 As IntegerDim Myrow3 As IntegerDim x As IntegerWorksheets("Sheet1").ActivateRange("d2").SelectSelection.CurrentRegion.SelectMyrow2 = Selection.Rows.Count 'D列数据的行数Range("a1").SelectMyrow3 = Selection.CurrentRegion.Rows.Count 'AB列数据的行数Set Myrng1 = Range(Cells(2, 1), Cells(Myrow3, 1))Set Myrng2 = Range(Cells(2, 2), Cells(Myrow3, 2))For x = 2 To Myrow2 + 1Set a = Range("D" & x)For y = 1 To Myrow3If Len(a) > 7 ThenMyrow = Application.WorksheetFunction.Match(a, Myrng1, 0)ElseMyrow = Application.WorksheetFunction.Match(a, Myrng2, 0) End IfIf Myrow = 0 ThenGoTo 100ElseRange("F1").SelectSelection.CurrentRegion.SelectMyrow1 = Selection.Rows.CountRange(Cells(Myrow + 1, 1), Cells(Myrow + 1, 2)).SelectSelection.Cut Destination:=Range(Cells(Myrow1 + 1, 6), Cells(Myrow1 + 1, 7))Selection.Delete Shift:=xlUpMyrow = 0MsgBox "已找到！"GoTo 200End If100: Next y200: Next xEnd Sub2，部分字符地址查找‘2007/1/30‘部分字符地址查找.xlsSub bfzfcz()Dim Myrow1 As IntegerDim Myrow2 As IntegerDim x%, y1%, y2%, gg%Dim AA, BBOn Error Resume NextRange("a2").SelectSelection.CurrentRegion.SelectMyrow1 = Selection.Rows.CountRange("e1").SelectSelection.CurrentRegion.SelectMyrow2 = Selection.Rows.Countgg = 2For x = 2 To Myrow2AA = Range("e" & x)For y1 = 2 To Myrow1 + 1BB = Application.WorksheetFunction.SearchB(AA, Cells(y1, 1))If BB > 0 ThenRange("g" & gg) = "A" & y1gg = gg + 1ElseEnd IfBB = 0Next y1For y2 = 2 To Myrow1 + 1BB = Application.WorksheetFunction.SearchB(AA, Cells(y2, 2))If BB > 0 ThenRange("g" & gg) = "B" & y2gg = gg + 1ElseEnd IfBB = 0Next y2'gg = gg + 1Next xEnd Sub3，多表查询汇总和重复值问题（相同行删除、循环比较）Sub 宏0204()''见汇总0204.xls' 2007-2-4'蓝桥玄霜'大汇总问题'Dim x As Integer, y As IntegerDim rng1 As Range, tbl As RangeDim n As IntegerDim Myrow1 As Integer, Myrow2 As IntegerDim rng2Application.ScreenUpdating = FalseSheets("汇总").Select '清除总表原有的数据Range("a1").SelectSet tbl = ActiveCell.CurrentRegionIf tbl.Rows.Count > 1 Thentbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).ClearContents ElseEnd Ifn = 2Sheets("使用型号表").SelectRange("a1").SelectMyrow1=[a65536].End(xlUp).Row 'A列最下面一行的行数，中间有空格也行For x = 2 To Myrow1Sheets("使用型号表").SelectSet rng1 = Range("B" & x) '依次把“使用数量”的值赋给rng1变量rng2 = Range("A" & x).Text '把序号里的表格名赋给rng2变量If rng1.Value <> "" ThenSheets("汇总").Cells(1, 6).Value = rng1.ValueSheets(rng2).Select '用表格名选择表格Range("a1").SelectMyrow2 = Selection.CurrentRegion.Rows.Count '数据的行数Range(Cells(2, 2), Cells(Myrow2, 5)).Copy '复制这些数据Sheets("汇总").ActivateCells(n, 2).PasteSpecial '粘贴到汇总表Range(Cells(n, 6), Cells(Myrow2 + n - 2, 6)).Select '选择F列相同行数Selection.FormulaR1C1 = "=RC[-1]*r1c6" '将使用数量X数量Range(Cells(n, 6), Cells(Myrow2 + n - 2, 6)).Copy '复制这些数据Cells(n, 5).SelectSelection.PasteSpecial Paste:=xlValues'以“选择性粘贴”的“数值”粘贴Range(Cells(n, 6), Cells(Myrow2 + n - 2, 6)).ClearContents '清除F列数量Cells(1, 6).ClearContentsn = n + Myrow2 - 1 '为下次粘贴数据的行位置ElseEnd IfNext xbcfhz0204 '不重复汇总的宏Application.ScreenUpdating = TrueEnd SubSub bcfhz0204()'不重复汇总'蓝桥玄霜'2007-2-4Dim b As Integer, x As Integer, y As Integer, aa As Integer, yyy As IntegerDim minc As RangeDim rng1 As Range, a As RangeDim n1 As Integer, nn As Integer, Myrow1 As IntegerDim pp, pp1On Error Resume NextSheets("汇总").SelectRange("a1").SelectMyrow1 = Selection.CurrentRegion.Rows.Count 'A列数据的行数Set minc = Range("b2:b" & Myrow1)Set rng1 = Range("m2:m" & Myrow1)Range("m2").Select '求重复值个数的辅助列公式Selection.Formula ="=if((countif(minc,$b2)>1)*(match($b2,minc,0)=row($a1)),count(m$1:m1)+1,"""")"Selection.AutoFill Destination:=rng1, Type:=xlFillDefault '公式往下复制b = Application.WorksheetFunction.Max(rng1)Range("n2").Select '求重复值的辅助列公式Selection.Formula ="=if(iserror(index(minc,match(row(b1),m$2:m$65536,0))),"""",index(minc,match(row(b1),m$2:m$65536,0)))"Selection.AutoFill Destination:=Range("n2:n" & b + 1), Type:=xlFillDefault '公式往下复制Range("n2:n" & b + 1).Select'以“选择性粘贴”的“数值”粘贴n,m列，因为删除一行后，公式会重新计算'Selection.CopyRange("n2").SelectSelection.PasteSpecial Paste:=xlValuesrng1.SelectSelection.CopyRange("m2").SelectSelection.PasteSpecial Paste:=xlValuesFor x = 2 To b + 1Set a = Range("n" & x)aa = Application.WorksheetFunction.CountIf(minc, a) '计算重复值的个数Range("o" & x).Value = aann = aaRange("p1") = aRange("p2").Select '重复值所在行数的数组公式Selection.FormulaArray = "=if($p$1<>"""",if(iserror(small(if(minc=$p$1,row(minc),""""),row(1:1))),"""",small(if(minc =$p$1,row(minc),""""),row(1:1))))"Selection.AutoFill Destination:=Range("p2:p" & aa + 1), Type:=xlFillDefaultRange("p2:p" & aa + 1).SelectSelection.CopyRange("p2").SelectSelection.PasteSpecial Paste:=xlValues'以“选择性粘贴”的“数值”粘贴去除公式影响For y = 2 To nn '在重复值里循环比较pp = Range("p" & y).Value '将行数赋给变量ppFor yy = y + 1 To nn + 1pp1 = Range("p" & yy).Value '将行数赋给变量pp1If pp1 = "" ThenGoTo 100ElseEnd IfIf Cells(pp, 2) = Cells(pp1, 2) And Cells(pp, 3) = Cells(pp1, 3) And Cells(pp, 4) = Cells(pp1, 4) ThenCells(pp, 5) = Cells(pp, 5) + Cells(pp1, 5) '汇总部分Range(Cells(pp1, 1), Cells(pp1, 5)).Delete shift:=xlUp '删除多余的行For yyy = yy + 1 To nn + 1Range("p" & yyy) = Range("p" & yyy) - 1Next yyyRange("p" & yy).Delete shift:=xlUpyy = yy - 1: nn = nn - 1ElseEnd IfNext yy100: Next ynn = aaRange("p1:P" & aa + 1).ClearContents '清除辅助列数据200: Next xRange("m1").SelectSelection.CurrentRegion.ClearContents '清除辅助列数据Range("A1").Select '以下在A列加上序号n1 = Selection.CurrentRegion.Rows.CountRange("A2").SelectActiveCell.FormulaR1C1 = "1"Range("A3").SelectActiveCell.FormulaR1C1 = "2"Range("A2:A3").SelectSelection.AutoFill Destination:=Range("A2:A" & n1), Type:=xlFillDefault Range("A2").SelectEnd Sub4，工作表的名称和index号Sub Sheetsname()‘见上例的xls‘2007-2-2Dim Sht As WorksheetSheets("使用型号表").Activaten = 2For Each Sht In ActiveWorkbook.WorksheetsIf <> "汇总" And <> "使用型号表" ThenActiveSheet.Range("k" & n) = ActiveSheet.Range("l" & n) = Sht.Indexn = n + 1ElseEnd IfNext ShtEnd Sub5，重复值加色Sub 重复值加色()'重复值加色.xls' 蓝桥玄霜2007-2-2'表格中有重复值公式'Dim rng1 As Range, data As RangeDim b As IntegerSet rng1 = Range("n2:n117") ‘重复值区域b = Application.WorksheetFunction.Max(rng1) ‘重复值个数Range("B2:B117").SelectSelection.FormatConditions.DeleteFor X = 2 To b + 1 ‘用查找Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ Formula1:="=$M$" & XSelection.FormatConditions(X - 1).Interior.ColorIndex = 3Next XEnd Sub6，统计Sub tongji()‘车次统计，见统计月报1.xls‘Excel论坛Dim Myrow1 As Integer, Myrow2 As IntegerDim Sht As Worksheet, Sht1 As WorksheetApplication.ScreenUpdating = FalseOn Error Resume NextFor Each Sht In ActiveWorkbook.Worksheets 'AB列空格填充If <> "月计" ThenSheets().SelectRange("a1").SelectMyrow1 = [a65536].End(xlUp).Row 'A列最下面一行的行数，中间有空格也行Set rng1 = Range(Cells(4, 1), Cells(Myrow1 - 1, 2))rng1.SelectIf IsError(Selection.SpecialCells(xlCellTypeBlanks)) ThenGoTo 100ElseSelection.SpecialCells(xlCellTypeBlanks).SelectRange("A5").ActivateSelection.FormulaR1C1 = "=R[-1]C"Range("A4").Selectrng1.SelectSelection.CopySelection.PasteSpecial Paste:=xlValuesApplication.CutCopyMode = FalseRange("A4").SelectEnd IfElseEnd If100: Next ShtSheets("月计").SelectSet Sht1 = Sheets("月计")Range("a1").SelectMyrow1 = [a65536].End(xlUp).RowMyrow1 = Myrow1 - 1Range(Cells(4, 4), Cells(Myrow1, 11)).ClearContentsFor x = 4 To Myrow1fa = Range("a" & x).Valuedao = Range("b" & x).ValueIf fa = "" And dao = "" ThenGoTo 200ElseEnd IfFor n = 1 To 10Sheets(n).ActivateRange("a1").SelectMyrow2 = [a65536].End(xlUp).RowMyrow2 = Myrow2 - 1For y = 4 To Myrow2fa1 = Range("a" & y).Valuedao1 = Range("b" & y).ValueIf fa = fa1 And dao = dao1 ThenSht1.Range("d" & x) = Sht1.Range("d" & x) + Range("d" & y) '汇总Sht1.Range("e" & x) = Sht1.Range("e" & x) + Range("e" & y)Sht1.Range("f" & x) = Sht1.Range("f" & x) + Range("f" & y)Sht1.Range("g" & x) = Sht1.Range("g" & x) + Range("g" & y)Sht1.Range("h" & x) = Sht1.Range("h" & x) + Range("h" & y)Sht1.Range("i" & x) = Sht1.Range("i" & x) + Range("i" & y)Sht1.Range("j" & x) = Sht1.Range("j" & x) + Range("j" & y)Sht1.Range("k" & x) = Sht1.Range("k" & x) + Range("k" & y)ElseEnd IfNext yNext nSheets("月计").Select200: Next xSheets("月计").SelectApplication.ScreenUpdating = TrueEnd Sub7，最大或最小‘Excel论坛‘最大或最小.xlsSub MaxMin()Dim rng1 As RangeDim x As Integer, b As IntegerDim a(12)Range("a14").Value = ""For x = 1 To 12Cells(2, x + 3).SelectSet rng1 = Cells(2, x + 3)a(x) = Selection.Valueb = Application.WorksheetFunction.Find("/", rng1)a(x) = Left(rng1, b)a(x) = Val(a(x))Next xMymax = Application.WorksheetFunction.Max(a(1), a(2), a(3), a(4), a(5), a(6), a(7), a(8), a(9), a(10), a(11), a(12))Mymin = Application.WorksheetFunction.Min(a(1), a(2), a(3), a(4), a(5), a(6), a(7), a(8), a(9), a(10), a(11), a(12))If a(1) = Mymax ThenRange("a14").FormulaR1C1 = "最大"ElseIf a(1) = Mymin ThenRange("a14").FormulaR1C1 = "最小"ElseEnd IfEnd IfEnd Sub8，最后一记录（定义名称）Sub zhytjl0206()'最后一次的那条记录.xls'Shizx98'2007-2-6‘/dispbbs.asp?BoardID=3&ID=219549&replyID=&skin=0Dim b As Integer, x As Integer, y As Integer, aa As IntegerDim minc As RangeDim rng1 As Range, a As RangeDim nn As Integer, Myrow1 As IntegerDim pp, pp1Dim Sht1 As Worksheet, Sht2 As WorksheetOn Error Resume NextApplication.ScreenUpdating = FalseSet Sht1 = Sheets(1): Set Sht2 = Sheets(3)Sht1.Activates.Add Name:="data1", RefersToR1C1:= _ "=OFFSET(Sheet1!R1C1,1,,COUNTA(Sheet1!R2C1:R65535C1),)"Range("n1").SelectSelection.CurrentRegion.ClearContents '清除辅助列数据Sheet2.ActivateRange("a1").SelectSelection.CurrentRegion.ClearContents '清除上次数据Sht1.Range("a1:g1").Copy Sheet2.[a1]Sht1.ActivateRange("a1").SelectMyrow1 = Selection.CurrentRegion.Rows.Count 'A列数据的行数Set minc = Range("a2:a" & Myrow1)Set rng1 = Range("n2:n" & Myrow1)BcfzGS '转求不重复值宏For x = 2 To b + 1FuzulieGS '转辅助列公式宏Range("p2:p" & aa + 1).SelectSelection.Copy Sht2.Range("a2")Application.CutCopyMode = FalseSht1.Activatepp = Sht1.Range("p" & 2).Value '将行数赋给变量ppRange(Cells(pp, 7), Cells(pp + aa - 1, 7)).SelectSelection.Copy Sht2.Range("b2") '时间复制到表2Sht2.ActivateCells(2, 3).SelectSelection.Formula = "=datevalue(rc[-1])+timevalue(rc[-1])" '时间值公式If aa > 1 ThenSelection.AutoFill Destination:=Range("c2:c" & aa + 1), Type:=xlFillDefault '公式往下复制Range("a2:c" & aa + 1).SelectSelection.Sort Key1:=Range("C2"), Order1:=xlDescending, Header:=xlNo, _OrderCustom:=2, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _:=xlPinYinElseEnd Ifpp1 = Range("a2").ValueSheets(2).SelectFor xx = 1 To 7Cells(x, xx) = Sht1.Cells(pp1, xx)Next xxnn = aaSht1.ActivateRange("p1:P" & aa + 1).ClearContents '清除辅助列数据Sht2.ActivateRange(Cells(1, 1), Cells(aa + 1, 3)).ClearContents200: Next xSht1.ActivateRange("m1").SelectSelection.CurrentRegion.ClearContents '清除辅助列数据Sheets(2).ActivateRange("a1:g" & b + 1).Select ‘排序Selection.Sort Key1:=Range("a1"), Order1:=xlAscending, Header:=xlGuess, _OrderCustom:=2, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _:=xlPinYin加边框'转加边框宏Range("A1").SelectApplication.ScreenUpdating = TrueEnd SubSub BcfzGS()'不重复值公式Range("n2").Select '辅助列公式求有几个不重复值Selection.FormulaArray = "=index(a:a,min(if(countif(n$1:n1,data1),65536,row(data1))))&"""""Selection.AutoFill Destination:=rng1, Type:=xlFillDefault '公式往下复制b = Application.WorksheetFunction.CountIf(rng1, "4*")End SubSub FuzulieGS()'某个不重复值的个数和所在行数的数组公式Sht1.SelectSet a = Range("n" & x)aa = Application.WorksheetFunction.CountIf(minc, a) '计算某个不重复值的个数Range("o" & x).Value = aann = aaRange("p1") = Val(a)Range("p2").Select '某个不重复值所在行数的数组公式Selection.FormulaArray = "=if($p$1<>"""",if(iserror(small(if(minc=$p$1,row(minc),""""),row(1:1))),"""",small(if(minc =$p$1,row(minc),""""),row(1:1))))"If aa > 1 ThenSelection.AutoFill Destination:=Range("p2:p" & aa + 1), Type:=xlFillDefaultElseEnd IfEnd SubSub 加边框()BorderVars(1) = xlEdgeLeftBorderVars(2) = xlEdgeTopBorderVars(3) = xlEdgeBottomBorderVars(4) = xlEdgeRightBorderVars(5) = xlInsideVerticalBorderVars(6) = xlInsideHorizontalRange("a1:g" & b + 1).SelectSelection.Borders(xlDiagonalDown).LineStyle = xlNoneSelection.Borders(xlDiagonalUp).LineStyle = xlNoneFor x = 1 To 6With Selection.Borders(BorderVars(x)).LineStyle = xlContinuous.Weight = xlThin.ColorIndex = xlAutomaticEnd WithNextEnd SubSub zhytjl0215()'最后一条记录0215.xls'蓝桥玄霜,'2007-2-15'根据czzqbµ的数组公式修改'在表1的H列加了时间转换公式Dim b As Integer, x As Integer, y As IntegerDim minc As RangeDim rng1 As Range, a As RangeDim Myrow1 As IntegerDim Sht1 As Worksheet, Sht2 As WorksheetDim BorderVars(6) As VariantOn Error Resume NextApplication.ScreenUpdating = FalseSet Sht1 = Sheets(1): Set Sht2 = Sheets(2)Sht1.Activate ‘定义动态区域名称s.Add Name:="data1", RefersToR1C1:= _ "=OFFSET(Sheet1!R1C1,1,,COUNTA(Sheet1!R2C1:R65535C1),)"s.Add Name:="shiji", RefersToR1C1:= _ "=OFFSET(Sheet1!R1C8,1,,COUNTA(Sheet1!R2C8:R65535C8),)"Range("n1").SelectSelection.CurrentRegion.ClearContentsSheet2.ActivateRange("a1").SelectSelection.CurrentRegion.ClearContentsSht1.Range("a1:g1").Copy Sheet2.[a1]Sht1.ActivateRange("a1").SelectMyrow1 = Selection.CurrentRegion.Rows.CountSet minc = Range("a2:a" & Myrow1)Set rng1 = Range("n2:n" & Myrow1)Range("n2").Select '¸'辅助列公式求不重复值Selection.FormulaArray = "=index(a:a,min(if(countif(n$1:n1,minc),65536,row(minc))))&"""""Selection.AutoFill Destination:=rng1, Type:=xlFillDefault‘不重复值的个数b = Application.WorksheetFunction.CountIf(rng1, "4*")Range("n2:n" & b + 1).SelectSelection.CopySelection.PasteSpecial Paste:=xlValuesRange(Cells(2, 14), Cells(1 + b, 14)).Copy Sht2.Cells(2, 1)Sht2.ActivateSht2.[b2].SelectSelection.FormulaR1C1 = "=index(mydata,match(value(rc[-1]),data1,0),2)"Sht2.[c2].SelectSelection.Formula = "=index(mydata,match(value(rc[-2]),data1,0),3)"Sht2.[d2].SelectSelection.Formula = "=index(mydata,match(value(rc[-3]),data1,0),4)"Sht2.[e2].SelectSelection.Formula = "=index(mydata,match(value(rc[-4]),data1,0),5)"Sht2.[f2].SelectSelection.Formula = "=index(mydata,match(value(rc[-5]),data1,0),6)"Sht2.[g2].SelectSelection.FormulaArray = "=max(if(data1=value(rc[-6]),shiji))" ‘求时间最后的数组公式，by:czzqbRange("b2:g2").SelectSelection.AutoFill Destination:=Range("b2:g" & b + 1), Type:=xlFillDefaultSheets(2).ActivateRange("a1:g" & b + 1).Select ‘排序Selection.Sort Key1:=Range("a1"), Order1:=xlAscending, Header:=xlGuess, _OrderCustom:=2, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _:=xlPinYinSelection.Borders(xlDiagonalDown).LineStyle = xlNoneSelection.Borders(xlDiagonalUp).LineStyle = xlNone ‘加边框BorderVars(1) = xlEdgeLeftBorderVars(2) = xlEdgeTopBorderVars(3) = xlEdgeBottomBorderVars(4) = xlEdgeRightBorderVars(5) = xlInsideVerticalBorderVars(6) = xlInsideHorizontalFor x = 1 To 6With Selection.Borders(BorderVars(x)).LineStyle = xlContinuous.Weight = xlThin.ColorIndex = xlAutomaticEnd WithNextrng1.ClearContentsRange("A1").SelectApplication.ScreenUpdating = TrueEnd Sub9，大港表格转换‘大港.xlsSub dagang()Dim Sht1 As Worksheet, Sht2 As WorksheetDim x As Integer, y As IntegerDim n As Integer, m As IntegerDim n1 As IntegerApplication.ScreenUpdating = FalseSet Sht1 = ActiveWorkbook.Sheets(1)Set Sht2 = Sheets(2)Sht2.Activate ‘清除原有数据Range("a1").SelectActiveCell.CurrentRegion.ClearContentsWith Sht2 ‘表格的表头赋值.Cells(1, 1) = "编号".Cells(1, 2) = "".Cells(1, 3) = "性别".Cells(1, 4) = "年龄".Cells(1, 5) = "职务".Cells(1, 6) = "家庭地址".Cells(1, 7) = "户口性质及所在地".Cells(1, 8) = "身体状况".Cells(1, 9) = "备注"End Withn = 2: m = 2For x = 1 To 9For y = 3 To 168 Step 11 ‘两分表间隔11行If Sht1.Cells(y, m) <> "" Then ‘如果值为空，则程序结束With Sht2.Cells(n, 2) = Sht1.Cells(y, m).Cells(n, 3) = Sht1.Cells(y, m + 2).Cells(n, 4) = Sht1.Cells(y, m + 4).Cells(n, 5) = Sht1.Cells(y, m + 6).Cells(n, 6) = Sht1.Cells(y + 1, m).Cells(n, 7) = Sht1.Cells(y + 1, m + 4).Cells(n, 8) = Sht1.Cells(y + 3, m).Cells(n, 9) = Sht1.Cells(y + 4, m + 4)End Withn = n + 1ElseGoTo 100End IfNext y'Stopy = 3: m = m + 9Next x100: Range("a1").Select ‘加编号n1 = [b65536].End(xlUp).RowRange("A2").SelectActiveCell.FormulaR1C1 = "1"Range("A3").SelectActiveCell.FormulaR1C1 = "2"Range("A2:A3").SelectSelection.AutoFill Destination:=Range("A2:A" & n1), Type:=xlFillDefault Range("A2").SelectApplication.ScreenUpdating = TrueEnd Sub10，筛选尾数/dispbbs.asp?boardid=1&id=220360&star=1#220360Sub weisu()'筛选尾数0209.xls'by:Shizx98'2007-2-9Dim Myrow1 As IntegerDim Mymax As IntegerDim x%, y%, yy%, nn%Application.ScreenUpdating = FalseRange("n1:s30").ClearContents ‘清除原有数据Range("a1").SelectSelection.CurrentRegion.Copy Range("b1")Myrow1 = Selection.CurrentRegion.Rows.CountRange("c1").SelectSelection.Formula = "=right(rc[-1],4)" ‘取四位尾数Range("g1").SelectSelection.Formula = "=left(rc[-4],1)" ‘分成四列Range("f1").SelectSelection.Formula = "=mid(rc[-3],2,1)"Range("e1").SelectSelection.Formula = "=mid(rc[-2],3,1)"Range("d1").SelectSelection.Formula = "=right(rc[-1],1)"Range("c1:g1").SelectSelection.AutoFill Destination:=Range("c1:g" & Myrow1), Type:=xlFillDefault ‘公式复制For yy = 2 To 7Select Case yyCase 2Range("h1").SelectSelection.Formula = "=if(and(rc[-4]=rc[-3],rc[-3]=rc[-2],rc[-2]=rc[-1]),1,"""")" ‘判断四位尾数相等Selection.AutoFill Destination:=Range("h1:h" & Myrow1), Type:=xlFillDefaultRange("n1") = "尾数四位相同" 'AAAACase 3Range("i1").SelectSelection.Formula = "=if(and(rc[-4]=rc[-3],rc[-3]=rc[-5],rc[-3]<>rc[-2]),1,"""")"Selection.AutoFill Destination:=Range("i1:i" & Myrow1), Type:=xlFillDefault ‘判断三位尾数相等Range("o1") = "尾数三位相同" 'BAAACase 4Range("j1").SelectSelection.Formula = "=if(and(rc[-6]=rc[-5],rc[-5]<>rc[-4],rc[-4]<>rc[-3]),1,"""")"‘判断两位尾数相等Selection.AutoFill Destination:=Range("j1:j" & Myrow1), Type:=xlFillDefaultRange("p1") = "尾数两位相同" 'AACase 5Range("k1").SelectSelection.Formula = "=if(and(rc[-6]=rc[-7],rc[-4]=rc[-5],rc[-5]<>rc[-6]),1,"""")" 'AABBSelection.AutoFill Destination:=Range("k1:k" & Myrow1), Type:=xlFillDefaultRange("q1") = "尾数AABB"Case 6Range("l1").SelectSelection.Formula = "=if(and(rc[-6]=rc[-7],rc[-7]<>rc[-8],rc[-5]=rc[-6]),1,"""")" 'AAABSelection.AutoFill Destination:=Range("l1:l" & Myrow1), Type:=xlFillDefaultRange("r1") = "尾数AAAB"Case 7Range("m1").SelectSelection.Formula = "=if(and(rc[-9]=rc[-7],rc[-8]=rc[-6],rc[-7]<>rc[-8]),1,"""")" 'ABABSelection.AutoFill Destination:=Range("m1:m" & Myrow1), Type:=xlFillDefaultRange("s1") = "尾数ABAB"End SelectNext yyRange("c1:m" & Myrow1).SelectSelection.CopyRange("c1").PasteSpecial Paste:=xlValues '以“选择性粘贴”的“数值”粘贴去除公式影响500: nn = Myrow1For y = 1 To 6n = 2Mymax = Application.WorksheetFunction.Sum(Range(Cells(1, y + 7), Cells(Myrow1, y + 7)))If Mymax = 0 ThenGoTo 1000ElseEnd IfFor x = 1 To nnIf Cells(x, y + 7) = 1 ThenCells(n, y + 13) = Cells(x, 2)Range(Cells(x, 2), Cells(x, 13)).Delete shift:=xlUp ‘有相同的就复制后删除B列的一个，连一行公式数据也删除n = n + 1: nn = nn - 1ElseEnd IfNext x'Stop1000: Next yRange(Cells(1, 3), Cells(Myrow1, 13)).ClearContentsColumns("C:M").SelectSelection.EntireColumn.Hidden = True ‘隐藏C－M列Application.ScreenUpdating = TrueEnd Sub11，对比数据‘/dispbbs.asp?boardID=3&ID=220430&page=1&px=0 ‘数据比对.xlsSub duibisujue()Dim Myrow1 As IntegerDim x%, y%, xx%, nn%Application.ScreenUpdating = FalseRange("a1").SelectMyrow1 = Selection.CurrentRegion.Rows.Countnn = Myrow1: n = 1For x = 1 To nnxx = 0If Cells(x, 1) = "" ThenGoTo 100ElseEnd IfFor y = 1 To nnIf Cells(x, 1) = Cells(y, 2) And Cells(x, 1) <> "" ThenCells(n, 5) = Cells(x, 1): Cells(n, 6) = Cells(y, 2)n = n + 1: xx = 1Cells(x, 1).Delete shift:=xlUpCells(y, 2).Delete shift:=xlUpnn = nn - 1y = y - 1ElseEnd IfNext yIf xx = 1 Thenx = x - 1ElseEnd IfIf nn < x ThenGoTo 100ElseEnd IfNext x100:Application.ScreenUpdating = TrueEnd Sub12，修改批注字体Sub 修改批注字体()' Shizx98 2007-2-10'/dispbbs.asp?BoardID=1&ID=220734&replyID=&skin=0 Dim c As CommentSet cmt = Worksheets(1).CommentsFor Each c In cmtc.Visible = Truec.Shape.Select TrueWith Selection.Font.Name = "隶书".Size = 20End Withc.Visible = FalseNextEnd Sub13，删除合并单元格' 分部.xls' Shizx98' 2007-2-11'/dispbbs.asp?boardID=2&ID=220741&page=1&px=0Dim ma As RangeDim Myrow1 As Integer, nn As Integer, gesu As IntegerDim XuhaoDim rng1 As RangeDim n%, x%, y%, a%, b%Application.ScreenUpdating = FalseRange("a1").SelectMyrow1 = Selection.CurrentRegion.Rows.CountSet rng1 = Range(Cells(1, 1), Cells(Myrow1, 1)) = "data" ‘区域命名n = 1: nn = Myrow1For x = 1 To nnXuhao = Cells(x, 1)If Xuhao = "" Or Not (IsNumeric(Xuhao)) Thennn = nn - 1: GoTo 200Elsegesu = Application.WorksheetFunction.CountIf(rng1, Xuhao) ‘重复值个数If gesu = 1 ThenGoTo 200ElseRange("p1") = Cells(x, 1)Cells(1, 17) = gesuCells(2, 17).SelectSelection.FormulaArray = "=small(if(data=$p$1,row(data)),row(1:1))" ‘重复值所在行数Selection.AutoFill Destination:=Range("q2:q" & gesu + 1), Type:=xlFillDefault '公式往下复制Range("q2:q" & gesu + 1).SelectSelection.CopyRange("q2").SelectSelection.PasteSpecial Paste:=xlValues '以"选择性粘贴"的"数值"粘贴去除公式影响b = 0For y = 2 To gesun = Cells(y + 1, 17) - bCells(n, 1).SelectSet ma = Cells(n, 1)With maIf .MergeCells Thena = ma.MergeArea.Countb = b + a: nn = nn - aElseRange(Cells(n, 1), Cells(n, 13)).SelectSelection.Delete shift:=xlUpa = 1: nn = nn - 1:b = b + aGoTo 100End IfEnd WithIf a > 1 ThenRange(Cells(n, 1), Cells(n + a - 1, 13)).SelectSelection.Delete shift:=xlUpElseEnd If100: Next yRange("q1:q" & gesu + 1).ClearContentsRange("p1").ClearContentsEnd IfEnd If200: 'StopNext xApplication.ScreenUpdating = TrueEnd Sub14，物品领用报表Sub 宏9()' 赋予“报表制表”按钮的宏Macro‘进出货领用表.xls' 蓝桥玄霜2006-12-19Dim PitItemVar As PivotItemDim Pivot1 As PivotTableDim MyItem As VariantDim x, y, xx, xcolumn As IntegerDim BorderVars(6) As VariantDim yearcpage, monthcpage As Variant。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
0.00 0.00 0.00 0.00
0 0 0 0
姓名
出勤
本月天数
总分数
总奖金
个人分数
杂工
合计工资
1 2 3 4 5 6
张国辉 张志军 姬志勇 张志军 孙延海 张文华
31 31 31 31 31 31
0 0 0 0 0 0
6393.30 6393.30 6393.30 6393.30 6393.30 6393.30
100 95 95 95 95 95
#DIV/0! #DIV/0! #DIV/0! #DIV/0! #DIV/0! #DIV/0!
7
孙延海
31
0
6393.30
80
#DIV/0!
服务队
序号 姓名 出勤 本月天数 级别 级别工资 基本工资 奖金 合计工资
1 2 3 4 5 6 7 8 9 10
吴福明 孟维江 吴福明 顾义 赵海涛 李国新 姜忠胜 孙祖容 冯光云 吴小迎
8 8 8 8 7 7 7 7 7 7 7 4 4 4 其它 其它 5 3
1200 1200 1200 1200 1100 1100 1100 1100 1100 1100 1100 730 730 730 800 800 760 700
0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
0.00 0.00 0.00 0.00 0.00
0 0 0 0 0
总人数
74
工资总数
#DIV/0!
重复姓名 谭奇春 王俊花 梁秀丽 张志军 孙延海 吴福明
0
0
0
0
#DIV/0!
0
0
0
#DIV/0!
0 0 0 0 0 0
姓名
出勤
本月天数
级别
级别工资
基本工资
奖金
合计工资
1 2 3 4 5 6 7 8
杨汝彬 刘焕忠 谭奇春 王俊花 王俊花 冯士英 高贵花
31 31 31 31 31 31 31
6 其它 2 2 2 2 2
1040 800 660 660 660 660 660
0.00 0.00 0.00 0.00 0.00 0.00 0.00
0.00 0.00
0.00
0 0
序号
姓名
出勤
本月天数
级别
级别工资
基本工资
奖金
合计工资
1 2 3 4 5 6 7 8 9 10 11
吕建敏
31
4
730
0.00
0.00
0
李从江 苏忠福 刘学臣 刘宝勇 韩华建
31 31 31 31 31
4 4 4 4 4
730 730 730 730 730
0.00 0.00 0.00 0.00 0.00
0.00 0.00 0.00 0.00 0.00 0.00
0.00 0.00 0.00 0.00 0.00
0 0 0 0 0 0
大炉
序号 姓名 出勤 本月天数 级别 级别工资 基本工资 奖金 合计工资
1 2 3 4 混料
序号
魏金来 梁秀丽 刘松寿 陈树森
31 31 31 31
其它 其它 其它 其它
950 950 950 950
31 31 31 31 31 31 31 31 31 31
670 670 670 670 670 670 670 670 670 670
0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
0 0 0 0 0 0 0 0 0 0
后勤
序号 姓名 出勤 本月天数 级别 级别工资 基本工资
序号
姓名
出勤
本月天数
级别
级别工资
基本工资
奖金
合计工资
1 2 3 4 5 6 7 二班
序号
尹秀峰 廖卫平 谭奇春 谢风英 王俊花 吴英凯
31 31 31 31 31 31
6 2 2 2 2 3
1040 660 660 660 660 700
0.00 0.00 0.00 0.00 0.00 0.00
0.00 0.00 0.00 0.00 0.00 0.00
奖金 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
合计工资
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
20 21
周伟 刘月岺
31 31
670 1200
0.00 0.00 0.00 0.00 0.00 0.00 0.00
0 0 0 0 0 0 0
三班
序号 姓名 出勤 本月天数 级别 级别工资 基本工资 奖金 合计工资
1 2 3 4 5 6
李国臣 梁秀丽
杨勇
彭树芹 梁秀丽 马秀兰
31 31 31 31 31 31
6 2 3 2 2 2
1040 660 700 660 660 660
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
杨敬会 吕忠新 孟凡海 杨维海 周生良 左宾 韩长江 张俊清 付万新 司德明 刘守良 杨维新 刘淑凤 闫春雨 王世泉 李晓梅 赵前龙 杨维峰
31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31 31