EXCEL宏编写循环，A1,A2,A3需要转置到B2,C2,D2，循环2000次，求大神相助，具体如下：
点击联系发帖人
时间：2015-06-27 18:56
A列红色区域等于O列红
B列区域等于R列绿
H列黄色区域等于X——AF列黄
N列紫色区域等于AG紫
A列灰色区域等于O列灰
B列橙色区域等于R列橙
H列蓝色区域等于X——AF列蓝
N列青色区域等于AG青
9排为一个循环，如何用公式实现，希望高手能帮忙解决，谢谢！详见附件
A2=OFFSET(O$1,ROUNDUP(ROW(A1)/9,),)
B2=OFFSET(R$1,ROUNDUP(ROW(B1)/9,),)
H2=OFFSET($X$1,ROUNDUP(ROW(A1)/9,),MOD(ROW(A1)-1,9),)
M2=IF(MOD(ROW(),9)=1,SUM(OFFSET(D2,,,-9)),"")
N2=IF(MOD(ROW(),9)=1,OFFSET(AG$1,ROUNDUP(ROW(A1)/9,),),"")
均下拉复制（黄色区域）
DVD-ROM是DVD光驱的意思
DVD-ROW是指可以刻录DVD光盘的刻录机（同时也能读取DVD）
Rows.Count是第一列的最大行数; Cells(Rows.Count, 1).End(xlUp).Row整体意思是第一列最后一个有数据的行的行号。
n.行，排; 划船; 吵闹; 路，街;
vt.划船; 使…成排; 与…进行划船比赛; 〈口〉争吵，吵闹; （如果对我的答案满意，麻烦点击“好评”， 谢谢您^_...
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区工作表的标签的字体和大小可以更改吗答：在桌面上点右键─内容─外观，相关的设定都在此更改。自定义格式的体会在format cell的时候，选了custom后在格子里输入你想要的位数，不变的部分就照着打进去，会变得部分打0就好了，（用0占位）。 例如：你要打的数字是56，后6位是不定的，那你要打在格子里面00。这样如果你输入最后3位是012，那么会显示出12；如果你输入54321，那么会显示出21。 如果你会变得部分是在数字的中间，比如我的item#会是-0000002，后面的-0000002是不变的，那我就可以设置自定义格式为&-0000002&,这样当我键入502的时候就会显示-0000002。再次显示出被隐藏掉了的行（第1行）1：&&选中隐藏的上、下行，右击鼠标，选“取消隐藏”(作者注：此法可行) 2：Ctrl+A-----格式-----行-----取消隐藏(可以，能够一次显示所有隐藏的行或列)3：另一法(工作表处于未保护状态):假如 A1 被隐藏了在名称框中键入A1,回车按 Ctrl+Shift+0 或 Ctrl+Shift+9(只显示选定的隐藏列或行)4：光标移到行号 4 上部变成 上下箭头状, 按住了, 拖也要把它拖出来!(慢，不好操作)5：选择整个工作表（点击左上角），然后再选择菜单中的行，选择最适合的行高，然后就OK!,同样可以把隐藏的列显示出来。(这个办法最好，能够一次显示所有隐藏的行或列)如何定义有效数字例：取两位有效数是从第一个不是零的数字起，取两位。0.0023666取两位有效数是0.0023 。0.2366取两位有效数是0.23。解答：用函数可如下: =FLOOR(A1, SIGN(A1)*10^(INT(LOG(ABS(A1)))-1)), +/- 小数有效,0无效.其它形式的数据, 自行扩展.sheet1工作表的A1、A2、A3单元格分别链接到sheet2、sheet3、sheet4解答：1、&=indirect(&sheet&&row()+1&&!a1&)《程香宙的解释：indirect是把文本变为单元格引用的函数row()是取当前行号。例如在a1输入该公式，则row()=1，公式里的值变为indirect(&sheet2!a1&),跟＝sheet2!a1同效，在a2输入该公式，则row()=2，公式里的值变为indirect(&sheet3!a1&)》2、使用插入----超级链接----书签----(选择)----确定用SUMIF函数进行条件求和，不限于一个条件时如何设置参数例如：有一个表格登记面粉、米粉、糯米、梗米、绿豆、早米……等等的进出流水帐，如果对满足单一条件的如面粉、糯米、绿豆等分别求和是没有问题的，但如果要将同一类的求和，例如将糯米、梗米、早米的数值加在一起，应该怎么办？ 解答：提供以下公式供参考，设A列为名称、B列为数量：=SUMIF(A:A,&糯米&,B:B)+SUMIF(A:A,&梗米&,B:B)+SUMIF(A:A,&早米&,B:B)如B1:D1为求和条件项，即B1=&糯米&,C1=&梗米&,D1=&早米&,上述公式还可改为:=SUMIF(A:A,B1,B:B)+SUMIF(A:A,C1,B:B)+SUMIF(A:A,D1,B:B)如何在excel中已有的数值前加零变成六位比如说 25、369、1569等，操作后变成解答：如果直接输入的话，可以在数值前面加“'”，如“'002020”； 如果处理现成的数据，或者从别处（比如从A1单元格）链接来的数据，可以用公式：＝RIGHT(&00000&&A1,6)如何提取工作表中的背景图片解答：找个干净的地方, 去掉网纹等不需要的东西, PrintScreen 再编辑绘制有三条斜线的表头解答：1、用绘图工具画出斜线&&画方框&&内添加文字&&去边框2、引用WORD中的，然后再复制过来就可以！在A列有一组数据不是按照大小顺序排列在B列中排名解答：方法1、将A列COPY到B列，再排序。2、rank函数(=RANK(A2:A11,$A$2:$A$11,0)(假设数据在A2：A11单元格，下同)3、使用contif函数进行排列“=countif(a$2:a$11,&&&&a2)+1&有无办法让B2所在行都呈红色字体解答：假设你有一个B列和一个A1的值，你的目的是，如果B2＝A1的话，整个B列都为红色显示！设置如下：先选定整个b列，也就是在B列列标处单击（废话～^_^），选择格式－条件格式出现条件格式对话框，单击左边的下拉列表，里面只有两项，单元格数值和公式，选中公式，右边就可以输入任何可以返回逻辑值的公式了。输入这个公式=($B$2=$A$1)。千万注意要用绝对引用，因为如果是相对的，excel又自作主张的一个一个判断了，就没有作用了。(绝对正确并且好用)现有12个工作表,是12张发票,建立一个汇总表,将发票号和金额汇总显示在一张表里(发票号和金额在每张表的相同位置).解答：在A1输入 =INDIRECT(&sheet&&ROW()&&!d3&)在B1输入 =INDIRECT(&sheet&&ROW()&&!d10&)再选择A1：B1往下复制到第12行。经验技巧按“Ctrl+~”可以一次显示所有公式(而不是计算结果)。再按一次回到计算结果。(程香宙)在一个不对称的区域中如（b1:G7）中找到A行一组数据中的某个数并自动变红解答：其实也很简单,你只要选定你的b1:g7，设置它的条件格式为=(COUNTIF($A$1:$A$7,b1))注意,b1为相对引用,这里输入所选区域的第一个取值，那样你的所选区域会自动填充.达到你要的效果。(好)不借助第三列而直接用函数或公式一步得到sum(a2/b2,a3/b3,…)的结果解答：输入=sum(a1:a100/b1:b100)，按ctrl+shift+Enter。请问要如何算出每个月有几个星期一、二、三….日解答：为简单起见,表格需作一下调整,将 &星期日& 移到 C1,其后依次,这也符合规则(请参阅函数: WEEKDAY()). 。在 C2 键入数组公式: {=SUM(IF(WEEKDAY(DATE($A2,$B2,ROW(INDIRECT(&$A$1:$A$& & DAY(DATE($A2,$B2+1,1)-1)))))=COLUMN()-2,1))}，向右复制、向下复制。公式解释一点:ROW(INDIRECT(&$A$1:$A$& & DAY(DATE($A2,$B2+1,1)-1)))实际上是从 1 号测试到本月的最后一天.如需要,公式可再作精简。让隐藏的列或行不参预计算解答：使用subtotal函数,详细用法参见帮助。一次删完Excel里面多出很多的空白行解答：1、用分面预览看看2、用自动筛选然后删除3、用自动筛选，选择一列用非空白，空白行就看不到了，打印也不会打出来。但是实际上还是在的，不算删除。或者用自动筛选选择空白将空白行全显出来一次删完也可以。4、先插入一列，在这一列中输入自然数序列，然后以任一列排序，排序完后删除数据后面的空行，再以刚才输入的一列排序，排序后删除刚才插入的一列。表1、表2分别有20个人的基本情况和其中10个人的名字，让表1的数据自动填充到表2答：1、用lookup函数即可。要保证20人不重名；2、假设表1的D列对应表2的E列。E2的公式：=VLOOKUP(B2,Sheet1!B:D,3,FALSE)使用vlookup函数返回#N/A符号时将此符号用0或空格来代替答：这样处理： =IF(ISNA(VLOOKUP(C13,A1:B10,2)),0,VLOOKUP(C13,A1:B10,2))或：IF(ISERROR(vlookup(a1,e1:g10,2,0)),0,vlookup(a1,e1:g10,2,0))。通过条件格式将小计和总计的行设为不同的颜色答：输入=RIGHT(RC,1)=&计&；设定字体、边框、图案；确定。复制隐藏后的表格到一个新表格中使被隐藏的内容不显示答：crtl+g－选可见单位格－复制－粘贴。如何将一个工作簿中的一个Sheet隐藏答：1、选“格式”---“工作表”----“隐藏”2、使用VBA这样隐藏后在使用工作表保护。Alt+F11----Ctrl+G----出现立即执行窗口，在此窗口内执行Sheet1.Visible = xlSheetVeryHidden这样隐藏后sheet在格式---工作表----取消隐藏是看不见的。问：方法2更好哦，如何恢复呢？答：sheet1.Visible =xlSheetVisible工具菜单与视图中的工具栏不同屏蔽工具菜单宏sub notool()MenuBars(xlWorksheet).Menus(&工具&).Deleteend sub解除屏蔽sub yestool()MenuBars(xlWorksheet).resetend sub Alt+F11 进入VBA 编辑、插入模块、将上面宏复制到模块、运行宏。OK查找并填写符合条件的单元格内容我在工作中需快速复制每行多个数据（单元格）中最小值所对应的“标题名”，如E6是C6：Y6中的最小值，所对应的标题是E5单元格“某某公司”，要将其（某某公司）复制到B6单元格中，以此类推的复制很多很多行的内容。如果是手工一个一个查找与复制，实在是太慢太笨了，能否使用一个简单的公式计算呢？答：B6单元格&=INDEX(C$5:Y$5,MATCH(MIN(C6:Y6),C6:Y6,0))& 填写空白行我有个同事在一张空白表依次输入数据，为了省事她把和上一格内容相同的的省略不输，输了近200行。后来又觉得不够正式，想把空白的地方补上。她来问我怎么办好。当然依次填充也行，但我觉得烦（如果有2000行怎么办呵呵）我想了一个不是办法的办法：在A列和B列旁各插入一列，现在就有ABCDE列，我在B2中复制了A2中的内容，然后在B3中输入公式：IF(A3=0,B2,A3),然后往上往下复制公式。这样就填满了。如法炮制D列后隐藏AB列感觉就可以了。可是也烦啊，谁有更好的办法？答：1、Sub feifjeifjeifjeifjeifjiefjiejfiejf()For i = 2 To ActiveSheet.Range(&a1&).CurrentRegion.Rows.CountIf IsEmpty(Cells(i, 1)) ThenCells(i, 1).FormulaR1C1 = Cells(i - 1, 1).ValueEnd If NextEnd Sub2、筛选出空白行，输入公式=INDIRECT(&a&&ROW()-1)，填充制订下月计划并显示为中文我在五月份做六月份的计划，为减少工作量和更改的麻烦，我做模板并使用了公式=&计划期：&&YEAR(NOW())&&年&&(MONTH(NOW())+1)&&月&，结果如A1所示 计划期：2002年6月 （现在的系统日期是2002年5月）。&如果我想自动得到如A2中的结果 计划期：二○○年六月 ，请问要如何做才行，我设置了单元格的日期格式还是不行。解答：1、先设置单元格格式为&二○○二年六月&那种类型，然后用如下公式：=DATE(YEAR(NOW()),(MONTH(NOW())+1),20)就可以了。2、使用这个函数吧！ =EDATE(NOW(),1)。单元格格式应设置为：日期----一九九七年三月。3、设置单元格格式为：[DBNum1]&计划期：&yyyy&年&m&月& ，然后直接输入日期值(如2002/11)即可。输入公式也可以。如=today()+30，可以得到下个月的月份。&的用法有E44单元格，我希望 总计：=SUM(E45:E49) 就是想让它经过自动求和后在一个单元格内显示 总计：120 。解答：有多种方法实现，详细如下：1、=&总计：&&sum(e45:e49)2、把E44格式设为&总计:�.00;&总计:&-#0.00;&总计:&0.00;@3、将E44单元格格式自定义为 &总计：&0.000 即可,方便对E44的引用计算4、=CONCATENATE(&合计：&,SUM(e45:e49))有5行数据在每行上面个插入1行解答：1、在最左边插入一列，然后输入1、2、3、4、5、1、2、3、4、5，并以此列进行排序，在第一行上面再插入一行，删除刚刚插入的列。2、使用Ctrl+鼠标一行一行选定，然后插入行。3、sub 插入行（）for i=1 to 6if cells(i,1).value && Cells(i + 1, 1) And Cells(i, 1) && &&) ThenRows(i + 1).Insertend ifnext iend sub 可以检查一张表里是否有漏重的数字吗答：漏值：{=IF(SUM((R1C1:R10C4=&&)*1)&0,&有漏值&,&无漏值&)}重复值：{=SUM(SUM((漏值!R1C1:R10C4=漏值!RC)*1))}{=IF(MAX(R1C1:R10C4)&1,&有重复值&,&无重复值&)}使用下面公式更方便：找重复值-------{=IF(SUM((COUNTIF(R1C1:R10C4,R1C1:R10C4)&1)*1)&1,&有重复值&,&无重复值&)}找 漏 值-------{=IF(SUM((R1C1:R10C4=&&)*1)&0,&有漏值&,&无漏值&)}注意：这两个公式均为数组，输入时应同时按Ctrl+Shift+Enter。怎样将单元格中的公式转换为数值解答：选中公式的一部分，按F9键条件求和有这样一个表格A B C 1&2&3 /2&2&3 /3&2&3 /4&2&3 /5&2&3/6&2&3 /如何才能求出满足A列中大于2且小于5的B列和C列数值的和，要求B列和C列的值相加。用sumif函数似乎条件中只能设定为＞2，而不能同时设定＜5，而且在求和时只能B列相加，不能把B列和C列满足条件的值加起来。这个问题能不能只用函数，不用数组公式解决。请各位指教。解答：1用公式：=SUM(IF(($A$1:$A$6&2)*($A$1:$A$6&5),B1:C6))2用数组公式：{=SUM(IF($A$2:$A$7&2,IF($A$2:$A$7&5,$B$2:$B$7,0),0))+SUM(IF($A$2:$A$7&2,IF($A$2:$A$7&5,$C$2:$C$7,0),0))}A1单元格为出生日期，可用=DATEDIF(A1,NOW(),&y&)计算其年龄这个公式是什么意思？K7=if(AND(R7&3000, Q7&0.5), &&, P7)意思是：如果R7单元格中的数值大于3000，并且Q7单元格中的数值大于0.5，则在K7单元格中显示空白，否则显示出P7单元格中的数据。统计数据问题一例各位朋友，如果我想统计50个数据中大于某个值的数据个数，（这个值是在使用时才输入某个单元格的），请问用什么函数，如何实现，谢谢。 如数据单元格为A1：E10，值的单元格为A11。答：1、使用下面的数组公式： {=SUM(IF($A$1:$E$10&$A$11,1))}2、输入以下函数： =COUNTIF(A1：E10,&&&&A11)关于条件求和问题！有A，B，C，三列数据，如果A列符合要求，求B1*C1+B2*C2+......?答：使用数组公式： {=SUM((R2C1:R13C1=&ab&)*(R2C2:R13C2)*(R2C3:R13C3))}请教关于条件乖积的求和问题A列为部门名称，B列为姓名，C列为日工资额(如20.00)，D列为月出勤天数，我想在另一汇总表中汇总出各部门员工月工资总额(即：相应部门对应的C*D之和)。请问如何解决？解答：1、=SUM((A4:A10=&甲部门&)*(C4:C13)*(D4:D13))假设你的a列存放部门名称，你的b列存放员工姓名，C列存放日工资，D列存放天数。计算“甲部门”的工资总额。注意，这是数组公式，输入完毕后按ctrl+shift+回车问：我试着把区域引用改为整列，出现错误，请指点!=SUM((date!A:A=&甲部门&)*(date!E:E)*(date!F:F))答：经试验，不能用整列方式，你可以适当的调整一个比较大的区域如a2:a100 a1为标题行因为如果参与计算的e列和f列区域出现文本，也会发生错误。一定要把计算区域的标题行去掉，并且保证不再数值区域出现文本。=SUM((date!A2:A100=&甲部门&)*(date!C2:C100)*(date!D2:D100))这个公式没有错误文件修复Excel文件是一个工作簿，一般可以包含255个工作表，每个工作表中可以包含大量的数据。如果一个Excel文件部分受损，不能正常打开，该怎么办呢？这里向大家介绍两种解救方法。 手动处理 进入Word，打开要修复的XLS文件，如果Excel只有一个工作表，会自动以表形式装入Word，若文件是由多个工作表组成，每次只能打开一个工作表。打开后，先将文件中损坏的数据删除。 用鼠标选中［表格］→［转换］→［表格转文本]，注意可用“，”间隔符或其它分隔符，另存为一个TXT文本文件。在Excel中直接打开该文本文件，在打开时，Excel会提示文本导入向导，一般情况下只要直接点击［下一步］即可，打开后另存为其它的Excel文件即可。 注意：这种修复的方法是利用Word的直接读取Excel文件的功能实现，该方法在文件头没有损坏，只是文件内容有损坏的情况下比较有效；对文件头已经损坏的Excel文件，此方法可能不成功，必须借助于其它方法。 用Excel修复工具 Concept Data公司提供了一个专门用于修复Excel损坏文件的修复工具——ExcelRecovery，能够对Excel 5.0/97/2000的文件进行恢复处理，大家可以先下载该软件的免费演示版试用，仅有674KB，下载地址。软件安装后，可以自动将Excel的修复程序加在Excel应用程序中，在“文件”菜单下多出一项“Recovery”选项，若有损坏的文件，可以用该选项进行修复。另一个下载地 使用方法是： 1、打开Excel； 2、单击“文件”菜单下的“Recover”选项，Excel Recovery对话框将打开 3、指定要修复的Excel文件，然后按[Recover]按钮； 4、自动修复； 5、另存为一个新的文件名，即可完成文件的修复工作。 注意：该演示版本只能修复普通文件，不能修复带Visual Basic代码、图表以及包含口令的Excel文件，如果需要修复这些文件，请进行注册。 另外要提醒大家的是：保存在软盘中的文件极易损坏，受损后可用以上方法修复，但如果损坏的文件位于磁盘0磁道时，就必须先修复软盘，再用上述方法修复Excel文件。另外，考虑到未注册版本的使用限制，我找到如下破解页面，你自己再研究研究Results 4 of about ExcelRecovery URL:
• ExcelRecovery v3.0 • ExcelRecovery v2.2 URL: ...&#. ExcelRecovery 2.2 12 Kb &#. ExcelRecovery 2.2.1 12 Kb &#. ExcelRecovery v3.0 (SirCrack) 12 Kb URL:
• ExcelRecovery v3.0 - 11 Kb URL:
&#. ExcelRecovery 3.0 by SirCrack [ 11 Kb ] 显示隐藏的工作表有个朋友给了我一个EXCEL程序，里面只有2个SHEET，但是我见到其中一个SHEET还引用了本文件另外一个工作表的内容，我用ALT+F11打开VB编辑器又可以看到那个隐藏了的工作表， 请问怎么能看到那工作表呢？答：Sheets(&name_of_sheet&).Visible = True这样一列如何筛选出含201的 县一高2014555 /便民201号 /县城301号/45122 /柏良201 /柏良301答：假设你的资料在B列，且起始行为第四行，即B4起始单元格，终止与11行处，即B11，则在A列输入公式IF(ISERROR(FIND(&201&,B4)),A3,A3+1),然后在D列输入顺序数字，比如1到10，在E列输入公式vlookup(d4,$a$4:$b$11,2,1&2)。注意A3为0。或：自动筛选-&单击下拉列表-&custom(自定义)-&在条件中选&包含&,在右边的文字框输入&201&-&OK两个日期相差的月份数使用Datedif(日期1，日期2，&m&)函数。用函数实现连续相加我有一公式是这样的：=sum(B1+B2+B5+B8+B11+B14+B17+B20) 也就是前两个是连续相加，后边的是每隔3个相加，不知有没有简单的公式。答：{=SUM((MOD(ROW(B1:B20),3)=2)*B1:B20)+B1}把计算结果为负值的显示为红色取整并在数字后面加上“仟元“把单元格格式改为#,##0&仟元&;[红色]-#,##0&仟元&如果不要负号可以写成#,##0&仟元&;[红色]#,##0&仟元&比较A、B两列数据并在A列中包含B列的数据删除工作表中A列数据是原始数据，而B列是另一些数据，现在要比较两列的情况，然后将A列中包含B列的数据删除Sub wswx0041()Dim i&, j&On Error Resume NextFor j = Range(&B65536&).End(xlUp).Row To 1 Step -1For i = Range(&A65536&).End(xlUp).Row To 1 Step -1If Cells(i, 1) Like &*& & Cells(j, 2) & &*& And Not IsEmpty(Cells(j, 2)) Then Cells(i, 1).Delete shift:=xlUpNext iNext jEnd Sub怎样让我的图表随着数据透视表的更新我的问题是： 1、当有新月份的数据出现的时候，图表无法包含新数据；2、但REGION选择不是全部，比如CD,图表中没有数据。怎样实现图表随数据透视表的更新而更新呢？解答：DATA=Data!$A$1:$G$129、固定的范围,不值钱、DATA=OFFSET(Data!$A$1,,,COUNTA(Data!$A:$A),6)动态范围、按数据透视表[!]按钮,更新数据 Sales Date；改用年月日三个字段；目的是当[索引],让条件容易下；DATA=OFFSET(Data!$A$1,,,COUNTA(Data!$A:$A),8)。直接由[数据透视表]工具,[图表精灵]出,[图表]如此就是完美的三层式结构，分工完成工作，只不过是接条龙，很简单吧! 又问：每次刷新数据，列宽等格式就需要重调，有没有办法将格式固定住？答：工具&&选项&&一般&&标准字型&&大小&&确定。设定好以后,开新档案,列宽行高自动会调整。但这不是重点 [数据透视表]；鼠标右键&&分页显示。此功能是用来打印整本活页簿,出报表用双击总计字段下之单元格；此功能是用来列出该笔合并数据所有明细；所以[自动筛选][进阶筛选]就用不着了,也不必去写复杂之[数组公式]；需要甚么数据,直接找[数据透视表]要；操作非常简单DATA可以转到mbd檔；ACCESS可以汇入Excel数据,用精灵操作；汇入以后xls档即可删除Excel&&数据&&取得外部数据&&新增外部数据查询&&&&&&转入[数据透视表]；此物即为Microsoft Query第一次使用会要求放入光盘片,安装ODBC驱动程序改用年月日三个字段；是有道理的。别嫌麻烦循环引用问题vba中输入公式，我想用变量代替RC地址，以便循环操作，如何做到？比如：在Range(&am6&).FormulaR1C1 = &=SUM(R[-5]C:R[-5]C[10])&中，如何才能用变量x来代替其中的10或-5等数字？ 解答：=&=SUM(R[& & x & &]C[& & y & &]:R[& & xx & &]C[& & yy & &])& 如何才能有条件的引用某一区的内容请教各位，怎样才能引用符合条件的某一区域的内容。如下： A B C 9-1 1 9-15 /9-2 2 9-16 /9-2 2 9-17 /9-2 1 9-18 /9-4 2 9-18 请问，用什么方法才能在另外的单元格中引用同时符合A列中“9-2”和B列中“2”的C列的内容。解答：先判断个数，再列出符合的数据：{=IF(ROW()-ROW($A$18)+1&SUM(($A$2:$A$7=$B$16)*($B$2:$B$7=$C$16)),&&,TEXT(SMALL(IF(IF($A$2:$A$7=$B$16,$B$2:$B$7,&&)=$C$16,$C$2:$C$7,&&),ROW($A1)),&m月d日&))}Excel基本功1.引用同一工作薄中另外一工作表的单元格 = Worksheets(&工作表名称&).Cells(1, 1) ------------------------------------------------------------ 如当前工作表为sheet1，想引用sheet2中的B2,则=sheet2!B2 2.如何使0值不显示 方法1：if (A1&&&&, A., &&) 方法2：对于整个工作表中的0值全不显示，[工具]-[选项]-[视图]，清除0值选项。 方法3：用自定义数字格式，其中&#&和&?&有屏蔽0值的效果。比如：&G/通用格式;G/通用格式;#&，&G/通用格式;G/通用格式;?&。 3.如何定义格式和Copy格式? 在EXCEL中,可不可以把某一范围定义成一种格式,而其中某些数据又不是.并且又如把这种格式COPY到同一张sheet1中?如: 大制程 标准工时 状况
二次 13 /焊接 20& .而其它空格就不包括在格式中.被填写了的这张表格的格式又能重新COPY.如何做呢? 解答：新建一个只有一个工作表的工作簿 ,在这个工作表中设计你的格式另存为模板（*.xlt）。以后插入新工作表时，选择刚才建的模板。 又问：但是假如我只有一张工作表,我如何在同一张工作表中COPY呢?如我的固定格式在sheet1的A1:Z15范围内,我要把这种格式copy到A17:Z24,而其中的数据又不COPY进来.怎么办?解答：假设你要复制格式的范围为A1:Z1和A1:B15两个区域，则用下面的宏能实现你的复制要求。 你只要选定新区域左上角的单元格，然后执行宏即可。 Sub 宏1() aaa = ActiveWindow.RangeSelection.Address Range(&A1:Z1&).Select Selection.Copy Range(aaa).Select ActiveSheet.Paste Range(&A1:B15&).Select Application.CutCopyMode = False Selection.Copy Range(aaa).Select ActiveSheet.Paste Application.CutCopyMode = False Range(aaa).Select End Sub ------------------------------------------------------------ 如果A1:Z15中的数据全部都要清除， 可以[复制]A1:Z15，[选择性粘贴]到A17，粘贴栏中选中&格式&。 ------------------------------------------------------------ 选定范围后直接使用格式刷就可以了 4.如何实行列互换？ 解答：Transpose函数 或选中一行或一列，复制，选择性粘贴－＞转置。 ------------------------------------------------------------ 在某一单元格输入公式“INDEX(reference,COLUMN(A1),ROW(A1))” 然后向下向右拖放。 5.EXCEL2000中视面管理器如何具体运用呀？ 请问高手EXCEL2000中视面管理器如何具体运用呀？ ------------------------------------------------------------ 其实很简单呀，你把它想象成运动场上的一串照片（记录不同时点的场景）， 一张照片记录一个场景，选择一张照片就把运动“拖”到照片上的时点。 不同的是只是场景回复，而值和格式不回复。解除officeXP&50&次限制首先使用下面这个序号来安装Office XP。 BMV8D-G272X-MHMXW-4DY9G-M8YTQ 2、安装后，启动新建一个Word文档，程序会提示你激活，不管它！关闭Word。 3、打开注册表编辑器REGEDIT.exe，进入到下面的子键里面： [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\Products\3D11C8EFC\Always Installed] 4、把右边的这个DWORD类型的键删除：&Usage&=dword:2adb0001 5、在右边新建这样一个字符串型的键：Usage，将其值改为AlwaysInstalled 即： Usage=&AlwaysInstalled& 6、最后使用法国人写的字节数为12,800的Crack.exe来破解Office XP后，即大功告成！ 我破解后，打开Word 70次，打开Excel 60次后，还是能够新建文档、表格，而且可以顺利保存。 无论Win98或Win2000操作系统我都成功了,且已运行了200次以上! 小写数字转换成人民币大写方法1、Function UNumber(LNumber As Double)Dim NumberStr$Dim NumberLen%Dim DotLoc1%Dim DotLoc2%Dim NumberStr1$Dim NumberStr2$If LNumber = 0 ThenUNumber = &零元整&Exit FunctionEnd IfNumberStr = Application.WorksheetFunction.Text(LNumber, &[DBnum2]&)NumberLen = Len(NumberStr)DotLoc1 = InStr(1, NumberStr, &.&, vbTextCompare)DotLoc2 = NumberLen - DotLoc1If DotLoc1 = 0 ThenNumberStr = NumberStr & &元整&ElseNumberStr = Replace(NumberStr, &.&, &元&)If DotLoc2 = 2 ThenNumberStr = NumberStr & &分&If Mid(NumberStr, DotLoc1 + 1, 1) && &零& ThenNumberStr1 = Mid(NumberStr, 1, DotLoc1 + 1) & &角&NumberStr2 = Right(NumberStr, 2)NumberStr = NumberStr1 & NumberStr2End IfElseNumberStr = NumberStr & &角整&End IfEnd IfOn Error Resume NextUNumber = Replace(NumberStr, &零元&, &&)End Function方法2、=IF(TRUNC(H16)=H16,TEXT(H16,&[DBNum2]G/通用格式&)&&元整&,TEXT(TRUNC(H16),&[DBNum2]G/通用格式&&&元&))&IF(AND(TRUNC(H16)&&H16,RIGHT(TRUNC(H16*10))&&&0&),TEXT(TRUNC(MOD(H16*10,10)),&[DBNum2]G/通用格式&)&&角&,&&)&IF(AND(RIGHT(TRUNC(H16*10))=&0&,TRUNC(H16)&&H16),&零&,&&)&IF(TRUNC(H16*10)&&H16,TRUNC(H16*10)=H16*10), &整&,&&)方法3、=IF(F10=0,&&,CONCATENATE(IF(INT(F10)=0,&&,TEXT(INT(F10),&[DBNum2]G/通用格式元&)),IF(INT(MID(RIGHT(FIXED(F10,2,1),2),1,1))=0,IF(INT(MID(RIGHT(FIXED(F10,2,1),1),1,1))=0,&&,IF(INT(F10)=0,&&,&零&)),TEXT(INT(MID(RIGHT(FIXED(F10,2,1),2),1,1)),&[DBNum2]G/通用格式角&)),IF(INT(MID(RIGHT(FIXED(F10,2,1),1),1,1))=0,&整&,TEXT(INT(MID(RIGHT(FIXED(F10,2,1),1),1,1)),&[DBNum2]G/通用格式分&))))方法4、人民币大写的函数公式，可正负，最多两位小数。=IF(A1&0,&负&,&&)&IF(TRUNC(A1)=A1,TEXT(IF(A1&0,-A1,A1),&[DBNum2]&)&&元整&,IF(TRUNC(A1*10)=A1*10,TEXT(TRUNC(IF(A1&0,-A1,A1)),&[DBNum2]&)&&元&&TEXT(RIGHT(A1),&[DBNum2]&)&&角整&,TEXT(TRUNC(A1),&[DBNum2]&)&&元&&IF(ISNUMBER(FIND(&.0&,A1)),&零&,TEXT(LEFT(RIGHT(A1,2)),&[DBNum2]&)&&角&)&TEXT(RIGHT(A1),&[DBNum2]&)&&分&))方法5修改一下4：根据剑魔兄的测试，发现有一个问题，如-100.05，现修正如下：=IF(A1&0,&负&,&&)&IF(TRUNC(A1)=A1,TEXT(IF(A1&0,-A1,A1),&[DBNum2]&)&&元整&,IF(TRUNC(A1*10)=A1*10,TEXT(TRUNC(IF(A1&0,-A1,A1)),&[DBNum2]&)&&元&&TEXT(RIGHT(A1),&[DBNum2]&)&&角整&,TEXT(TRUNC(IF(A1&0,-A1,A1)),&[DBNum2]&)&&元&&IF(ISNUMBER(FIND(&.0&,A1)),&零&,TEXT(LEFT(RIGHT(A1,2)),&[DBNum2]&)&&角&)&TEXT(RIGHT(A1),&[DBNum2]&)&&分&))方法6=IF(A1&0,&负&,)&TEXT(TRUNC(ABS(A1)),&[DBNum2]G/通用格式&)&&元&&&IF(ROUND(A1,3)=ROUND(A1,),&整&,TEXT(RIGHT(TRUNC(A1*10),1),&[DBNum2]G/通用格式&)&&角&&IF(ROUND(A1,3)=ROUND(A1,1),&整&,TEXT(RIGHT(ROUND((A1*100),),1),&[DBNum2]G/通用格式&)&&分&))方法7无条件舍去： =CONCATENATE(IF(A1&0,&负&,&&),TEXT(IF(TRUNC(A1)=0,&零&,TRUNC(ABS(A1))),&[DBNum2]&)&&元&,IF(OR(AND(ABS(A1)&0.1,TRUNC(A1)=A1),RIGHT(INT(ABS(A1)*100),2)=&00&),&&,TEXT(RIGHT(TRUNC(A1*10),1),&[DBNum2]&)),IF(RIGHT(TRUNC(A1*10),1)=&0&,&&,&角&),IF(OR(TRUNC(A1*10)-(A1*10)=0,RIGHT(TRUNC(A1*100),1)=&0&),&整&,TEXT(RIGHT(TRUNC(A1*100),1),&[DBNum2]&)&&分&))小数点后两位四舍五入: =CONCATENATE(IF(A1&0,&负&,&&),TEXT(IF(TRUNC(ROUND(A1,2))=0,&零&,TRUNC(ABS(ROUND(A1,2)))),&[DBNum2]&)&&元&,IF(TRUNC(ROUND(A1,2))=ROUND(A1,2),&&,TEXT(RIGHT(TRUNC(ROUND(A1,2)*10),1),&[DBNum2]&)),IF(RIGHT(TRUNC(ROUND(A1,2)*10),1)=&0&,&&,&角&),IF(OR(TRUNC(ROUND(A1,2)*10)-(ROUND(A1,2)*10)=0,RIGHT(ROUND(A1,2),1)=&0&,TRUNC(ROUND(A1,2))=ROUND(A1,2)),&整&,TEXT(RIGHT(ROUND(A1,2),1),&[DBNum2]&)&&分&))方法8无条件舍去： =IF(A1&0,&负&,&&)&SUBSTITUTE(TEXT(TRUNC(A1),&[DBNum2]&)&&元&&IF(ISNUMBER(FIND(&.&,TRUNC(A1,2))),TEXT(RIGHT(TRUNC(A1*10)),&[DBNum2]&)&IF(ISNUMBER(FIND(&.0&,A1)),&&,&角&),&&)&IF(LEFT(RIGHT(TRUNC(A1,2),3),1)=&.&,TEXT(RIGHT(TRUNC(A1,2)),&[DBNum2]&)&&分&,&整&),&-&,)小数点后两位四舍五入: =IF(A1&0,&负&,&&)&SUBSTITUTE(TEXT(TRUNC(ROUND(A1,2)),&[DBNum2]&)&&元&&IF(ISNUMBER(FIND(&.&,ROUND(A1,2))),TEXT(RIGHT(TRUNC(ROUND(A1,2)*10)),&[DBNum2]&)&IF(ISNUMBER(FIND(&.0&,ROUND(A1,2))),&&,&角&),&&)&IF(LEFT(RIGHT(TRUNC(ROUND(A1,2),2),3),1)=&.&,TEXT(RIGHT(ROUND(A1,2)),&[DBNum2]&)&&分&,&整&),&-&,)方法9再简化如后，请大家试试。无条件舍去：=IF(A1&0,&负&,&&)&TEXT(TRUNC(ABS(A1)),&[DBNum2]&)&&元&&IF(ISERR(FIND(&.&,TRUNC(A1,2))),&&,TEXT(RIGHT(TRUNC(A1*10)),&[DBNum2]&))&IF(RIGHT(TRUNC(A1*10))=&0&,&&,&角&)&IF(LEFT(RIGHT(TRUNC(A1,2),3))=&.&,TEXT(RIGHT(TRUNC(A1,2)),&[DBNum2]&)&&分&,&整&)小数点后两位四舍五入:=IF(A1&0,&负&,&&)&TEXT(TRUNC(ABS(ROUND(A1,2))),&[DBNum2]&)&&元&&IF(ISERR(FIND(&.&,ROUND(A1,2))),&&,TEXT(RIGHT(TRUNC(ROUND(A1,2)*10)),&[DBNum2]&))&IF(ISERR(FIND(&.0&,TEXT(A1,&0.00&))),&角&,&&)&IF(LEFT(RIGHT(ROUND(A1,2),3))=&.&,TEXT(RIGHT(ROUND(A1,2)),&[DBNum2]&)&&分&,&整&)方法10(好)Function RMB_DX(money As Variant)Dim m1 As Long, n1 As Long, n2 As Integer, n3 As Integerm1 = Application.WorksheetFunction.Round(money * 100, 0)n1 = Int(m1 / 100)n2 = Int(m1 / 10) - n1 * 10n3 = m1 - n1 * 100 - n2 * 10If n3 = 0 ThenRMB_DX = &整&ElseRMB_DX = Application.WorksheetFunction.Text(n3, &[DBnum2]&) & &分&End IfIf n2 = 0 ThenIf n1 && 0 And n3 && 0 Then RMB_DX = &零& & RMB_DXElseRMB_DX = Application.WorksheetFunction.Text(n2, &[DBnum2]&) & &角& & RMB_DXEnd IfIf n1 && 0 Or m1 = 0 ThenRMB_DX = Application.WorksheetFunction.Text(n1, &[DBnum2]&) & &元& & RMB_DXEnd IfEnd Function方法11unction rmbdx(value, Optional m = 0)'支持负数,支持小数点后的第三位数是否进行四舍五入处理'默认参数为0,即不将小数点后的第三位数进行四舍五入处理'redwin增改 'Application.Volatile TrueOn Error Resume NextDim aIf value & 0 Thena = &负&Elsea = &&End If'当参数m不输入(默认为0)或为0时,小数点后的第三数不进行四舍五入处理'当参数m为1或其它数值时,小数点后的第三数进行四舍五入处理value = CCur(Abs(value))If m = 0 Thenvalue = Fix(value) + (Fix((value - Fix(value)) * 100)) / 100Elsevalue = Round(value, 2)End Ifstrrmbdx = Application.WorksheetFunction.Text(Int(value), &[DBNum2]&) & &元&'防止出现零元的bug!If value &= 1 Thenstrrmbdx = strrmbdxElsestrrmbdx = &&End IfstrBal = Str(value)If Int(value) && value ThenstrLastvalue = Left(Right(strBal, 2), 1)If strLastvalue = &.& ThenstrLastvalue = Right(strBal, 1)strLast = Application.WorksheetFunction.Text(strLastvalue, &[DBNum2]&) & &角整&ElseIf strLastvalue = &0& And strLastvalue && &0& ThenstrLast = &零&Else'防止出现零角几分的bug!If strrmbdx = && And strLastvalue = &0& Then'strLast = Application.WorksheetFunction.Text(strLastvalue, &[DBNum2]&) & &角&strLast = &&ElseIf strrmbdx && && And strLastvalue = &0& ThenstrLast = &零&ElsestrLast = Application.WorksheetFunction.Text(strLastvalue, &[DBNum2]&) & &角&End IfEnd IfEnd IfstrLastvalue = Right(strBal, 1)If strLastvalue = &0& ThenstrLast = &整&ElsestrLast = strLast & Application.WorksheetFunction.Text(strLastvalue, &[DBNum2]&) & &分&End IfEnd Ifstrrmbdx = strrmbdx & strLastElsestrrmbdx = strrmbdx & &整&End Ifrmbdx = a & strrmbdxEnd Function方法12=IF(ISTEXT(C2),&&,&人民币：&&TEXT(INT(C2),&[dbnum2]&)&&元&&IF(INT(C2*10)-INT(C2)*10=0,&&,TEXT(INT(C2*10)-INT(C2)*10,&[dbnum2]&)&&角&)&IF(INT(C2*100)-INT(C2*10)*10=0,&整&,TEXT(INT(C2*100)-INT(C2*10)*10,&[dbnum2]&)&&分&))……还有很多方法编者没有收集。中国式的排名&函数应用RANK 是个排名函数 但有一个问题象上面有两个100分 也就是两并列第一 排名就从第三名开始没有第二名 也许这个美国式的排名 中国式的排名 前面有两个一样的分数并列第一后是 第二名 怎样用函数实现.解答：在B3中复制如下的数组公式，然后往右复制：{=SUM(IF(B1=LARGE(IF(LARGE($B$1:$H$1,COLUMN($A$1:$G$1))=IF(ISERROR(LARGE($C$1:$I$1,COLUMN($A$1:$G$1))),0,LARGE($C$1:$I$1,COLUMN($A$1:$G$1))),0,LARGE($B$1:$H$1,COLUMN($A$1:$G$1))),COLUMN($A$1:$G$1)),COLUMN($A$1:$G$1),0))}也可换个方式不用数组，在B3中复制如下的公式，然后往右复制：=RANK(B1,$B1:$H1)+COUNTIF($B$1:B1,B1)-1当做日报表累计数自动加当做日报表时,怎样让月累计数自动加上? 就是要月累计自动加上今天的当日收入数,今天只输入当日收入,我想用用前一天的月累计数加上今天的当日收入数为今天的月累计数.情况是一月一个工作薄,每一个工作薄下30个工作表,用每一天的日期为报表名.我想把月累计的公式写为 =sheet17!c5 中的 17 用 day(now())-1 的值去取代他,该怎么办呢? 以下为报表格式,谢谢大家帮我想一想. 部门-------当日收入 -----------月累计 团队收入 12.12 123.00 /写字间收入 147,258.00 147.147/房内吧收入 147,258,369.00 解答：=SUM('Sheet1:Sheet30'!C5) 在你需要月汇总的单元格填入上述公式，其作用是将工作表1到工作表30的“C5”单元格的值全部累加起来，而“C5”单元格应填入当日的收入数。 又问：月累计的公式写为 =sheet17!c5 中的 17 用 day(now())-1 的值去取代他,该怎么办呢? ” 答：用公式： =INDIRECT(ADDRESS(1,1,1,1,&sheet&&DAY(NOW())-1))工资条问题职工工资构成非常复杂，往往超过10项，因此每月发工资时要向职工提供一包含工资各构成部分的项目名称和具体数值的工资条。打印工资条时要求在每个职工的工资条间有一空行便于彼此裁开。本模板就是用EXCEL函数根据工资清单生成一便于分割含有工资细目的工资条表格。 本工资簿包含两张工资表。第1张工资表就是工资清单，称为&清单&。它第一行为标题行包括职工姓名、各工资细目。 第2张工作表就是供打印的表，称为&工资条&。它应设置为每三行一组，每组第一行为标题，第二为姓名和各项工资数据，第三行为空白行。就是说整张表被3除余1的行为标题行，被3除余2的行为包括职工姓名、各项工资数据的行，能被3整除的行为为空行。 在某一单元格输入套用函数&=MOD(ROW(),3)&，它的值就是该单元格所在行被3除的余数。因此用此函数能判别该行是标题行、数据行还是空行。 在A1单元格输入公式&=IF(MOD(ROW(),3)=0,&&,IF(MOD(ROW(),3)=1,清单!A$1,&value-if-false&))&并往下填充，从A1单元格开始在A列各单元格的值分别为清单A1单元格的值即姓名、value-if-false、空白，姓名、value-if-false、空白，......。其中value-if-false表示MOD(ROW(),3)既不等于0又不等于1时，即它等于2时应取的值。它可用如下函数来赋值：&INDEX(清单!$A:$G,INT((ROW()+4)/3),COLUMN())&。INDEX()为一查找函数它的格式为：INDEX(reference,row-num,col-num),其中reference为查找的区域，本例中为清单表中的A到G列，即函数中的&清单!$A:$G&，row-num为被查找区域中的行序数即函数中的INT((ROW()+4)/3)，col-num为被查找区域中的列序数即函数中的COLUMN()。第2、5、8.......行的行号代入INT((ROW()+4)/3)正好是2、3、4......，COLUMN()在A列为1。因此公式&=INDEX(清单!$A:$G,INT((ROW()+4)/3),COLUMN())&输入A列后，A2、A5、A8......单元格的值正好是清单A2、A3、A4......,单元格的值。这样，表的完整的公式应为&=IF(MOD(ROW(),3)=0,&&,IF(MOD(ROW(),3)=1,清单!A$1,INDEX(清单!$A:$G,INT((ROW()+4)/3),COLUMN())))&。把此公式输入A1单元格，然后向下向右填充得到了完整的工资条表。 为了表格的美观还应对格式进行设置，一般习惯包括标题、姓名等文字在单元格中要取中，数字要右置，数字小数点位数也应一致，还有根据个人的爱好设置边框。本表格只需对一至三行的单元格进行设置，然后通过选择性格式设置完成全表的设置。 本工作簿的特点是1、不对清单表进行操作保持清单工作表的完整，2、全工作表只有一个公式通过填充得到全表十分方便。例如：我的单位不大不小，有200多号人。最近领导要求把每个员工个人的工资情况打出来，分发给每位员工。每个员工的工资条上只能有两行内容：一行是分解的项目内容，如基本工资、岗位工资、总计等等；另一行是对应第一行的具体工资数额。可以这样解决：Sheet2 1.为A1命名为K 2.为A3:A250命名为XX 从A3贴上主索引,数据要连续中间不允许有空格 3.写公式=VLOOKUP(K,DATA,2,0) 有几个字段写几个,位置随您高兴摆 4.隐藏A栏 ************************************************************************************** Sub 打印() Application.ScreenUpdating = False '屏幕不更新 Dim c As Object '宣告c为对象,请准备空间 [xx].Select '选取变量范围 Set c = ActiveCell '设定c对象为作用单元格 Do Until IsEmpty(c.Value) '作Do循环直到无值时跳出 [k].Value = c.Value Set c = c.Offset(1, 0) '设定c往下进一格再取主索引值 Sheets(&Sheet2&).PrintPreview '工作表直接打印改PrintOut Loop End Sub另一回答：我是做人事管理的也遇到过你的问题,我用如下方法解决十分方便,而不用任何代码. 方法的原理是调整打印机的自定义纸张大小到恰好显示一个人的工资条的大小,请按如下： 如：我的excel工资表将项目内容放在第一、二行，行高为20.1，用a4纸横向打印 1、在页面设置中将上、下边距，页眉、页脚均设为零， 在页面设置--工作表---顶端标题行 中输入 $1:$2,即将放在 第 一、二行的项目内容设成每页标题行 打印方向为横向 2、、在文件----打印---属性---纸张----自定义中将纸张的 宽度=280 （单位：毫米） 长度=2970 （单位：毫米） 3、打印时可选1---200页，即可打印200人的工资条，一张a4可打10人 确定后预览，可调整下边距至每页显示一张工资条我的解决办法：我只用了一个公式: if(mod(row(),3)=0,&&,if(mod(row)(),3)=1,sheet1!a$1,index(sheet1!$a:$g,int((row()+4/3),cllolumn())))你试一下(解释：int((row()+4/3) 是这个意思：一个工资表，有列标题，接下来是工资记录。而我在此表基础上，加一个自动生 成的工资 条表， mod(row(),3)=0，在此表上用这个表示第三行保留空白行； if(mod(row)(),3)=1,sheet1!a$1，表示是第一行取标题列； index(sheet1!$a:$g,int((row()+4/3),column()）这是关键的地方：是指它不是第一行，也不三倍数的行，是记录 行的表示，你想第二行显示记录，则2+4/3=2 取工资 表的第二行记录；第五行显示记录，则5+4/3=3 取工资 表的第三行记录；第八行显示记录，则8+4/3=4 取工资 表的第四行记录；第十一行显示记录，则11+4/3=5 取工资 表的第五行记录；这个公式你可以根据具体情况变化：尤其是((row()+4/3),中的4这个数字，定制单元格数字显示格式定制单元格数字显示格式，先选择要定制的单元格或区域，》单击鼠标右键》单元格格式》选择‘数字’选项》选择‘自定义’》在“类型”中输入自定义的数字格式。如何输入自定义的数字格式：需要先知道自定义格式中那些常用符号的含意，具体可以先不选择‘自定义’，而选择其它已有分类观看‘示例’，以便得知符号的意义。比如：先选择‘百分比’然后马上选择‘自定义’，会发现‘类型’中出现‘0.00%’，这就是百分比的定义法，把它改成小数位3位的百分比显示法只要把‘0.00%’改成‘0.000%’就好了，把它改成红色的百分比显示法只要把‘0.00%’改成‘[红色]0.00%’就好了。关于数据引用的问题在一个工作簿中，假如A工作表中的单元格E8被B工作表中的某单元格引用，现在由于A工作表中插入了行，原来的E8现在可能是E28,结果造成B工作表引用数据错误，请问：如何可以使B工作表中的引用随着A表的变化也作相应的自动调整？&回答：利用“相对引用”来实现，“相对引用”是Excel中默认的引用方式例：在工作表Sheet1中Ｃ２单元格为５，Ｄ２单元格为６，在工作表Sheet2中Ｃ３单元格中输入“＝Sheet1!C2+Sheet1!D2”，如果把Ｃ２单元格剪切到Ｃ３，那么在工作表Sheet2中Ｃ３单元格中的公式就自动变为“＝Sheet1!C3+Sheet1!D2”如何使EXCEL应用程序锁定不让人打开请问我以下的操作应再如何修改成如密码输入错误则退出EXCEL.这是我编写在PERSONAL.XLS中的一个模块.代码如下,请各高手帮忙为小弟指点一二,不甚感激! Sub auto_Open() MsgBox &热列欢迎来海源,你吃饱了吗？& If Application.InputBox(&请输入操作权限密码:123&) = 123 Then Else '.....(在这一步中,我想退出EXCEL,但无法实现请高手指点一二) End If End Sub&解答：Private Sub Workbook_Open() MsgBox &热列欢迎来海源,你吃饱了吗？& If Application.InputBox(&请输入操作权限密码:123&) = 123 Then Exit Sub Else Application.Quit End If End Sub程香宙的修改：Sub auto_Open()MsgBox &程香宙欢迎你的到来&, vbQuestion, &联系电话：&If Application.InputBox(&请输入操作权限密码:&, &系统登陆&) = 123 ThenElseMsgBox &密码错误,请重输&, vbCritical + vbOKOnly, &你还有两次机会&If Application.InputBox(&请输入操作权限密码:&, &系统登陆&) = 123 ThenElseMsgBox &密码错误,再给你一次机会!&, vbCritical + vbOKOnly, &你还有一次机会&If Application.InputBox(&请输入操作权限密码:&) = 123 ThenElseMsgBox &你无权进入本系统!请向程香宙申请密码!&, vbCritical + vbOKOnly, &你没有机会啦!&Application.QuitEnd IfEnd IfEnd IfEnd Sub数组的运算法则有excel表如下： 姓名 成绩 /王娟 优 /永生 中 /闵生刚 优 /朱智锐 中 /胡强强 良 /金龙鳞 优 /张正梅 中 /汪欲生 良 /闵生刚 中 /王娟 优 /张正梅 优 /闵生刚 中 /永生 良 /王娟 良 /其中姓名在sheet1页的a列，成绩在c列。我想在sheet2页中建立一个表如下： 姓名 统计优数 /胡强强 /金龙鳞 /闵生刚 /汪欲生 /王娟 /永生 /张正梅 /朱智锐 /同样姓名在sheet1的a列，统计在c列，这里的姓名已经整理为没有重复的姓名。要统计出每人获得优的数目。请问用什么函数能解决。我用了if((sheet1!c2)=&优&,countif(sheet1!a:a,a2)),结果是统计的姓名数，而不是成绩数。如果能统计出来，哪么就是一个动态的当sheet1中数据变化时，sheet2中数据应到跟着变化。 有位朋友指导采用下面的式子把上面的问题解决了。这里假设最大记录数为100 =sum((sheet1!$a$2:$a$101=$a2)*(sheet1!$c$2:$c$101=&优&)*1) ，按Ctrl+Shift+Enter ，但是这是用到了数组运算，请问数组运算的规则是什么，看到许多地方都可以用数组解决，但不知其所以然。帮助文件中也没说运算规则。如上式中为什么用*号？谢谢解答：对于数组公式的含义 sum((sheet1!$a$2:$a$101=$a2)*(sheet1!$c$2:$c$101=&优&)*1) 我们来一部分，一部分的讲： 1、(sheet1!$a$2:$a$101=$a2) 表示用 sheet1!$a$2:$a$101 区域中的每一个单元格中的内容与 $a2 单元格的内容进行比较，如果相同结果为“True”，否则为“False”。 2、(sheet1!$c$2:$c$101=&优&) 表示用 sheet1!$c$2:$c$101 区域中的每一个单元格中的内容与 字符串&优&进行比较，如果相同结果为“True”，否则为“False”。 3、最后一部分乘以1。是强制Excel将“True”或“False”转换为数值“1”或“0”，以便sum函数可以求和。 4、至于第一部分和第二部分之间的乘号（*)的目的是，如果第一部分或者第二部分有一个的结果是“False”，那么Excel将其转换为数值“0”，相乘结果为零，表示不在求和范围内。替换数据请教各位如何用将一组数据，如：6550894， 9852547， 2656032， 7461136， 0505867， 5564892， 21077，我需要把数据中的数字1，3，5换为符号A表示，2，4，6换为符号B表示，依此类推将数据中的阿拉伯数字0~9分为几类用其它符号替换。解答：方法1。假设：B13值为9550894。在B14中输入=IF(ISERROR(FIND(MID($B$13,1,1),&135&)),IF(ISERROR(FIND(MID($B$13,1,1),&246&)),IF(ISERROR(FIND(MID($B$13,1,1),&79&)),IF(ISERROR(FIND(MID($B$13,1,1),&80&)),&&,&D&),&C&),&B&),&A&) 。 C14中MID()第二个参数为2，以此类推...最后在目标单元格中输入：=CONCATENATE(B14,C14,D14,E14,F14,G14,H14)方法2：表一: AB...
2ABABABCCCD =SUBSTITUTE(A4,A$1,A$2) 说明:先列一个替换表,如表一,在A4处填如数据,在B4处填如上述公式=SUBSTITUTE(A4,A$1,A$2),并向右拖动9个同样的公式,最后一个便是结果.在将该10个相同的公式向下拖,便得到其它的结果.好处:可以修改表一,产生变化. 方法3：你可以把全部数据拷贝到WORD中，再用替换命令，想怎么换就怎么换，然后在拷贝回来。几个技巧用“Ctrl+：”输入时间 ；用“Ctrl+；”输入日期 ；用“Ctrl+`”显示当前工作表的单元格引用情况（如果引用的话），再次按下“Ctrl+`”则回到正常的显示状态（别漏了那个点）；“Ctrl+1”：打开“单元格格式”对话框，按下ESC键关闭该对话框 ；“Ctrl+ -”：打开“删除”对话框，按下ESC键则关闭该对话框；热键ctrl+2：字体加粗或取消加粗； ctrl+3：字体加斜或取消加斜； ctrl+4：加下滑线或取消； ctrl+5：加删除线或取消； ctrl+9：隐藏当前行； ctrl+0：隐藏当前列；在Cell里，输入公式，比如 =trunc，按CTRL+SHIFT+A，出现函数参数说明；按CTRL+A，出现wizard 。快速填充：选择要填充的单元，输入公式或数值后，按CTRL+Enter。将图形与某个cell的数据联系在一起：a) 选择绘图菜单栏的任一图形 b) 在公式栏里，或按F2，输入到某个cell的联接，比如=A6 c) 回车。粘贴链接图片：a) 选择某区域(比如A2:C7) b)复制 c)按住 SHIFT，点选&编辑--&粘贴链接图片& 。对长公式进行错误查找：点击公式，按F9，出现出错的部分。ESC复原，CTRL+Z为undo。如何在两个工作表之间进行数据交换我有两个工作表，第一个表A列是姓名，B列是编号，第二个表A列也是姓名，但是顺序和第一个表的A列不一样，我想在第二个表的B列也加入编号&。解答：用VLOOKUP函数： =VLOOKUP(A2,Sheet1!A:B,2,FALSE)，依次向下拖动显示数值所在的单元格号假如有A列和B列两列数字，如何找出A列的数字在B列中所在的位置， 并在第三列显示单元格号。解答：假设数据在A1:B10，则C列公式为：=MATCH(B1,$A$1:$A$10,0)我想根据题意应该为：=MATCH(A1,$B$10,0)if&超过7层如何办将七层之外的IF语句，放在另外的单元格内来处理，例：C5=if(if,...,(if...),B5))),B5单元格就是存放七层之外的IF语句。依此类推，可以实现在数据库语言中CASE语句的功能。IF&函数的确有七层嵌套的限制。遇到七层嵌套还解决不了的问题，可以尝试用其它的函数组合和数组公式来解决；有时用&VBA&方案可以有很好的效果。这里给出一个解决IF函数嵌套超出范围的方法，可能比较容易使初学者看懂。其思路是：一个单元格做不了的事，分给两个或更多的单元格来做，文字内容是这样，函数内容也是这样。例子：假如&A1＝1，则&B1＝A；A1＝2，则&B1＝B&……&A1＝26，则&B1＝Z解决方法如下：B1&=&IF(A1=1,&A&,IF(A1=2,&B&,IF(A1=3,&C&,IF(A1=4,&D&,IF(A1=5,&E&,IF(A1=6,&F&,IF(A1=7,&G&,IF(A1=8,&H&,C1))))))))C1&=&IF(A1=9,&I&,IF(A1=10,&J&,IF(A1=11,&K&,IF(A1=12,&L&,IF(A1=13,&M&,IF(A1=14,&N&,IF(A1=15,&O&,IF(A1=16,&P&,D1))))))))D1&=&IF(A1=17,&Q&,IF(A1=18,&R&,IF(A1=19,&S&,IF(A1=20,&T&,IF(A1=21,&U&,IF(A1=22,&V&,IF(A1=23,&W&,IF(A1=24,&X&,E1))))))))E1&=&IF(A1=25,&Y&,IF(A1=26,&Z&,&超出范围&))根据情况，可以将&C、D、E&这些从事辅助运算的单元格放在其它任何地方一个单元格也可以实现=IF(A1=1,&A&,IF(A1=2,&B&,IF(A1=3,&C&,IF(A1=4,&D&,IF(A1=5,&E&,IF(A1=6,&F&,IF(A1=7,&G&,IF(A1=8,&H&,&&))))))))&IF(A1=9,&I&,IF(A1=10,&J&,IF(A1=11,&K&,IF(A1=12,&L&,IF(A1=13,&M&,IF(A1=14,&N&,IF(A1=15,&O&,IF(A1=16,&P&,&&))))))))&IF(A1=17,&Q&,IF(A1=18,&R&,IF(A1=19,&S&,IF(A1=20,&T&,IF(A1=21,&U&,IF(A1=22,&V&,IF(A1=23,&W&,IF(A1=24,&X&,&&))))))))&IF(A1=25,&Y&,IF(A1=26,&Z&,&&))(数组形式输入)。以一例：a1=1,2,3,4,5,6,7,8,9,10 b=if(a1=1,&一&,if(a1=2,&二&,if(a3=3，&三&,.......if(a1=9,&九&,if(a1=10,&十&)))))),if超过7层不起作用，我该如何办解答：1、b=if(a1&5,if(a1=6,&六&。。。。。。))，明白意思？就是截为两段再做判断，这样可以不超过7重。2、可以用自定义数字格式。也可以用=CHOOSE(A1+1,&一二三四五六七八九十&)问：实际上我的要求是现行高一成绩统计中:b=if(a1=&语文&,&语文&,if(a1=&数学&,&数学&,if(a1=&英语&,&英语&,if(a1=&物理&,&物理&,if(a1=&化学&,&化学&,if（a1=&历史&,&历史&,if(a1=&政治&,政治&,if(a1=&生物&,&生物“，if(a1=&地理&,&地理&)))))))),这样超过了7层。我不知如何处理。因为下面的公式要引用语、数、英、等。答：新建一表，取名Data，找一区域设置名称为SubjectTable：语文 Chinese英语 English..=vlookup(SubjectTable,a1,2,false)可以有65536个，够了吧。其实，稍加改进，理论上，可以有达到你硬盘空间的个数。或用if和or的组合可以解决15个。再举个例子：=IF(A16=&&,&&,IF(B16=&&,&样办尚未交&,IF(OR(B16=&内部检查中&,B16=&数据查询中&,B16=&数据查询中&),CONCATENATE(IF(B16=&内部检查中&,&品质检测中&,&&),IF(B16=&数据查询中&,&图纸未确认&,&&),IF(B16=&为不合格&,&需要修正&,&&)),CONCATENATE(IF(C16=&客户检查中&,&待客回复&,&&),IF(C16=&合格&,&待P/O生产&,&&),IF(C16=&取消&,&客户取消&,&&),IF(C16=&为客户设变中&,&客户设变中&,&&),IF(C16=&不合格&,&需要修正&,&&)))))一个单元格内格式问题如果我做了一个表某一列是表示重量的，数值很多在1--------------4之间的数不等。这些表示重量的数。如果我想次给他们加上单位，但要求是单位是&999999吨，之下&999是千克，其余的是克。如何办答：[&9999]###.00,&吨&;*,*.00&千克&怎样用函数求出一定范围内的数值的偶数的个数解答：1设你的数据区域为A1：A30 {=COUNT(IF(A1:A30/2/2=INT(A1:A30/2),A1:A30))} 如果你的数据区域内还包括空白格你不想计算在内的话， {=COUNT(IF(A1:A30/2/2=INT(A1:A30/2),A1:A30))-COUNTBLANK(A1:A30)}或：{=sum((even(a1:a30)=a1:a30)*1)}如何使某列的数据不重复我做了个宏，可惜在数据量大时（超过1000时）速度狂忙，各位帮我修改修改Sub 检查重复项()Dim i As IntegerDim j As Integernum = Selection.Cells.CountFor i = 1 To numFor j = i + 1 To numIf (Selection.Cells(i) = Selection.Cells(j)) ThenMsgBox Selection.Cells(i).ValueEnd IfNext jNext iMsgBox &检索完毕&End Sub假设数据在B列选中B列，[数据]-[数据有效性]-[自定义]在“公式”输入框中键入：=COUNTIF(B:B,B1)=1。请问如何能使随机数不重复我在30个单元格里使用了randbetween(1,500),随机抽取了1-500之间的任意数,但问题是这30个数中仍有机会出现重复请问如何才能使这些随机数不重复呢?答：1、勾选迭代计算，A1输入如下公式： =IF(COUNTIF($A$1:$E$6,A1)=1,A1,RANDBETWEEN(1,500))如果某格出现0值，点选旁边单元格拖一下即可。2、用上面的方法得到的随机数不会变化，如何做到想变就变？增加一个条件语句，即可达到此效果，公式如下： =IF(COUNTIF($A$1:$E$6,A1)=1,IF($G$1=1,RANDBETWEEN(1,500),A1),RANDBETWEEN(1,500)) G1为控制格，当在G1输入数字1，就开始变。变化后的数据有可能不惟一了，怎么办？把1清除即可！日期型编号想在单元格里输入1，产生0207121这样一个数字，02是2002年，07是7月份，12是12日，1是输入的数值答：如a1输入1，要在b1生成你要的数字，你可以在b1设公式=text(today(),&yymmdd&)&a1如何将数字改变为字符串答：=TEXT(A1,&@&)在Excel中如何自定义数字格式虽然Excel为用户提供了大量的数字格式，但还是有许多用户因为工作、学习方面的特殊要求，需要使用一些Excel未提供的数字格式，这时我们就需要利用Excel的自定义数字格式功能来帮助实现用户的这些特殊要求。一、在Excel中创建自定义数字格式的方法1、选择要设置格式的单元格或单元格区域。 2、单击“格式”菜单中的“单元格”命令，然后单击“数字”选项卡。 3、在“分类”列表中，单击“自定义”选项。 4、在“类型”框中，编辑数字格式代码以创建所需的格式。在Excel自定义数字格式使用如下的表达方式： 正数的格式 负数的格式 零的格式 文本的格式 #,##0.00 [Red]-#,##0.00 0.00 &TEXT&@ 在Excel自定义数字格式的格式代码中，用户最多可以指定四个节；每个节之间用分号进行分隔，这四个节顺序定义了格式中的正数、负数、零和文本。如果用户在表达方式中只指定两个节，则第一部分用于表示正数和零，第二部分用于表示负数。如果用户在表达方式中只指定了一个节，那么所有数字都会使用该格式。如果在表达方式中要跳过某一节，则对该节仅使用分号即可。二、自定义数字格式实例(一)自动添加文本在日常财务工作中，常常需要在金额数字后加单位“元”，这时就可以使用“0.00元”的自定义数字格式，当用户在单元格中录入数字后，Excel就会自动在数字后加上单位“元”。如果需要将单元格中录入的数字“32”自动转换成“高三十二班”格式，只要将单元格的数字格式定义为“高[DBNum1]G/通用格式班”即可。(二)在自定义数字格式中使用颜色要设置格式中某一部分的颜色，只要在该部分对应位置用方括号键入颜色名称或颜色编号即可。Excel中可以使用的颜色名称有[黑色]、[蓝色]、[青色]、[绿色]、[洋红]、[红色]、[白色]、[黄色]八种不同的颜色，此外Excel还可以使用[颜色X]的方式来设置颜色，其中X为1-56之间的数字，代表了56种不同的颜色。例如：当用户需要将单元格中的负数数字用蓝色来表示，只要使用“#,##0.00;[蓝色]-#,##0.00”自定义数字格式，用户在单元格中录入负数时，Excel就会将数字以蓝色显示。(三)在自定义数字格式中使用条件格式在Excel自定义数字格式中用户可以进行条件格式的设置。当单元格中数字满足指定的条件时，Excel可以自动将条件格式应用于单元格。Excel自定义数字格式中可以使用如下六种标准的比较运算符： 运算符 含义 = 等于 & 大于 & 小于 &= 大于等于 &= 小于等于 && 不等于在Excel中要想设置满足指定条件数字的格式，在自定义数字格式代码中必须加入带中括号的条件，条件由比较运算符和数值两部分组成。例如：在学生成绩工作表中，当我们想以红色字体显示大于等于90分的成绩，以蓝色字体显示小于60分的成绩时，其余的成绩则以黑色字体显示，这时只需将自定义数字格式设置为“[红色][&=90];[蓝色][&60];[黑色]”即可。值得注意的是，当你在以后需要继续使用刚才所创建的成绩条件自定义数字格式时，你会发现在“单元格格式”的“自定义”分类类型中找不到“[红色][&=90];[蓝色][&60];[黑色]”格式，这是因为Excel自动将你所创建的“[红色][&=90];[蓝色][&60]”格式修改成“[[红色][&=90]G/通用格式;[蓝色][&60]G/通用格式;[黑色]G/通用格式”，你只需选择此格式即可达到同样的使用效果。(四)隐藏单元格中的数值在Excel工作表中，有时为了表格的美观或者别的因素，我们希望将单元格中的数值隐藏起来，这时我们使用“;;;”(三个分号)的自定义数字格式就可达到此目的。这样单元格中的值只会在编辑栏出现，并且被隐藏单元格中的数值还不会被打印出来,但是该单元格中的数值可以被其它单元格正常引用。在单元格显示负数为红字后又紧跟汉字解答：1、这个使用宏可以解决，但单元格开始请不要带单位。单个单元格宏代码如下：Sub 宏1()'' 宏1 Macro' Dent 记录的宏 'Dim str1 As Stringstr1 = Str(ActiveCell.Value)If Val(str1) & 0 Thenstr1 = Abs(Val(str1)) & & 文字&ActiveCell.Value = str1ActiveCell.Font.Color = vbRedEnd If End Sub2、用单元格格式解决： #,##0.00;[红色]-#,##0.00&文字&检索问题在一个工作表中，有客户名称、收款日期等字段名及相应数据。现在想为了检验收款日期是否到期，要求在工作表的某一空白单元格中键入某一日期 ，则此单元格以下的单元格可以显示收款日期字段中所有在此日期前的日期清单，请问如何实现？并要求不使用筛选功能。解答： Sheet2!A1命名为X,键入日期Sheet1:客户名称、收款日期等字段名及相应数据插入名称定义：XX=OFFSET(Sheet1!$A$2,,,MATCH(X,Sheet1!$B$2:$B$6)XX即是您所需要之范围vba写在This WorkbookPrivate Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)On Error GoTo 1: Target.SelectRange(Target.Value).CopyActiveSheet.Paste Link:=FalseApplication.CutCopyMode = False1End Sub**********************************************************************************Sheet2任意储存格键入xx按ENTER[比较一下并没有比筛选功能快],反而复杂SHEET2随便贴张图键入公式=XX 微软到底对我们隐藏了多少NumberString&这个函数是否一直存在但没有解释？NumberString(,1)就像自定格式[DBNum1]一样，它还有2的选择。其实这些特别用途的函数是否中文板设计时特别隐藏。测试结果：NumberString(,1) ＝ 一十二亿三千四百五十六万七千八百九十NumberString(,2) ＝ 壹拾贰亿叁仟肆佰伍拾陆万柒仟捌佰玖拾NumberString(,3) ＝ 一二三四五六七八九○DateString()相信亦是一特别Lotus函数。DATESTRING(&23-Sep- 2002&) = 日DATESTRING(&23Sep2002&) = 日DATESTRING(&9/23/2002&) = 日DATESTRING(&9-23-2002&) = 日求一组数中第一个出现的正数单元格A1—G1中存放一组数，如何使A2的值等于这组数中第一个出现的正数（按A1—G1的顺序），若无正数则A2＝0.解答：=IF(A1&=0,IF(B1&=0,IF(C1&=0,IF(D1&=0,IF(E1&=0,IF(F1&=0,IF(G1&=0,,G1),F1),E1),D1),C1),B1),A1)或：{=IF(COUNTIF(A1:G1,&&0&)=0,0,INDIRECT(ADDRESS(1,SMALL(IF(A1:G1&0,COLUMN(A1:G1)),1))))}能否使表格不能打印解答：Private Sub Workbook_BeforePrint(Cancel As Boolean)Cancel = TrueEnd Sub(用法：打开Excel,按Alt+F11,调出VBE后,按Ctrl+r显示出工程资源管理器(默认此窗口应已显示),双击ThisWorkbook,在模块中粘入代码即可!要想打印你表,用截图软件即可.无最保险办法)。有无这样的函数A1为一定范围内的随机值，B1—B20为一组数，有无这样的函数来确定A2的值？ 当A1=1时，A2=B1 当A1=2时，A2=B2 当A1=3时，A2=B3 …………解答：=INDIRECT(ADDRESS(A1,2))(绝)能实现两栏数据中按特定条件进行比较并做出相应记号吗具体意思如下：有四栏数据。A栏 B栏 C栏 D栏 F栏 对A栏及C栏数据进行查找对比，如果发现存在A=C，且B=D，则在符合条件的F栏显示已找到，对于没有查到的的显示未找到。解答：如果是一一对应查找则f2=if(and(A2=C2,B2=D2),&OK&,&No&),复制.如果整体查找：=IF(AND(COUNTIF($C$2:$C$5,A2)&0,COUNTIF($D$2:$D$5,B2)&0),&找到&,&没有&)&如何对文本格式的数字进行筛选如80/24；73/56……解答：要对A列进行筛选，条件1:符号&/&左边的数字&=50;条件2:符号&/&右边的数字&=80,达到任一条件的即被选中。试试这个公式: B1=IF(OR(LEFT(A1,FIND(&/&,A1)-1)*1&=50,MID(A1,FIND(&/&,A1)+1,LEN(A1)-FIND(&/&,A1))*1&=80),A1,&&)我想再请教一个问题:在自动筛选中有&包含、不包含&之类的选项,这类选项在高级筛选中能否实现?提供以往一个函数公式,请你研究看是否有参考:={SUM((ISNUMBER(SEARCH(&广东&,$B$3:$B$13)))*($A$3:$A$13=&股份制&)*($C$3:$C$13))}这是对B列单位名称中包含&广东&并且A列企业类型为&股份制&的,按C列汇总.如何筛选出特定行一份工作表，有几万行数据，现在想每隔50行打印一行，如何进行筛选解答：插入一空列,输入=MOD(ROW(),50)并复制到全数据列,再用筛选法把有“0”的单元格选出.Word加启动密码 在Word模板中录制如下宏文件保存即可: Sub autoexec() Dim user user = InputBox(&请输入软件启动密码&) If user = &password& Then Else MsgBox (&非法用户,将退出本程序.Wu&) Application.Quit End If End Sub有关大小写的转换在EXCEL单元格中有的单元格是小写字母，有的是大小写混在一起现在我想全部转为大写、或全部转为小写，有哪些方法呢？利用upper()函数或还有LOWER。如：a1=aBcD，upper(a1)=ABCD在Excel中打造自己的“公式保护”菜单工作中经常用到Excel的计算功能，有时一张工作表中需要设置很多公式，为了防止误操作就将工作表保护起来，但是如果将含有公式的单元格保护，而其它单元格不锁定，设置时需要一个个单元格选定，很麻烦而且容易出错，就想到建立一个菜单项，将这项工作变成菜单 。有幸的是这一切Excel都能完成，具体操作如下： 先将工作表保护，不必输入密码。再录制一个宏。方法是：打开“工具”栏，单击“宏”-“录制新宏”；将其命名为“公式保护”，单击“保存在”的下拉箭头，将新宏保存到“个人宏工作簿”。单击“确定”录制开始。（注意此后的每一动作都将被录制，直至“停止录制”。） 将工作表取消保护； 选定a1单元格，输入=&测试&（注：黑体为实际输入内容，标点符号均为英文输入法状态,下同）；单击工作表左上角的方框选定整个工作表；单击“格式”-“单元格”-“保护”项，将“锁定”和“隐藏”前的方框里的对号去掉；单击“插入”-“名称”-“定义”，当前工作表名称输入：公式保护，引用位置输入：=get.cell(4,indirect(&rc&,false)), 单击“添加”后“确定”； 单击“格式”-“条件格式”，在“单元格数值”下拉框选定“公式”，后面的框内输入=公式保护 ，单击“格式…”，在图案标签内选浅绿色或者其它颜色“确定”，再“确定”；单击 “编辑”-“定位”-“定位条件…”，选定“公式”项“确定”再“确定”；重复步骤4，将“锁定”和“隐藏”前的方框里的对号选定； 选定a1单元格，取消其内容，并重复步骤4，取消a1的锁定和隐藏属性； 单击工具-保护-保护工作表，将工作表保护（也不必设密码）。再单击“工具”-“宏”-“停止录制”停止录制。再打开“工具”-“自定义”项，再“命令”标签栏内“类别”栏中找到“新菜单”并指定，在其右侧的命令框中的新菜单用鼠标按住拖到“工具栏”的“保护”项中的“保护工作表”下面放开，并单击右键将其命名为“公式保护”，将刚才录制名为“公式保护“的宏指定给它。至此，一个很有用的菜单项就作成了。 此后，只要你将鼠标移动到“工具”-“保护”-“公式保护”的位置，工作表将执行其所指定的宏，只要你工作表中输入了公式（以=开头），含有公式的单元格将自动变为浅绿色，提醒你和别人此处有公式，小心编辑，十分醒目。编辑完公式后再次运行该命令就可以此保护工作表并锁定公式，禁止改动。如何让EXCEL自动从头统计到当前单元格情况如下： C列要根据A列的内容来统计B列的数据，范围从A1：An，即当A列中An有数据时，Cn自动根据An的值，统计B1：Bn的数据。解答：=SUM(INDIRECT(&B1:B& & LARGE((A1:A65535&&&&)*(ROW(A1:A65535)),1)))，按Ctrl+Shift+Enter。请问想要取当前单元格的列号，用什么函数1、=CHAR(64+COLUMN())2、Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)If Selection.Columns.Column & 26 Thentt = Mid(ActiveCell.Address, 2, 2)Elsett = Mid(ActiveCell.Address, 2, 1)End IfMsgBox (tt)End Sub3、1的公式就变化一下：=IF(COLUMN()&26,CHAR(64+INT(COLUMN()/26)) & CHAR(64+MOD(COLUMN(),26)),CHAR(64+COLUMN()))SUMIF函数a1至A4是10,24,30,12.B1至B4是8,15,25,35.D1至D4是25,4,3,5.用SUMIF 第一参数选取A1:B4,第二参数是&20,第三参数选取D1:D4.它得出是7。它判断的是A1:A4 。我的要求是B1:B4 也跟着判断 , 也就要得出来得是12解答：{=SUM((A1:A4&20)*(B1:B4&20)*C1:C4)}怎么能快速的将两个单元格的内容互换1、Sub ChangVal()my1value = ActiveCell.ValueFor Each a In SelectionIf a.Address && ActiveCell.Address Thenmy2value = a.Valuea.Value = my1valueActiveCell.Value = my2valueEnd IfNext aEnd Sub2、用鼠标先选定单元格，点住单元格边框，并按住SHIFT键，然后托拽到隔壁单元格的后面一条边框处。你能看到被托拽部分会变成灰色的“工”字形，然后放手后，单元格就互换了。如何能到两个时间段的17:00-8:00小时数? 1.已知&E4&为(为文本格式﹐开始时间﹐意思为8月1日 下午15﹕00)﹐&G4&为(为文本格式﹐结束时间﹐意思为8月10日 上午9点) 问﹕如何能得到开始时间到结束时间（17:00-08:00）的总小时数? 2. 如何得到开始时间到结束时间的节假日时数?(如5.1﹐10.1﹐星期六﹐星期天)解答：方法1：=(DATE(YEAR(NOW()),MIDB(AF4,1,2),MIDB(AF4,3,2))-DATE(YEAR(NOW()),MIDB(E4,1,2),MIDB(E4,3,2))-1)*15+IF(MIDB(E4,5,2)+MIDB(E4,7,2)/60&=8,15-(MIDB(E4,5,2)+MIDB(E4,7,2)/60),IF(MIDB(E4,5,2)+MIDB(E4,7,2)/60&=17,24-(MIDB(E4,5,2)+MIDB(E4,7,2)/60),7))+IF(MIDB(AF4,5,2)+MIDB(AF4,7,2)/60&=8,MIDB(AF4,5,2)+MIDB(AF4,7,2)/60,IF(MIDB(AF4,5,2)+MIDB(AF4,7,2)/60&=17,MIDB(AF4,5,2)+MIDB(AF4,7,2)/60-9,8)) 方法2：networkdays 需要你提供一个节假日列表作为参数。我猜你不会喜欢手工输入这样一个表。以下公式功能更为强劲，它可以算出两个单元格（A2和C2）所储存的日期之间的周末天数，乘以小时数即可计算出你所说的节假日时数。但是，它无法计算国庆节等公众假期。 =IF(C2&A2,SUM(IF(WEEKDAY(C2-ROW(INDIRECT(&1:&& C2-A2)),2)&5,1,0)),SUM(IF(WEEKDAY(A2-ROW(INDIRECT(&1:&& A2-C2)),2)&5,1,0)))。这是一个数组公式，输入完成后按CTRL+SHIFT+ENTER结束。 方法3：用格式定义E4,G4为日期时间格式：****-**-** **:**。然后：(G4-E4)*24 即可得两时间内的小时数。如何在单元格返回工作表名称答：=RIGHT(CELL(&filename&),LEN(CELL(&filename&))-FIND(&]&,CELL(&filename&)))如何在输入数字的加减乘除按ENTE后能在另一单元格自动出现计算数值1、编了个宏: Sub aa() Cells(1, 1) = Mid(ActiveCell.Formula, 2, 13) End Sub 先在单元格里输入公式得出结果,选定得出结果的单元格运行宏就可以在A1出文本.&2、宏(测试通过)Sub aa() A = 2 '行' B = 4 '列 LINE1: If Cells(A, B) = && Then Exit Sub Else Cells(A, B + 1).Formula = &=& & Cells(A, B) A = A + 1 GoTo LINE1: End If End Sub有A1，B1，C1，D1四个单元格D1的值要随着Ａ１的变化而变化 Ａ１有三种变化，一、二、三；当Ａ１＝‘一’时，Ｄ１＝“ ”； Ａ１＝‘二’时，Ｄ１＝（Ｂ１＋Ｃ１）／３ ； Ａ１＝‘二’时，Ｄ１＝（Ｂ１＋Ｃ１）／６ 。以上可以通过ＩＦ来完成 。可我希望的是：当Ｂ１或Ｃ１为空时，不论Ａ１为什么Ｄ１都为空，这样做得到么？解答：1、=IF(OR(B1=&&,C1=&&),&&,IF(A1=&一&,&&,IF(A1=&二&,(B1+C1)/3,IF(A1=&三&,(B1+C1)/6,&&))))2、=IF(OR(B1=&&, C1=&&, A1=&一&), &&, IF(A1 = &二&, (B1+C1)/3, (B1+C1)/6))如果考虑 A1 没有数据的话：=IF(OR(B1=&&, C1=&&, A1=&一&,A1=&&), &&, IF(A1 = &二&, (B1+C1)/3, (B1+C1)/6))对A列不重复的数值计数我只能做到新建一列，B列，然后第一个单元格countif（$A$1:$A$100,A1)，然后拖动到全部新列。最后在新列下面用sumif(B1:B100,1) 谁有更好地方法。解答：1、{=SUM(IF($A$1:$A$100=&&,&&,1/(COUNTIF($A$1:$A$100,$A$1:$A$100))))}(又问：公式中的“1/(COUNTIF($A$1:$A$100,$A$1:$A$100))”像是一个倒数，怎么理解？答：用倒数是这个意思:如果只出现一次，数组中的相应项统计为1，其倒数为1，Sum统计计1。如果出现 N 次，其倒数为1/N，出现了N次，求和就是Nx1/N，最后Sum统计就只计1。)永恒的求和1、=SUM(OFFSET(A1,,,ROW()-ROW(A1)))可以对A列数值自动求和。2、=SUM(INDIRECT(&R2C:R[-1]C&,FALSE)) 3、=SUM(INDIRECT(&A2:A&&ROW()-1))坚持不用R1C1栏名列号表示法还有一个方法，不过又复杂了些。首先定义一个公式：COL=IF(COLUMN()&26,CHAR(INT((COLUMN()-1)/26)+64)&CHAR(IF(MOD(COLUMN(),26)=0,26,MOD(COLUMN(),26))+64),CHAR(COLUMN()+64))。后于欲求加总之储存格输入：=SUM(INDIRECT(COL&&1:&&COL&ROW()-1))。则此公式复制到任何一任皆可用，又不怕产生错误值。(注：COL=IF(COLUMN()&26,CHAR(MOD(COLUMN(),26)+64)&CHAR(INT(COLUMN()/26)+64),CHAR(COLUMN()+64))。暴露了一个为人不知的缺点，如果列数到了AA列以后就不行了，虽然可用ADDRESS()解决，比用CHAR()好多了，但公式还是太长，用在一个加法中实在不值)其实用ADDRESS更好，=SUM(INDIRECT(ADDRESS(1,COLUMN())&&:&&ADDRESS(ROW()-1,COLUMN())))，还是一句老话，为做一个加法不是太值，这只能是技术上的讨论。如何使用EXCEL进行动态跨表取数有两个文件，第一个文件有31张日报表，每天一个表单；第二个文件仅一个表单；如何在第二个文件中，输入1时由函数动态取出第一张表单数（如SHEET1），输入2时取（SHEET2）数，依次类推……。，如何设公式。在同一文件中可以用INDIRECT和ADDRESS组合，可是跨表好象不行，请各位指教一二！解答：前提是两个工作表都要打开：=INDIRECT(&[Book2]Sheet&&A1&&!$B$1&)如何使用對照表设一对照表如下：如何使用函数当输入。当a1=34 则a2显示&乙& b1=68 则b2显示&丁&/甲 22 33 44 66..../乙 26 34 43 62.... /丙 28 39 41 67.... /丁 27 31 49 68.... /戊 23 32 46 64.... /己 29 38 47 61.... /更 21 37 48 69.... /辛 24 36 42 63.... 解答：如A列输入的数字在表中都存在，把你的数据放在D到G列，甲乙丙丁戊己辛放在最后一列，即H列。在B列输入公式“=IF(A1=&&,&&,VLOOKUP(A1,INDIRECT(ADDRESS(1,INT(0.1*A1)+IF(A1&60,1,2))):INDIRECT(ADDRESS(8,8)),7-INT(0.1*A1)+IF(A1&60,1,0),FALSE))”。如甲乙丙丁戊己辛放在第一列，即列用公式“=IF(A1=&&,&&,INDEX(D:D,MATCH(A1,INDIRECT(ADDRESS(1,INT(0.1*A1)+IF(A1&60,2,3))):INDIRECT(ADDRESS(8,INT(0.1*A1)+IF(A1&60,2,3))),0)))”解答2：如果数据无规律，可用以下方法：如你的数据表在D到H列，在I列输入公式“=IF(ISERROR(MATCH(A$1,E1:H1,0))=TRUE,0,row())&并向下填充，在B1单元格输入公式“=IF(A1=&&,&&,INDEX(D:D,LARGE(I:I,1)))”解答3：我将解答2公式做了小修改(I列公式删除)，B1单元格输入公式：=IF(A1=&&,&&,INDEX($D:$D, IF(ISERROR(MATCH(A1,$E$1:$H$1,0))=TRUE,0,ROW($E$1:$H$1))+ IF(ISERROR(MATCH(A1,$E$2:$H$2,0))=TRUE,0,ROW($E$2:$H$2))+ IF(ISERROR(MATCH(A1,$E$3:$H$3,0))=TRUE,0,ROW($E$3:$H$3))+ IF(ISERROR(MATCH(A1,$E$4:$H$4,0))=TRUE,0,ROW($E$4:$H$4))+ IF(ISERROR(MATCH(A1,$E$5:$H$5,0))=TRUE,0,ROW($E$5:$H$5))+ IF(ISERROR(MATCH(A1,$E$6:$H$6,0))=TRUE,0,ROW($E$6:$H$6))+ IF(ISERROR(MATCH(A1,$E$7:$H$7,0))=TRUE,0,ROW($E$7:$H$7))+ IF(ISERROR(MATCH(A1,$E$8:$H$8,0))=TRUE,0,ROW($E$8:$H$8))))。解答4：在B1单元格输入公式：{=IF(COUNTIF($E$1:$G$8,A1)=0,&查无资料&,INDEX($D$1:$D$8,SUM(IF($E$1:$H$8=A1,ROW($E$1:$H$8)))))}又问：当数据区域有重复数据时，就得不到正确结果。因为，在这里你的SUM()返回的只是对一个数据求和。如果有重复数据，怎样才能得到正确结果呢？答：在B1单元格输入公式：=IF((COUNTIF($E$1:$H$8,$A$1)=0)+(COUNTIF($E$1:$H$8,$A$1)& ROW( )),&& ,INDEX($D$1:$D$8,SMALL(IF($E$1:$H$8=$A$1,ROW($E$1:$H$8)),ROW())))再往下拖曳，就可依序顯示了。真是快瘋了改了十幾次，有些莫名其妙，進來編輯看公式是完整的可是發表後又老是缺東缺西的，只好多加些空白或強迫分段處理，請使用者自行修改。或：如有重复数据,則顯示&数据重复&表示,代表要修改数据。{=IF(COUNTIF($E$1:$H$8,A1)=0,&查無資料&,IF(COUNTIF($E$1:$H$8,A1)&1,&資料重複&,INDEX($D$1:$D$8,SUM(IF($E$1:$H$8=A1,ROW($E$1:$H$8))))))}如何在单元格返回工作表名称解答：=RIGHT(CELL(&filename&),LEN(CELL(&filename&))-FIND(&]&,CELL(&filename&)))何在一列数据中统计限定范围的数据请教各位：现A列有数字(包括绝对值为0的数字)、文本、空格,要统计数值为14到35(包括14与35)的个数；还要统计数值&35并&14的个数(不包括0),分别该用什么函数?&答：&13 and &36 公式=COUNTIF(A:A,&&13&)-COUNTIF(A:A,&&35&)&(&35 or &14) and && 0 公式=COUNTIF(A:A,&&35&)+COUNTIF(A:A,&&14&)-COUNTIF(A:A,&=0&)
平凡的水果世界，平凡中的不平凡。 今朝看水果是水果 ，看水果还是水果 ，看水果已不是水果。这境界，谁人可比？在不平凡的水果世界里，仁者见仁，智者见智。
正月是农历新年的开始，人们往往将它看作是新的一年年运好坏的兆示期。所以，过年的时候“禁忌”特别多。当然，各个地方的风俗习惯不一样，过年的禁忌也是不一样的。
庞凤山情感处方
请注意使用文明用语
画报点击数0
文章点击数0}
B列区域等于R列绿
H列黄色区域等于X——AF列黄
N列紫色区域等于AG紫
A列灰色区域等于O列灰
B列橙色区域等于R列橙
H列蓝色区域等于X——AF列蓝
N列青色区域等于AG青
9排为一个循环，如何用公式实现，希望高手能帮忙解决，谢谢！详见附件
A2=OFFSET(O$1,ROUNDUP(ROW(A1)/9,),)
B2=OFFSET(R$1,ROUNDUP(ROW(B1)/9,),)
H2=OFFSET($X$1,ROUNDUP(ROW(A1)/9,),MOD(ROW(A1)-1,9),)
M2=IF(MOD(ROW(),9)=1,SUM(OFFSET(D2,,,-9)),"")
N2=IF(MOD(ROW(),9)=1,OFFSET(AG$1,ROUNDUP(ROW(A1)/9,),),"")
均下拉复制（黄色区域）
DVD-ROM是DVD光驱的意思
DVD-ROW是指可以刻录DVD光盘的刻录机（同时也能读取DVD）
Rows.Count是第一列的最大行数; Cells(Rows.Count, 1).End(xlUp).Row整体意思是第一列最后一个有数据的行的行号。
n.行，排; 划船; 吵闹; 路，街;
vt.划船; 使…成排; 与…进行划船比赛; 〈口〉争吵，吵闹; （如果对我的答案满意，麻烦点击“好评”， 谢谢您^_...
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区工作表的标签的字体和大小可以更改吗答：在桌面上点右键─内容─外观，相关的设定都在此更改。自定义格式的体会在format cell的时候，选了custom后在格子里输入你想要的位数，不变的部分就照着打进去，会变得部分打0就好了，（用0占位）。 例如：你要打的数字是56，后6位是不定的，那你要打在格子里面00。这样如果你输入最后3位是012，那么会显示出12；如果你输入54321，那么会显示出21。 如果你会变得部分是在数字的中间，比如我的item#会是-0000002，后面的-0000002是不变的，那我就可以设置自定义格式为&-0000002&,这样当我键入502的时候就会显示-0000002。再次显示出被隐藏掉了的行（第1行）1：&&选中隐藏的上、下行，右击鼠标，选“取消隐藏”(作者注：此法可行) 2：Ctrl+A-----格式-----行-----取消隐藏(可以，能够一次显示所有隐藏的行或列)3：另一法(工作表处于未保护状态):假如 A1 被隐藏了在名称框中键入A1,回车按 Ctrl+Shift+0 或 Ctrl+Shift+9(只显示选定的隐藏列或行)4：光标移到行号 4 上部变成 上下箭头状, 按住了, 拖也要把它拖出来!(慢，不好操作)5：选择整个工作表（点击左上角），然后再选择菜单中的行，选择最适合的行高，然后就OK!,同样可以把隐藏的列显示出来。(这个办法最好，能够一次显示所有隐藏的行或列)如何定义有效数字例：取两位有效数是从第一个不是零的数字起，取两位。0.0023666取两位有效数是0.0023 。0.2366取两位有效数是0.23。解答：用函数可如下: =FLOOR(A1, SIGN(A1)*10^(INT(LOG(ABS(A1)))-1)), +/- 小数有效,0无效.其它形式的数据, 自行扩展.sheet1工作表的A1、A2、A3单元格分别链接到sheet2、sheet3、sheet4解答：1、&=indirect(&sheet&&row()+1&&!a1&)《程香宙的解释：indirect是把文本变为单元格引用的函数row()是取当前行号。例如在a1输入该公式，则row()=1，公式里的值变为indirect(&sheet2!a1&),跟＝sheet2!a1同效，在a2输入该公式，则row()=2，公式里的值变为indirect(&sheet3!a1&)》2、使用插入----超级链接----书签----(选择)----确定用SUMIF函数进行条件求和，不限于一个条件时如何设置参数例如：有一个表格登记面粉、米粉、糯米、梗米、绿豆、早米……等等的进出流水帐，如果对满足单一条件的如面粉、糯米、绿豆等分别求和是没有问题的，但如果要将同一类的求和，例如将糯米、梗米、早米的数值加在一起，应该怎么办？ 解答：提供以下公式供参考，设A列为名称、B列为数量：=SUMIF(A:A,&糯米&,B:B)+SUMIF(A:A,&梗米&,B:B)+SUMIF(A:A,&早米&,B:B)如B1:D1为求和条件项，即B1=&糯米&,C1=&梗米&,D1=&早米&,上述公式还可改为:=SUMIF(A:A,B1,B:B)+SUMIF(A:A,C1,B:B)+SUMIF(A:A,D1,B:B)如何在excel中已有的数值前加零变成六位比如说 25、369、1569等，操作后变成解答：如果直接输入的话，可以在数值前面加“'”，如“'002020”； 如果处理现成的数据，或者从别处（比如从A1单元格）链接来的数据，可以用公式：＝RIGHT(&00000&&A1,6)如何提取工作表中的背景图片解答：找个干净的地方, 去掉网纹等不需要的东西, PrintScreen 再编辑绘制有三条斜线的表头解答：1、用绘图工具画出斜线&&画方框&&内添加文字&&去边框2、引用WORD中的，然后再复制过来就可以！在A列有一组数据不是按照大小顺序排列在B列中排名解答：方法1、将A列COPY到B列，再排序。2、rank函数(=RANK(A2:A11,$A$2:$A$11,0)(假设数据在A2：A11单元格，下同)3、使用contif函数进行排列“=countif(a$2:a$11,&&&&a2)+1&有无办法让B2所在行都呈红色字体解答：假设你有一个B列和一个A1的值，你的目的是，如果B2＝A1的话，整个B列都为红色显示！设置如下：先选定整个b列，也就是在B列列标处单击（废话～^_^），选择格式－条件格式出现条件格式对话框，单击左边的下拉列表，里面只有两项，单元格数值和公式，选中公式，右边就可以输入任何可以返回逻辑值的公式了。输入这个公式=($B$2=$A$1)。千万注意要用绝对引用，因为如果是相对的，excel又自作主张的一个一个判断了，就没有作用了。(绝对正确并且好用)现有12个工作表,是12张发票,建立一个汇总表,将发票号和金额汇总显示在一张表里(发票号和金额在每张表的相同位置).解答：在A1输入 =INDIRECT(&sheet&&ROW()&&!d3&)在B1输入 =INDIRECT(&sheet&&ROW()&&!d10&)再选择A1：B1往下复制到第12行。经验技巧按“Ctrl+~”可以一次显示所有公式(而不是计算结果)。再按一次回到计算结果。(程香宙)在一个不对称的区域中如（b1:G7）中找到A行一组数据中的某个数并自动变红解答：其实也很简单,你只要选定你的b1:g7，设置它的条件格式为=(COUNTIF($A$1:$A$7,b1))注意,b1为相对引用,这里输入所选区域的第一个取值，那样你的所选区域会自动填充.达到你要的效果。(好)不借助第三列而直接用函数或公式一步得到sum(a2/b2,a3/b3,…)的结果解答：输入=sum(a1:a100/b1:b100)，按ctrl+shift+Enter。请问要如何算出每个月有几个星期一、二、三….日解答：为简单起见,表格需作一下调整,将 &星期日& 移到 C1,其后依次,这也符合规则(请参阅函数: WEEKDAY()). 。在 C2 键入数组公式: {=SUM(IF(WEEKDAY(DATE($A2,$B2,ROW(INDIRECT(&$A$1:$A$& & DAY(DATE($A2,$B2+1,1)-1)))))=COLUMN()-2,1))}，向右复制、向下复制。公式解释一点:ROW(INDIRECT(&$A$1:$A$& & DAY(DATE($A2,$B2+1,1)-1)))实际上是从 1 号测试到本月的最后一天.如需要,公式可再作精简。让隐藏的列或行不参预计算解答：使用subtotal函数,详细用法参见帮助。一次删完Excel里面多出很多的空白行解答：1、用分面预览看看2、用自动筛选然后删除3、用自动筛选，选择一列用非空白，空白行就看不到了，打印也不会打出来。但是实际上还是在的，不算删除。或者用自动筛选选择空白将空白行全显出来一次删完也可以。4、先插入一列，在这一列中输入自然数序列，然后以任一列排序，排序完后删除数据后面的空行，再以刚才输入的一列排序，排序后删除刚才插入的一列。表1、表2分别有20个人的基本情况和其中10个人的名字，让表1的数据自动填充到表2答：1、用lookup函数即可。要保证20人不重名；2、假设表1的D列对应表2的E列。E2的公式：=VLOOKUP(B2,Sheet1!B:D,3,FALSE)使用vlookup函数返回#N/A符号时将此符号用0或空格来代替答：这样处理： =IF(ISNA(VLOOKUP(C13,A1:B10,2)),0,VLOOKUP(C13,A1:B10,2))或：IF(ISERROR(vlookup(a1,e1:g10,2,0)),0,vlookup(a1,e1:g10,2,0))。通过条件格式将小计和总计的行设为不同的颜色答：输入=RIGHT(RC,1)=&计&；设定字体、边框、图案；确定。复制隐藏后的表格到一个新表格中使被隐藏的内容不显示答：crtl+g－选可见单位格－复制－粘贴。如何将一个工作簿中的一个Sheet隐藏答：1、选“格式”---“工作表”----“隐藏”2、使用VBA这样隐藏后在使用工作表保护。Alt+F11----Ctrl+G----出现立即执行窗口，在此窗口内执行Sheet1.Visible = xlSheetVeryHidden这样隐藏后sheet在格式---工作表----取消隐藏是看不见的。问：方法2更好哦，如何恢复呢？答：sheet1.Visible =xlSheetVisible工具菜单与视图中的工具栏不同屏蔽工具菜单宏sub notool()MenuBars(xlWorksheet).Menus(&工具&).Deleteend sub解除屏蔽sub yestool()MenuBars(xlWorksheet).resetend sub Alt+F11 进入VBA 编辑、插入模块、将上面宏复制到模块、运行宏。OK查找并填写符合条件的单元格内容我在工作中需快速复制每行多个数据（单元格）中最小值所对应的“标题名”，如E6是C6：Y6中的最小值，所对应的标题是E5单元格“某某公司”，要将其（某某公司）复制到B6单元格中，以此类推的复制很多很多行的内容。如果是手工一个一个查找与复制，实在是太慢太笨了，能否使用一个简单的公式计算呢？答：B6单元格&=INDEX(C$5:Y$5,MATCH(MIN(C6:Y6),C6:Y6,0))& 填写空白行我有个同事在一张空白表依次输入数据，为了省事她把和上一格内容相同的的省略不输，输了近200行。后来又觉得不够正式，想把空白的地方补上。她来问我怎么办好。当然依次填充也行，但我觉得烦（如果有2000行怎么办呵呵）我想了一个不是办法的办法：在A列和B列旁各插入一列，现在就有ABCDE列，我在B2中复制了A2中的内容，然后在B3中输入公式：IF(A3=0,B2,A3),然后往上往下复制公式。这样就填满了。如法炮制D列后隐藏AB列感觉就可以了。可是也烦啊，谁有更好的办法？答：1、Sub feifjeifjeifjeifjeifjiefjiejfiejf()For i = 2 To ActiveSheet.Range(&a1&).CurrentRegion.Rows.CountIf IsEmpty(Cells(i, 1)) ThenCells(i, 1).FormulaR1C1 = Cells(i - 1, 1).ValueEnd If NextEnd Sub2、筛选出空白行，输入公式=INDIRECT(&a&&ROW()-1)，填充制订下月计划并显示为中文我在五月份做六月份的计划，为减少工作量和更改的麻烦，我做模板并使用了公式=&计划期：&&YEAR(NOW())&&年&&(MONTH(NOW())+1)&&月&，结果如A1所示 计划期：2002年6月 （现在的系统日期是2002年5月）。&如果我想自动得到如A2中的结果 计划期：二○○年六月 ，请问要如何做才行，我设置了单元格的日期格式还是不行。解答：1、先设置单元格格式为&二○○二年六月&那种类型，然后用如下公式：=DATE(YEAR(NOW()),(MONTH(NOW())+1),20)就可以了。2、使用这个函数吧！ =EDATE(NOW(),1)。单元格格式应设置为：日期----一九九七年三月。3、设置单元格格式为：[DBNum1]&计划期：&yyyy&年&m&月& ，然后直接输入日期值(如2002/11)即可。输入公式也可以。如=today()+30，可以得到下个月的月份。&的用法有E44单元格，我希望 总计：=SUM(E45:E49) 就是想让它经过自动求和后在一个单元格内显示 总计：120 。解答：有多种方法实现，详细如下：1、=&总计：&&sum(e45:e49)2、把E44格式设为&总计:�.00;&总计:&-#0.00;&总计:&0.00;@3、将E44单元格格式自定义为 &总计：&0.000 即可,方便对E44的引用计算4、=CONCATENATE(&合计：&,SUM(e45:e49))有5行数据在每行上面个插入1行解答：1、在最左边插入一列，然后输入1、2、3、4、5、1、2、3、4、5，并以此列进行排序，在第一行上面再插入一行，删除刚刚插入的列。2、使用Ctrl+鼠标一行一行选定，然后插入行。3、sub 插入行（）for i=1 to 6if cells(i,1).value && Cells(i + 1, 1) And Cells(i, 1) && &&) ThenRows(i + 1).Insertend ifnext iend sub 可以检查一张表里是否有漏重的数字吗答：漏值：{=IF(SUM((R1C1:R10C4=&&)*1)&0,&有漏值&,&无漏值&)}重复值：{=SUM(SUM((漏值!R1C1:R10C4=漏值!RC)*1))}{=IF(MAX(R1C1:R10C4)&1,&有重复值&,&无重复值&)}使用下面公式更方便：找重复值-------{=IF(SUM((COUNTIF(R1C1:R10C4,R1C1:R10C4)&1)*1)&1,&有重复值&,&无重复值&)}找 漏 值-------{=IF(SUM((R1C1:R10C4=&&)*1)&0,&有漏值&,&无漏值&)}注意：这两个公式均为数组，输入时应同时按Ctrl+Shift+Enter。怎样将单元格中的公式转换为数值解答：选中公式的一部分，按F9键条件求和有这样一个表格A B C 1&2&3 /2&2&3 /3&2&3 /4&2&3 /5&2&3/6&2&3 /如何才能求出满足A列中大于2且小于5的B列和C列数值的和，要求B列和C列的值相加。用sumif函数似乎条件中只能设定为＞2，而不能同时设定＜5，而且在求和时只能B列相加，不能把B列和C列满足条件的值加起来。这个问题能不能只用函数，不用数组公式解决。请各位指教。解答：1用公式：=SUM(IF(($A$1:$A$6&2)*($A$1:$A$6&5),B1:C6))2用数组公式：{=SUM(IF($A$2:$A$7&2,IF($A$2:$A$7&5,$B$2:$B$7,0),0))+SUM(IF($A$2:$A$7&2,IF($A$2:$A$7&5,$C$2:$C$7,0),0))}A1单元格为出生日期，可用=DATEDIF(A1,NOW(),&y&)计算其年龄这个公式是什么意思？K7=if(AND(R7&3000, Q7&0.5), &&, P7)意思是：如果R7单元格中的数值大于3000，并且Q7单元格中的数值大于0.5，则在K7单元格中显示空白，否则显示出P7单元格中的数据。统计数据问题一例各位朋友，如果我想统计50个数据中大于某个值的数据个数，（这个值是在使用时才输入某个单元格的），请问用什么函数，如何实现，谢谢。 如数据单元格为A1：E10，值的单元格为A11。答：1、使用下面的数组公式： {=SUM(IF($A$1:$E$10&$A$11,1))}2、输入以下函数： =COUNTIF(A1：E10,&&&&A11)关于条件求和问题！有A，B，C，三列数据，如果A列符合要求，求B1*C1+B2*C2+......?答：使用数组公式： {=SUM((R2C1:R13C1=&ab&)*(R2C2:R13C2)*(R2C3:R13C3))}请教关于条件乖积的求和问题A列为部门名称，B列为姓名，C列为日工资额(如20.00)，D列为月出勤天数，我想在另一汇总表中汇总出各部门员工月工资总额(即：相应部门对应的C*D之和)。请问如何解决？解答：1、=SUM((A4:A10=&甲部门&)*(C4:C13)*(D4:D13))假设你的a列存放部门名称，你的b列存放员工姓名，C列存放日工资，D列存放天数。计算“甲部门”的工资总额。注意，这是数组公式，输入完毕后按ctrl+shift+回车问：我试着把区域引用改为整列，出现错误，请指点!=SUM((date!A:A=&甲部门&)*(date!E:E)*(date!F:F))答：经试验，不能用整列方式，你可以适当的调整一个比较大的区域如a2:a100 a1为标题行因为如果参与计算的e列和f列区域出现文本，也会发生错误。一定要把计算区域的标题行去掉，并且保证不再数值区域出现文本。=SUM((date!A2:A100=&甲部门&)*(date!C2:C100)*(date!D2:D100))这个公式没有错误文件修复Excel文件是一个工作簿，一般可以包含255个工作表，每个工作表中可以包含大量的数据。如果一个Excel文件部分受损，不能正常打开，该怎么办呢？这里向大家介绍两种解救方法。 手动处理 进入Word，打开要修复的XLS文件，如果Excel只有一个工作表，会自动以表形式装入Word，若文件是由多个工作表组成，每次只能打开一个工作表。打开后，先将文件中损坏的数据删除。 用鼠标选中［表格］→［转换］→［表格转文本]，注意可用“，”间隔符或其它分隔符，另存为一个TXT文本文件。在Excel中直接打开该文本文件，在打开时，Excel会提示文本导入向导，一般情况下只要直接点击［下一步］即可，打开后另存为其它的Excel文件即可。 注意：这种修复的方法是利用Word的直接读取Excel文件的功能实现，该方法在文件头没有损坏，只是文件内容有损坏的情况下比较有效；对文件头已经损坏的Excel文件，此方法可能不成功，必须借助于其它方法。 用Excel修复工具 Concept Data公司提供了一个专门用于修复Excel损坏文件的修复工具——ExcelRecovery，能够对Excel 5.0/97/2000的文件进行恢复处理，大家可以先下载该软件的免费演示版试用，仅有674KB，下载地址。软件安装后，可以自动将Excel的修复程序加在Excel应用程序中，在“文件”菜单下多出一项“Recovery”选项，若有损坏的文件，可以用该选项进行修复。另一个下载地 使用方法是： 1、打开Excel； 2、单击“文件”菜单下的“Recover”选项，Excel Recovery对话框将打开 3、指定要修复的Excel文件，然后按[Recover]按钮； 4、自动修复； 5、另存为一个新的文件名，即可完成文件的修复工作。 注意：该演示版本只能修复普通文件，不能修复带Visual Basic代码、图表以及包含口令的Excel文件，如果需要修复这些文件，请进行注册。 另外要提醒大家的是：保存在软盘中的文件极易损坏，受损后可用以上方法修复，但如果损坏的文件位于磁盘0磁道时，就必须先修复软盘，再用上述方法修复Excel文件。另外，考虑到未注册版本的使用限制，我找到如下破解页面，你自己再研究研究Results 4 of about ExcelRecovery URL:
• ExcelRecovery v3.0 • ExcelRecovery v2.2 URL: ...&#. ExcelRecovery 2.2 12 Kb &#. ExcelRecovery 2.2.1 12 Kb &#. ExcelRecovery v3.0 (SirCrack) 12 Kb URL:
• ExcelRecovery v3.0 - 11 Kb URL:
&#. ExcelRecovery 3.0 by SirCrack [ 11 Kb ] 显示隐藏的工作表有个朋友给了我一个EXCEL程序，里面只有2个SHEET，但是我见到其中一个SHEET还引用了本文件另外一个工作表的内容，我用ALT+F11打开VB编辑器又可以看到那个隐藏了的工作表， 请问怎么能看到那工作表呢？答：Sheets(&name_of_sheet&).Visible = True这样一列如何筛选出含201的 县一高2014555 /便民201号 /县城301号/45122 /柏良201 /柏良301答：假设你的资料在B列，且起始行为第四行，即B4起始单元格，终止与11行处，即B11，则在A列输入公式IF(ISERROR(FIND(&201&,B4)),A3,A3+1),然后在D列输入顺序数字，比如1到10，在E列输入公式vlookup(d4,$a$4:$b$11,2,1&2)。注意A3为0。或：自动筛选-&单击下拉列表-&custom(自定义)-&在条件中选&包含&,在右边的文字框输入&201&-&OK两个日期相差的月份数使用Datedif(日期1，日期2，&m&)函数。用函数实现连续相加我有一公式是这样的：=sum(B1+B2+B5+B8+B11+B14+B17+B20) 也就是前两个是连续相加，后边的是每隔3个相加，不知有没有简单的公式。答：{=SUM((MOD(ROW(B1:B20),3)=2)*B1:B20)+B1}把计算结果为负值的显示为红色取整并在数字后面加上“仟元“把单元格格式改为#,##0&仟元&;[红色]-#,##0&仟元&如果不要负号可以写成#,##0&仟元&;[红色]#,##0&仟元&比较A、B两列数据并在A列中包含B列的数据删除工作表中A列数据是原始数据，而B列是另一些数据，现在要比较两列的情况，然后将A列中包含B列的数据删除Sub wswx0041()Dim i&, j&On Error Resume NextFor j = Range(&B65536&).End(xlUp).Row To 1 Step -1For i = Range(&A65536&).End(xlUp).Row To 1 Step -1If Cells(i, 1) Like &*& & Cells(j, 2) & &*& And Not IsEmpty(Cells(j, 2)) Then Cells(i, 1).Delete shift:=xlUpNext iNext jEnd Sub怎样让我的图表随着数据透视表的更新我的问题是： 1、当有新月份的数据出现的时候，图表无法包含新数据；2、但REGION选择不是全部，比如CD,图表中没有数据。怎样实现图表随数据透视表的更新而更新呢？解答：DATA=Data!$A$1:$G$129、固定的范围,不值钱、DATA=OFFSET(Data!$A$1,,,COUNTA(Data!$A:$A),6)动态范围、按数据透视表[!]按钮,更新数据 Sales Date；改用年月日三个字段；目的是当[索引],让条件容易下；DATA=OFFSET(Data!$A$1,,,COUNTA(Data!$A:$A),8)。直接由[数据透视表]工具,[图表精灵]出,[图表]如此就是完美的三层式结构，分工完成工作，只不过是接条龙，很简单吧! 又问：每次刷新数据，列宽等格式就需要重调，有没有办法将格式固定住？答：工具&&选项&&一般&&标准字型&&大小&&确定。设定好以后,开新档案,列宽行高自动会调整。但这不是重点 [数据透视表]；鼠标右键&&分页显示。此功能是用来打印整本活页簿,出报表用双击总计字段下之单元格；此功能是用来列出该笔合并数据所有明细；所以[自动筛选][进阶筛选]就用不着了,也不必去写复杂之[数组公式]；需要甚么数据,直接找[数据透视表]要；操作非常简单DATA可以转到mbd檔；ACCESS可以汇入Excel数据,用精灵操作；汇入以后xls档即可删除Excel&&数据&&取得外部数据&&新增外部数据查询&&&&&&转入[数据透视表]；此物即为Microsoft Query第一次使用会要求放入光盘片,安装ODBC驱动程序改用年月日三个字段；是有道理的。别嫌麻烦循环引用问题vba中输入公式，我想用变量代替RC地址，以便循环操作，如何做到？比如：在Range(&am6&).FormulaR1C1 = &=SUM(R[-5]C:R[-5]C[10])&中，如何才能用变量x来代替其中的10或-5等数字？ 解答：=&=SUM(R[& & x & &]C[& & y & &]:R[& & xx & &]C[& & yy & &])& 如何才能有条件的引用某一区的内容请教各位，怎样才能引用符合条件的某一区域的内容。如下： A B C 9-1 1 9-15 /9-2 2 9-16 /9-2 2 9-17 /9-2 1 9-18 /9-4 2 9-18 请问，用什么方法才能在另外的单元格中引用同时符合A列中“9-2”和B列中“2”的C列的内容。解答：先判断个数，再列出符合的数据：{=IF(ROW()-ROW($A$18)+1&SUM(($A$2:$A$7=$B$16)*($B$2:$B$7=$C$16)),&&,TEXT(SMALL(IF(IF($A$2:$A$7=$B$16,$B$2:$B$7,&&)=$C$16,$C$2:$C$7,&&),ROW($A1)),&m月d日&))}Excel基本功1.引用同一工作薄中另外一工作表的单元格 = Worksheets(&工作表名称&).Cells(1, 1) ------------------------------------------------------------ 如当前工作表为sheet1，想引用sheet2中的B2,则=sheet2!B2 2.如何使0值不显示 方法1：if (A1&&&&, A., &&) 方法2：对于整个工作表中的0值全不显示，[工具]-[选项]-[视图]，清除0值选项。 方法3：用自定义数字格式，其中&#&和&?&有屏蔽0值的效果。比如：&G/通用格式;G/通用格式;#&，&G/通用格式;G/通用格式;?&。 3.如何定义格式和Copy格式? 在EXCEL中,可不可以把某一范围定义成一种格式,而其中某些数据又不是.并且又如把这种格式COPY到同一张sheet1中?如: 大制程 标准工时 状况
二次 13 /焊接 20& .而其它空格就不包括在格式中.被填写了的这张表格的格式又能重新COPY.如何做呢? 解答：新建一个只有一个工作表的工作簿 ,在这个工作表中设计你的格式另存为模板（*.xlt）。以后插入新工作表时，选择刚才建的模板。 又问：但是假如我只有一张工作表,我如何在同一张工作表中COPY呢?如我的固定格式在sheet1的A1:Z15范围内,我要把这种格式copy到A17:Z24,而其中的数据又不COPY进来.怎么办?解答：假设你要复制格式的范围为A1:Z1和A1:B15两个区域，则用下面的宏能实现你的复制要求。 你只要选定新区域左上角的单元格，然后执行宏即可。 Sub 宏1() aaa = ActiveWindow.RangeSelection.Address Range(&A1:Z1&).Select Selection.Copy Range(aaa).Select ActiveSheet.Paste Range(&A1:B15&).Select Application.CutCopyMode = False Selection.Copy Range(aaa).Select ActiveSheet.Paste Application.CutCopyMode = False Range(aaa).Select End Sub ------------------------------------------------------------ 如果A1:Z15中的数据全部都要清除， 可以[复制]A1:Z15，[选择性粘贴]到A17，粘贴栏中选中&格式&。 ------------------------------------------------------------ 选定范围后直接使用格式刷就可以了 4.如何实行列互换？ 解答：Transpose函数 或选中一行或一列，复制，选择性粘贴－＞转置。 ------------------------------------------------------------ 在某一单元格输入公式“INDEX(reference,COLUMN(A1),ROW(A1))” 然后向下向右拖放。 5.EXCEL2000中视面管理器如何具体运用呀？ 请问高手EXCEL2000中视面管理器如何具体运用呀？ ------------------------------------------------------------ 其实很简单呀，你把它想象成运动场上的一串照片（记录不同时点的场景）， 一张照片记录一个场景，选择一张照片就把运动“拖”到照片上的时点。 不同的是只是场景回复，而值和格式不回复。解除officeXP&50&次限制首先使用下面这个序号来安装Office XP。 BMV8D-G272X-MHMXW-4DY9G-M8YTQ 2、安装后，启动新建一个Word文档，程序会提示你激活，不管它！关闭Word。 3、打开注册表编辑器REGEDIT.exe，进入到下面的子键里面： [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\Products\3D11C8EFC\Always Installed] 4、把右边的这个DWORD类型的键删除：&Usage&=dword:2adb0001 5、在右边新建这样一个字符串型的键：Usage，将其值改为AlwaysInstalled 即： Usage=&AlwaysInstalled& 6、最后使用法国人写的字节数为12,800的Crack.exe来破解Office XP后，即大功告成！ 我破解后，打开Word 70次，打开Excel 60次后，还是能够新建文档、表格，而且可以顺利保存。 无论Win98或Win2000操作系统我都成功了,且已运行了200次以上! 小写数字转换成人民币大写方法1、Function UNumber(LNumber As Double)Dim NumberStr$Dim NumberLen%Dim DotLoc1%Dim DotLoc2%Dim NumberStr1$Dim NumberStr2$If LNumber = 0 ThenUNumber = &零元整&Exit FunctionEnd IfNumberStr = Application.WorksheetFunction.Text(LNumber, &[DBnum2]&)NumberLen = Len(NumberStr)DotLoc1 = InStr(1, NumberStr, &.&, vbTextCompare)DotLoc2 = NumberLen - DotLoc1If DotLoc1 = 0 ThenNumberStr = NumberStr & &元整&ElseNumberStr = Replace(NumberStr, &.&, &元&)If DotLoc2 = 2 ThenNumberStr = NumberStr & &分&If Mid(NumberStr, DotLoc1 + 1, 1) && &零& ThenNumberStr1 = Mid(NumberStr, 1, DotLoc1 + 1) & &角&NumberStr2 = Right(NumberStr, 2)NumberStr = NumberStr1 & NumberStr2End IfElseNumberStr = NumberStr & &角整&End IfEnd IfOn Error Resume NextUNumber = Replace(NumberStr, &零元&, &&)End Function方法2、=IF(TRUNC(H16)=H16,TEXT(H16,&[DBNum2]G/通用格式&)&&元整&,TEXT(TRUNC(H16),&[DBNum2]G/通用格式&&&元&))&IF(AND(TRUNC(H16)&&H16,RIGHT(TRUNC(H16*10))&&&0&),TEXT(TRUNC(MOD(H16*10,10)),&[DBNum2]G/通用格式&)&&角&,&&)&IF(AND(RIGHT(TRUNC(H16*10))=&0&,TRUNC(H16)&&H16),&零&,&&)&IF(TRUNC(H16*10)&&H16,TRUNC(H16*10)=H16*10), &整&,&&)方法3、=IF(F10=0,&&,CONCATENATE(IF(INT(F10)=0,&&,TEXT(INT(F10),&[DBNum2]G/通用格式元&)),IF(INT(MID(RIGHT(FIXED(F10,2,1),2),1,1))=0,IF(INT(MID(RIGHT(FIXED(F10,2,1),1),1,1))=0,&&,IF(INT(F10)=0,&&,&零&)),TEXT(INT(MID(RIGHT(FIXED(F10,2,1),2),1,1)),&[DBNum2]G/通用格式角&)),IF(INT(MID(RIGHT(FIXED(F10,2,1),1),1,1))=0,&整&,TEXT(INT(MID(RIGHT(FIXED(F10,2,1),1),1,1)),&[DBNum2]G/通用格式分&))))方法4、人民币大写的函数公式，可正负，最多两位小数。=IF(A1&0,&负&,&&)&IF(TRUNC(A1)=A1,TEXT(IF(A1&0,-A1,A1),&[DBNum2]&)&&元整&,IF(TRUNC(A1*10)=A1*10,TEXT(TRUNC(IF(A1&0,-A1,A1)),&[DBNum2]&)&&元&&TEXT(RIGHT(A1),&[DBNum2]&)&&角整&,TEXT(TRUNC(A1),&[DBNum2]&)&&元&&IF(ISNUMBER(FIND(&.0&,A1)),&零&,TEXT(LEFT(RIGHT(A1,2)),&[DBNum2]&)&&角&)&TEXT(RIGHT(A1),&[DBNum2]&)&&分&))方法5修改一下4：根据剑魔兄的测试，发现有一个问题，如-100.05，现修正如下：=IF(A1&0,&负&,&&)&IF(TRUNC(A1)=A1,TEXT(IF(A1&0,-A1,A1),&[DBNum2]&)&&元整&,IF(TRUNC(A1*10)=A1*10,TEXT(TRUNC(IF(A1&0,-A1,A1)),&[DBNum2]&)&&元&&TEXT(RIGHT(A1),&[DBNum2]&)&&角整&,TEXT(TRUNC(IF(A1&0,-A1,A1)),&[DBNum2]&)&&元&&IF(ISNUMBER(FIND(&.0&,A1)),&零&,TEXT(LEFT(RIGHT(A1,2)),&[DBNum2]&)&&角&)&TEXT(RIGHT(A1),&[DBNum2]&)&&分&))方法6=IF(A1&0,&负&,)&TEXT(TRUNC(ABS(A1)),&[DBNum2]G/通用格式&)&&元&&&IF(ROUND(A1,3)=ROUND(A1,),&整&,TEXT(RIGHT(TRUNC(A1*10),1),&[DBNum2]G/通用格式&)&&角&&IF(ROUND(A1,3)=ROUND(A1,1),&整&,TEXT(RIGHT(ROUND((A1*100),),1),&[DBNum2]G/通用格式&)&&分&))方法7无条件舍去： =CONCATENATE(IF(A1&0,&负&,&&),TEXT(IF(TRUNC(A1)=0,&零&,TRUNC(ABS(A1))),&[DBNum2]&)&&元&,IF(OR(AND(ABS(A1)&0.1,TRUNC(A1)=A1),RIGHT(INT(ABS(A1)*100),2)=&00&),&&,TEXT(RIGHT(TRUNC(A1*10),1),&[DBNum2]&)),IF(RIGHT(TRUNC(A1*10),1)=&0&,&&,&角&),IF(OR(TRUNC(A1*10)-(A1*10)=0,RIGHT(TRUNC(A1*100),1)=&0&),&整&,TEXT(RIGHT(TRUNC(A1*100),1),&[DBNum2]&)&&分&))小数点后两位四舍五入: =CONCATENATE(IF(A1&0,&负&,&&),TEXT(IF(TRUNC(ROUND(A1,2))=0,&零&,TRUNC(ABS(ROUND(A1,2)))),&[DBNum2]&)&&元&,IF(TRUNC(ROUND(A1,2))=ROUND(A1,2),&&,TEXT(RIGHT(TRUNC(ROUND(A1,2)*10),1),&[DBNum2]&)),IF(RIGHT(TRUNC(ROUND(A1,2)*10),1)=&0&,&&,&角&),IF(OR(TRUNC(ROUND(A1,2)*10)-(ROUND(A1,2)*10)=0,RIGHT(ROUND(A1,2),1)=&0&,TRUNC(ROUND(A1,2))=ROUND(A1,2)),&整&,TEXT(RIGHT(ROUND(A1,2),1),&[DBNum2]&)&&分&))方法8无条件舍去： =IF(A1&0,&负&,&&)&SUBSTITUTE(TEXT(TRUNC(A1),&[DBNum2]&)&&元&&IF(ISNUMBER(FIND(&.&,TRUNC(A1,2))),TEXT(RIGHT(TRUNC(A1*10)),&[DBNum2]&)&IF(ISNUMBER(FIND(&.0&,A1)),&&,&角&),&&)&IF(LEFT(RIGHT(TRUNC(A1,2),3),1)=&.&,TEXT(RIGHT(TRUNC(A1,2)),&[DBNum2]&)&&分&,&整&),&-&,)小数点后两位四舍五入: =IF(A1&0,&负&,&&)&SUBSTITUTE(TEXT(TRUNC(ROUND(A1,2)),&[DBNum2]&)&&元&&IF(ISNUMBER(FIND(&.&,ROUND(A1,2))),TEXT(RIGHT(TRUNC(ROUND(A1,2)*10)),&[DBNum2]&)&IF(ISNUMBER(FIND(&.0&,ROUND(A1,2))),&&,&角&),&&)&IF(LEFT(RIGHT(TRUNC(ROUND(A1,2),2),3),1)=&.&,TEXT(RIGHT(ROUND(A1,2)),&[DBNum2]&)&&分&,&整&),&-&,)方法9再简化如后，请大家试试。无条件舍去：=IF(A1&0,&负&,&&)&TEXT(TRUNC(ABS(A1)),&[DBNum2]&)&&元&&IF(ISERR(FIND(&.&,TRUNC(A1,2))),&&,TEXT(RIGHT(TRUNC(A1*10)),&[DBNum2]&))&IF(RIGHT(TRUNC(A1*10))=&0&,&&,&角&)&IF(LEFT(RIGHT(TRUNC(A1,2),3))=&.&,TEXT(RIGHT(TRUNC(A1,2)),&[DBNum2]&)&&分&,&整&)小数点后两位四舍五入:=IF(A1&0,&负&,&&)&TEXT(TRUNC(ABS(ROUND(A1,2))),&[DBNum2]&)&&元&&IF(ISERR(FIND(&.&,ROUND(A1,2))),&&,TEXT(RIGHT(TRUNC(ROUND(A1,2)*10)),&[DBNum2]&))&IF(ISERR(FIND(&.0&,TEXT(A1,&0.00&))),&角&,&&)&IF(LEFT(RIGHT(ROUND(A1,2),3))=&.&,TEXT(RIGHT(ROUND(A1,2)),&[DBNum2]&)&&分&,&整&)方法10(好)Function RMB_DX(money As Variant)Dim m1 As Long, n1 As Long, n2 As Integer, n3 As Integerm1 = Application.WorksheetFunction.Round(money * 100, 0)n1 = Int(m1 / 100)n2 = Int(m1 / 10) - n1 * 10n3 = m1 - n1 * 100 - n2 * 10If n3 = 0 ThenRMB_DX = &整&ElseRMB_DX = Application.WorksheetFunction.Text(n3, &[DBnum2]&) & &分&End IfIf n2 = 0 ThenIf n1 && 0 And n3 && 0 Then RMB_DX = &零& & RMB_DXElseRMB_DX = Application.WorksheetFunction.Text(n2, &[DBnum2]&) & &角& & RMB_DXEnd IfIf n1 && 0 Or m1 = 0 ThenRMB_DX = Application.WorksheetFunction.Text(n1, &[DBnum2]&) & &元& & RMB_DXEnd IfEnd Function方法11unction rmbdx(value, Optional m = 0)'支持负数,支持小数点后的第三位数是否进行四舍五入处理'默认参数为0,即不将小数点后的第三位数进行四舍五入处理'redwin增改 'Application.Volatile TrueOn Error Resume NextDim aIf value & 0 Thena = &负&Elsea = &&End If'当参数m不输入(默认为0)或为0时,小数点后的第三数不进行四舍五入处理'当参数m为1或其它数值时,小数点后的第三数进行四舍五入处理value = CCur(Abs(value))If m = 0 Thenvalue = Fix(value) + (Fix((value - Fix(value)) * 100)) / 100Elsevalue = Round(value, 2)End Ifstrrmbdx = Application.WorksheetFunction.Text(Int(value), &[DBNum2]&) & &元&'防止出现零元的bug!If value &= 1 Thenstrrmbdx = strrmbdxElsestrrmbdx = &&End IfstrBal = Str(value)If Int(value) && value ThenstrLastvalue = Left(Right(strBal, 2), 1)If strLastvalue = &.& ThenstrLastvalue = Right(strBal, 1)strLast = Application.WorksheetFunction.Text(strLastvalue, &[DBNum2]&) & &角整&ElseIf strLastvalue = &0& And strLastvalue && &0& ThenstrLast = &零&Else'防止出现零角几分的bug!If strrmbdx = && And strLastvalue = &0& Then'strLast = Application.WorksheetFunction.Text(strLastvalue, &[DBNum2]&) & &角&strLast = &&ElseIf strrmbdx && && And strLastvalue = &0& ThenstrLast = &零&ElsestrLast = Application.WorksheetFunction.Text(strLastvalue, &[DBNum2]&) & &角&End IfEnd IfEnd IfstrLastvalue = Right(strBal, 1)If strLastvalue = &0& ThenstrLast = &整&ElsestrLast = strLast & Application.WorksheetFunction.Text(strLastvalue, &[DBNum2]&) & &分&End IfEnd Ifstrrmbdx = strrmbdx & strLastElsestrrmbdx = strrmbdx & &整&End Ifrmbdx = a & strrmbdxEnd Function方法12=IF(ISTEXT(C2),&&,&人民币：&&TEXT(INT(C2),&[dbnum2]&)&&元&&IF(INT(C2*10)-INT(C2)*10=0,&&,TEXT(INT(C2*10)-INT(C2)*10,&[dbnum2]&)&&角&)&IF(INT(C2*100)-INT(C2*10)*10=0,&整&,TEXT(INT(C2*100)-INT(C2*10)*10,&[dbnum2]&)&&分&))……还有很多方法编者没有收集。中国式的排名&函数应用RANK 是个排名函数 但有一个问题象上面有两个100分 也就是两并列第一 排名就从第三名开始没有第二名 也许这个美国式的排名 中国式的排名 前面有两个一样的分数并列第一后是 第二名 怎样用函数实现.解答：在B3中复制如下的数组公式，然后往右复制：{=SUM(IF(B1=LARGE(IF(LARGE($B$1:$H$1,COLUMN($A$1:$G$1))=IF(ISERROR(LARGE($C$1:$I$1,COLUMN($A$1:$G$1))),0,LARGE($C$1:$I$1,COLUMN($A$1:$G$1))),0,LARGE($B$1:$H$1,COLUMN($A$1:$G$1))),COLUMN($A$1:$G$1)),COLUMN($A$1:$G$1),0))}也可换个方式不用数组，在B3中复制如下的公式，然后往右复制：=RANK(B1,$B1:$H1)+COUNTIF($B$1:B1,B1)-1当做日报表累计数自动加当做日报表时,怎样让月累计数自动加上? 就是要月累计自动加上今天的当日收入数,今天只输入当日收入,我想用用前一天的月累计数加上今天的当日收入数为今天的月累计数.情况是一月一个工作薄,每一个工作薄下30个工作表,用每一天的日期为报表名.我想把月累计的公式写为 =sheet17!c5 中的 17 用 day(now())-1 的值去取代他,该怎么办呢? 以下为报表格式,谢谢大家帮我想一想. 部门-------当日收入 -----------月累计 团队收入 12.12 123.00 /写字间收入 147,258.00 147.147/房内吧收入 147,258,369.00 解答：=SUM('Sheet1:Sheet30'!C5) 在你需要月汇总的单元格填入上述公式，其作用是将工作表1到工作表30的“C5”单元格的值全部累加起来，而“C5”单元格应填入当日的收入数。 又问：月累计的公式写为 =sheet17!c5 中的 17 用 day(now())-1 的值去取代他,该怎么办呢? ” 答：用公式： =INDIRECT(ADDRESS(1,1,1,1,&sheet&&DAY(NOW())-1))工资条问题职工工资构成非常复杂，往往超过10项，因此每月发工资时要向职工提供一包含工资各构成部分的项目名称和具体数值的工资条。打印工资条时要求在每个职工的工资条间有一空行便于彼此裁开。本模板就是用EXCEL函数根据工资清单生成一便于分割含有工资细目的工资条表格。 本工资簿包含两张工资表。第1张工资表就是工资清单，称为&清单&。它第一行为标题行包括职工姓名、各工资细目。 第2张工作表就是供打印的表，称为&工资条&。它应设置为每三行一组，每组第一行为标题，第二为姓名和各项工资数据，第三行为空白行。就是说整张表被3除余1的行为标题行，被3除余2的行为包括职工姓名、各项工资数据的行，能被3整除的行为为空行。 在某一单元格输入套用函数&=MOD(ROW(),3)&，它的值就是该单元格所在行被3除的余数。因此用此函数能判别该行是标题行、数据行还是空行。 在A1单元格输入公式&=IF(MOD(ROW(),3)=0,&&,IF(MOD(ROW(),3)=1,清单!A$1,&value-if-false&))&并往下填充，从A1单元格开始在A列各单元格的值分别为清单A1单元格的值即姓名、value-if-false、空白，姓名、value-if-false、空白，......。其中value-if-false表示MOD(ROW(),3)既不等于0又不等于1时，即它等于2时应取的值。它可用如下函数来赋值：&INDEX(清单!$A:$G,INT((ROW()+4)/3),COLUMN())&。INDEX()为一查找函数它的格式为：INDEX(reference,row-num,col-num),其中reference为查找的区域，本例中为清单表中的A到G列，即函数中的&清单!$A:$G&，row-num为被查找区域中的行序数即函数中的INT((ROW()+4)/3)，col-num为被查找区域中的列序数即函数中的COLUMN()。第2、5、8.......行的行号代入INT((ROW()+4)/3)正好是2、3、4......，COLUMN()在A列为1。因此公式&=INDEX(清单!$A:$G,INT((ROW()+4)/3),COLUMN())&输入A列后，A2、A5、A8......单元格的值正好是清单A2、A3、A4......,单元格的值。这样，表的完整的公式应为&=IF(MOD(ROW(),3)=0,&&,IF(MOD(ROW(),3)=1,清单!A$1,INDEX(清单!$A:$G,INT((ROW()+4)/3),COLUMN())))&。把此公式输入A1单元格，然后向下向右填充得到了完整的工资条表。 为了表格的美观还应对格式进行设置，一般习惯包括标题、姓名等文字在单元格中要取中，数字要右置，数字小数点位数也应一致，还有根据个人的爱好设置边框。本表格只需对一至三行的单元格进行设置，然后通过选择性格式设置完成全表的设置。 本工作簿的特点是1、不对清单表进行操作保持清单工作表的完整，2、全工作表只有一个公式通过填充得到全表十分方便。例如：我的单位不大不小，有200多号人。最近领导要求把每个员工个人的工资情况打出来，分发给每位员工。每个员工的工资条上只能有两行内容：一行是分解的项目内容，如基本工资、岗位工资、总计等等；另一行是对应第一行的具体工资数额。可以这样解决：Sheet2 1.为A1命名为K 2.为A3:A250命名为XX 从A3贴上主索引,数据要连续中间不允许有空格 3.写公式=VLOOKUP(K,DATA,2,0) 有几个字段写几个,位置随您高兴摆 4.隐藏A栏 ************************************************************************************** Sub 打印() Application.ScreenUpdating = False '屏幕不更新 Dim c As Object '宣告c为对象,请准备空间 [xx].Select '选取变量范围 Set c = ActiveCell '设定c对象为作用单元格 Do Until IsEmpty(c.Value) '作Do循环直到无值时跳出 [k].Value = c.Value Set c = c.Offset(1, 0) '设定c往下进一格再取主索引值 Sheets(&Sheet2&).PrintPreview '工作表直接打印改PrintOut Loop End Sub另一回答：我是做人事管理的也遇到过你的问题,我用如下方法解决十分方便,而不用任何代码. 方法的原理是调整打印机的自定义纸张大小到恰好显示一个人的工资条的大小,请按如下： 如：我的excel工资表将项目内容放在第一、二行，行高为20.1，用a4纸横向打印 1、在页面设置中将上、下边距，页眉、页脚均设为零， 在页面设置--工作表---顶端标题行 中输入 $1:$2,即将放在 第 一、二行的项目内容设成每页标题行 打印方向为横向 2、、在文件----打印---属性---纸张----自定义中将纸张的 宽度=280 （单位：毫米） 长度=2970 （单位：毫米） 3、打印时可选1---200页，即可打印200人的工资条，一张a4可打10人 确定后预览，可调整下边距至每页显示一张工资条我的解决办法：我只用了一个公式: if(mod(row(),3)=0,&&,if(mod(row)(),3)=1,sheet1!a$1,index(sheet1!$a:$g,int((row()+4/3),cllolumn())))你试一下(解释：int((row()+4/3) 是这个意思：一个工资表，有列标题，接下来是工资记录。而我在此表基础上，加一个自动生 成的工资 条表， mod(row(),3)=0，在此表上用这个表示第三行保留空白行； if(mod(row)(),3)=1,sheet1!a$1，表示是第一行取标题列； index(sheet1!$a:$g,int((row()+4/3),column()）这是关键的地方：是指它不是第一行，也不三倍数的行，是记录 行的表示，你想第二行显示记录，则2+4/3=2 取工资 表的第二行记录；第五行显示记录，则5+4/3=3 取工资 表的第三行记录；第八行显示记录，则8+4/3=4 取工资 表的第四行记录；第十一行显示记录，则11+4/3=5 取工资 表的第五行记录；这个公式你可以根据具体情况变化：尤其是((row()+4/3),中的4这个数字，定制单元格数字显示格式定制单元格数字显示格式，先选择要定制的单元格或区域，》单击鼠标右键》单元格格式》选择‘数字’选项》选择‘自定义’》在“类型”中输入自定义的数字格式。如何输入自定义的数字格式：需要先知道自定义格式中那些常用符号的含意，具体可以先不选择‘自定义’，而选择其它已有分类观看‘示例’，以便得知符号的意义。比如：先选择‘百分比’然后马上选择‘自定义’，会发现‘类型’中出现‘0.00%’，这就是百分比的定义法，把它改成小数位3位的百分比显示法只要把‘0.00%’改成‘0.000%’就好了，把它改成红色的百分比显示法只要把‘0.00%’改成‘[红色]0.00%’就好了。关于数据引用的问题在一个工作簿中，假如A工作表中的单元格E8被B工作表中的某单元格引用，现在由于A工作表中插入了行，原来的E8现在可能是E28,结果造成B工作表引用数据错误，请问：如何可以使B工作表中的引用随着A表的变化也作相应的自动调整？&回答：利用“相对引用”来实现，“相对引用”是Excel中默认的引用方式例：在工作表Sheet1中Ｃ２单元格为５，Ｄ２单元格为６，在工作表Sheet2中Ｃ３单元格中输入“＝Sheet1!C2+Sheet1!D2”，如果把Ｃ２单元格剪切到Ｃ３，那么在工作表Sheet2中Ｃ３单元格中的公式就自动变为“＝Sheet1!C3+Sheet1!D2”如何使EXCEL应用程序锁定不让人打开请问我以下的操作应再如何修改成如密码输入错误则退出EXCEL.这是我编写在PERSONAL.XLS中的一个模块.代码如下,请各高手帮忙为小弟指点一二,不甚感激! Sub auto_Open() MsgBox &热列欢迎来海源,你吃饱了吗？& If Application.InputBox(&请输入操作权限密码:123&) = 123 Then Else '.....(在这一步中,我想退出EXCEL,但无法实现请高手指点一二) End If End Sub&解答：Private Sub Workbook_Open() MsgBox &热列欢迎来海源,你吃饱了吗？& If Application.InputBox(&请输入操作权限密码:123&) = 123 Then Exit Sub Else Application.Quit End If End Sub程香宙的修改：Sub auto_Open()MsgBox &程香宙欢迎你的到来&, vbQuestion, &联系电话：&If Application.InputBox(&请输入操作权限密码:&, &系统登陆&) = 123 ThenElseMsgBox &密码错误,请重输&, vbCritical + vbOKOnly, &你还有两次机会&If Application.InputBox(&请输入操作权限密码:&, &系统登陆&) = 123 ThenElseMsgBox &密码错误,再给你一次机会!&, vbCritical + vbOKOnly, &你还有一次机会&If Application.InputBox(&请输入操作权限密码:&) = 123 ThenElseMsgBox &你无权进入本系统!请向程香宙申请密码!&, vbCritical + vbOKOnly, &你没有机会啦!&Application.QuitEnd IfEnd IfEnd IfEnd Sub数组的运算法则有excel表如下： 姓名 成绩 /王娟 优 /永生 中 /闵生刚 优 /朱智锐 中 /胡强强 良 /金龙鳞 优 /张正梅 中 /汪欲生 良 /闵生刚 中 /王娟 优 /张正梅 优 /闵生刚 中 /永生 良 /王娟 良 /其中姓名在sheet1页的a列，成绩在c列。我想在sheet2页中建立一个表如下： 姓名 统计优数 /胡强强 /金龙鳞 /闵生刚 /汪欲生 /王娟 /永生 /张正梅 /朱智锐 /同样姓名在sheet1的a列，统计在c列，这里的姓名已经整理为没有重复的姓名。要统计出每人获得优的数目。请问用什么函数能解决。我用了if((sheet1!c2)=&优&,countif(sheet1!a:a,a2)),结果是统计的姓名数，而不是成绩数。如果能统计出来，哪么就是一个动态的当sheet1中数据变化时，sheet2中数据应到跟着变化。 有位朋友指导采用下面的式子把上面的问题解决了。这里假设最大记录数为100 =sum((sheet1!$a$2:$a$101=$a2)*(sheet1!$c$2:$c$101=&优&)*1) ，按Ctrl+Shift+Enter ，但是这是用到了数组运算，请问数组运算的规则是什么，看到许多地方都可以用数组解决，但不知其所以然。帮助文件中也没说运算规则。如上式中为什么用*号？谢谢解答：对于数组公式的含义 sum((sheet1!$a$2:$a$101=$a2)*(sheet1!$c$2:$c$101=&优&)*1) 我们来一部分，一部分的讲： 1、(sheet1!$a$2:$a$101=$a2) 表示用 sheet1!$a$2:$a$101 区域中的每一个单元格中的内容与 $a2 单元格的内容进行比较，如果相同结果为“True”，否则为“False”。 2、(sheet1!$c$2:$c$101=&优&) 表示用 sheet1!$c$2:$c$101 区域中的每一个单元格中的内容与 字符串&优&进行比较，如果相同结果为“True”，否则为“False”。 3、最后一部分乘以1。是强制Excel将“True”或“False”转换为数值“1”或“0”，以便sum函数可以求和。 4、至于第一部分和第二部分之间的乘号（*)的目的是，如果第一部分或者第二部分有一个的结果是“False”，那么Excel将其转换为数值“0”，相乘结果为零，表示不在求和范围内。替换数据请教各位如何用将一组数据，如：6550894， 9852547， 2656032， 7461136， 0505867， 5564892， 21077，我需要把数据中的数字1，3，5换为符号A表示，2，4，6换为符号B表示，依此类推将数据中的阿拉伯数字0~9分为几类用其它符号替换。解答：方法1。假设：B13值为9550894。在B14中输入=IF(ISERROR(FIND(MID($B$13,1,1),&135&)),IF(ISERROR(FIND(MID($B$13,1,1),&246&)),IF(ISERROR(FIND(MID($B$13,1,1),&79&)),IF(ISERROR(FIND(MID($B$13,1,1),&80&)),&&,&D&),&C&),&B&),&A&) 。 C14中MID()第二个参数为2，以此类推...最后在目标单元格中输入：=CONCATENATE(B14,C14,D14,E14,F14,G14,H14)方法2：表一: AB...
2ABABABCCCD =SUBSTITUTE(A4,A$1,A$2) 说明:先列一个替换表,如表一,在A4处填如数据,在B4处填如上述公式=SUBSTITUTE(A4,A$1,A$2),并向右拖动9个同样的公式,最后一个便是结果.在将该10个相同的公式向下拖,便得到其它的结果.好处:可以修改表一,产生变化. 方法3：你可以把全部数据拷贝到WORD中，再用替换命令，想怎么换就怎么换，然后在拷贝回来。几个技巧用“Ctrl+：”输入时间 ；用“Ctrl+；”输入日期 ；用“Ctrl+`”显示当前工作表的单元格引用情况（如果引用的话），再次按下“Ctrl+`”则回到正常的显示状态（别漏了那个点）；“Ctrl+1”：打开“单元格格式”对话框，按下ESC键关闭该对话框 ；“Ctrl+ -”：打开“删除”对话框，按下ESC键则关闭该对话框；热键ctrl+2：字体加粗或取消加粗； ctrl+3：字体加斜或取消加斜； ctrl+4：加下滑线或取消； ctrl+5：加删除线或取消； ctrl+9：隐藏当前行； ctrl+0：隐藏当前列；在Cell里，输入公式，比如 =trunc，按CTRL+SHIFT+A，出现函数参数说明；按CTRL+A，出现wizard 。快速填充：选择要填充的单元，输入公式或数值后，按CTRL+Enter。将图形与某个cell的数据联系在一起：a) 选择绘图菜单栏的任一图形 b) 在公式栏里，或按F2，输入到某个cell的联接，比如=A6 c) 回车。粘贴链接图片：a) 选择某区域(比如A2:C7) b)复制 c)按住 SHIFT，点选&编辑--&粘贴链接图片& 。对长公式进行错误查找：点击公式，按F9，出现出错的部分。ESC复原，CTRL+Z为undo。如何在两个工作表之间进行数据交换我有两个工作表，第一个表A列是姓名，B列是编号，第二个表A列也是姓名，但是顺序和第一个表的A列不一样，我想在第二个表的B列也加入编号&。解答：用VLOOKUP函数： =VLOOKUP(A2,Sheet1!A:B,2,FALSE)，依次向下拖动显示数值所在的单元格号假如有A列和B列两列数字，如何找出A列的数字在B列中所在的位置， 并在第三列显示单元格号。解答：假设数据在A1:B10，则C列公式为：=MATCH(B1,$A$1:$A$10,0)我想根据题意应该为：=MATCH(A1,$B$10,0)if&超过7层如何办将七层之外的IF语句，放在另外的单元格内来处理，例：C5=if(if,...,(if...),B5))),B5单元格就是存放七层之外的IF语句。依此类推，可以实现在数据库语言中CASE语句的功能。IF&函数的确有七层嵌套的限制。遇到七层嵌套还解决不了的问题，可以尝试用其它的函数组合和数组公式来解决；有时用&VBA&方案可以有很好的效果。这里给出一个解决IF函数嵌套超出范围的方法，可能比较容易使初学者看懂。其思路是：一个单元格做不了的事，分给两个或更多的单元格来做，文字内容是这样，函数内容也是这样。例子：假如&A1＝1，则&B1＝A；A1＝2，则&B1＝B&……&A1＝26，则&B1＝Z解决方法如下：B1&=&IF(A1=1,&A&,IF(A1=2,&B&,IF(A1=3,&C&,IF(A1=4,&D&,IF(A1=5,&E&,IF(A1=6,&F&,IF(A1=7,&G&,IF(A1=8,&H&,C1))))))))C1&=&IF(A1=9,&I&,IF(A1=10,&J&,IF(A1=11,&K&,IF(A1=12,&L&,IF(A1=13,&M&,IF(A1=14,&N&,IF(A1=15,&O&,IF(A1=16,&P&,D1))))))))D1&=&IF(A1=17,&Q&,IF(A1=18,&R&,IF(A1=19,&S&,IF(A1=20,&T&,IF(A1=21,&U&,IF(A1=22,&V&,IF(A1=23,&W&,IF(A1=24,&X&,E1))))))))E1&=&IF(A1=25,&Y&,IF(A1=26,&Z&,&超出范围&))根据情况，可以将&C、D、E&这些从事辅助运算的单元格放在其它任何地方一个单元格也可以实现=IF(A1=1,&A&,IF(A1=2,&B&,IF(A1=3,&C&,IF(A1=4,&D&,IF(A1=5,&E&,IF(A1=6,&F&,IF(A1=7,&G&,IF(A1=8,&H&,&&))))))))&IF(A1=9,&I&,IF(A1=10,&J&,IF(A1=11,&K&,IF(A1=12,&L&,IF(A1=13,&M&,IF(A1=14,&N&,IF(A1=15,&O&,IF(A1=16,&P&,&&))))))))&IF(A1=17,&Q&,IF(A1=18,&R&,IF(A1=19,&S&,IF(A1=20,&T&,IF(A1=21,&U&,IF(A1=22,&V&,IF(A1=23,&W&,IF(A1=24,&X&,&&))))))))&IF(A1=25,&Y&,IF(A1=26,&Z&,&&))(数组形式输入)。以一例：a1=1,2,3,4,5,6,7,8,9,10 b=if(a1=1,&一&,if(a1=2,&二&,if(a3=3，&三&,.......if(a1=9,&九&,if(a1=10,&十&)))))),if超过7层不起作用，我该如何办解答：1、b=if(a1&5,if(a1=6,&六&。。。。。。))，明白意思？就是截为两段再做判断，这样可以不超过7重。2、可以用自定义数字格式。也可以用=CHOOSE(A1+1,&一二三四五六七八九十&)问：实际上我的要求是现行高一成绩统计中:b=if(a1=&语文&,&语文&,if(a1=&数学&,&数学&,if(a1=&英语&,&英语&,if(a1=&物理&,&物理&,if(a1=&化学&,&化学&,if（a1=&历史&,&历史&,if(a1=&政治&,政治&,if(a1=&生物&,&生物“，if(a1=&地理&,&地理&)))))))),这样超过了7层。我不知如何处理。因为下面的公式要引用语、数、英、等。答：新建一表，取名Data，找一区域设置名称为SubjectTable：语文 Chinese英语 English..=vlookup(SubjectTable,a1,2,false)可以有65536个，够了吧。其实，稍加改进，理论上，可以有达到你硬盘空间的个数。或用if和or的组合可以解决15个。再举个例子：=IF(A16=&&,&&,IF(B16=&&,&样办尚未交&,IF(OR(B16=&内部检查中&,B16=&数据查询中&,B16=&数据查询中&),CONCATENATE(IF(B16=&内部检查中&,&品质检测中&,&&),IF(B16=&数据查询中&,&图纸未确认&,&&),IF(B16=&为不合格&,&需要修正&,&&)),CONCATENATE(IF(C16=&客户检查中&,&待客回复&,&&),IF(C16=&合格&,&待P/O生产&,&&),IF(C16=&取消&,&客户取消&,&&),IF(C16=&为客户设变中&,&客户设变中&,&&),IF(C16=&不合格&,&需要修正&,&&)))))一个单元格内格式问题如果我做了一个表某一列是表示重量的，数值很多在1--------------4之间的数不等。这些表示重量的数。如果我想次给他们加上单位，但要求是单位是&999999吨，之下&999是千克，其余的是克。如何办答：[&9999]###.00,&吨&;*,*.00&千克&怎样用函数求出一定范围内的数值的偶数的个数解答：1设你的数据区域为A1：A30 {=COUNT(IF(A1:A30/2/2=INT(A1:A30/2),A1:A30))} 如果你的数据区域内还包括空白格你不想计算在内的话， {=COUNT(IF(A1:A30/2/2=INT(A1:A30/2),A1:A30))-COUNTBLANK(A1:A30)}或：{=sum((even(a1:a30)=a1:a30)*1)}如何使某列的数据不重复我做了个宏，可惜在数据量大时（超过1000时）速度狂忙，各位帮我修改修改Sub 检查重复项()Dim i As IntegerDim j As Integernum = Selection.Cells.CountFor i = 1 To numFor j = i + 1 To numIf (Selection.Cells(i) = Selection.Cells(j)) ThenMsgBox Selection.Cells(i).ValueEnd IfNext jNext iMsgBox &检索完毕&End Sub假设数据在B列选中B列，[数据]-[数据有效性]-[自定义]在“公式”输入框中键入：=COUNTIF(B:B,B1)=1。请问如何能使随机数不重复我在30个单元格里使用了randbetween(1,500),随机抽取了1-500之间的任意数,但问题是这30个数中仍有机会出现重复请问如何才能使这些随机数不重复呢?答：1、勾选迭代计算，A1输入如下公式： =IF(COUNTIF($A$1:$E$6,A1)=1,A1,RANDBETWEEN(1,500))如果某格出现0值，点选旁边单元格拖一下即可。2、用上面的方法得到的随机数不会变化，如何做到想变就变？增加一个条件语句，即可达到此效果，公式如下： =IF(COUNTIF($A$1:$E$6,A1)=1,IF($G$1=1,RANDBETWEEN(1,500),A1),RANDBETWEEN(1,500)) G1为控制格，当在G1输入数字1，就开始变。变化后的数据有可能不惟一了，怎么办？把1清除即可！日期型编号想在单元格里输入1，产生0207121这样一个数字，02是2002年，07是7月份，12是12日，1是输入的数值答：如a1输入1，要在b1生成你要的数字，你可以在b1设公式=text(today(),&yymmdd&)&a1如何将数字改变为字符串答：=TEXT(A1,&@&)在Excel中如何自定义数字格式虽然Excel为用户提供了大量的数字格式，但还是有许多用户因为工作、学习方面的特殊要求，需要使用一些Excel未提供的数字格式，这时我们就需要利用Excel的自定义数字格式功能来帮助实现用户的这些特殊要求。一、在Excel中创建自定义数字格式的方法1、选择要设置格式的单元格或单元格区域。 2、单击“格式”菜单中的“单元格”命令，然后单击“数字”选项卡。 3、在“分类”列表中，单击“自定义”选项。 4、在“类型”框中，编辑数字格式代码以创建所需的格式。在Excel自定义数字格式使用如下的表达方式： 正数的格式 负数的格式 零的格式 文本的格式 #,##0.00 [Red]-#,##0.00 0.00 &TEXT&@ 在Excel自定义数字格式的格式代码中，用户最多可以指定四个节；每个节之间用分号进行分隔，这四个节顺序定义了格式中的正数、负数、零和文本。如果用户在表达方式中只指定两个节，则第一部分用于表示正数和零，第二部分用于表示负数。如果用户在表达方式中只指定了一个节，那么所有数字都会使用该格式。如果在表达方式中要跳过某一节，则对该节仅使用分号即可。二、自定义数字格式实例(一)自动添加文本在日常财务工作中，常常需要在金额数字后加单位“元”，这时就可以使用“0.00元”的自定义数字格式，当用户在单元格中录入数字后，Excel就会自动在数字后加上单位“元”。如果需要将单元格中录入的数字“32”自动转换成“高三十二班”格式，只要将单元格的数字格式定义为“高[DBNum1]G/通用格式班”即可。(二)在自定义数字格式中使用颜色要设置格式中某一部分的颜色，只要在该部分对应位置用方括号键入颜色名称或颜色编号即可。Excel中可以使用的颜色名称有[黑色]、[蓝色]、[青色]、[绿色]、[洋红]、[红色]、[白色]、[黄色]八种不同的颜色，此外Excel还可以使用[颜色X]的方式来设置颜色，其中X为1-56之间的数字，代表了56种不同的颜色。例如：当用户需要将单元格中的负数数字用蓝色来表示，只要使用“#,##0.00;[蓝色]-#,##0.00”自定义数字格式，用户在单元格中录入负数时，Excel就会将数字以蓝色显示。(三)在自定义数字格式中使用条件格式在Excel自定义数字格式中用户可以进行条件格式的设置。当单元格中数字满足指定的条件时，Excel可以自动将条件格式应用于单元格。Excel自定义数字格式中可以使用如下六种标准的比较运算符： 运算符 含义 = 等于 & 大于 & 小于 &= 大于等于 &= 小于等于 && 不等于在Excel中要想设置满足指定条件数字的格式，在自定义数字格式代码中必须加入带中括号的条件，条件由比较运算符和数值两部分组成。例如：在学生成绩工作表中，当我们想以红色字体显示大于等于90分的成绩，以蓝色字体显示小于60分的成绩时，其余的成绩则以黑色字体显示，这时只需将自定义数字格式设置为“[红色][&=90];[蓝色][&60];[黑色]”即可。值得注意的是，当你在以后需要继续使用刚才所创建的成绩条件自定义数字格式时，你会发现在“单元格格式”的“自定义”分类类型中找不到“[红色][&=90];[蓝色][&60];[黑色]”格式，这是因为Excel自动将你所创建的“[红色][&=90];[蓝色][&60]”格式修改成“[[红色][&=90]G/通用格式;[蓝色][&60]G/通用格式;[黑色]G/通用格式”，你只需选择此格式即可达到同样的使用效果。(四)隐藏单元格中的数值在Excel工作表中，有时为了表格的美观或者别的因素，我们希望将单元格中的数值隐藏起来，这时我们使用“;;;”(三个分号)的自定义数字格式就可达到此目的。这样单元格中的值只会在编辑栏出现，并且被隐藏单元格中的数值还不会被打印出来,但是该单元格中的数值可以被其它单元格正常引用。在单元格显示负数为红字后又紧跟汉字解答：1、这个使用宏可以解决，但单元格开始请不要带单位。单个单元格宏代码如下：Sub 宏1()'' 宏1 Macro' Dent 记录的宏 'Dim str1 As Stringstr1 = Str(ActiveCell.Value)If Val(str1) & 0 Thenstr1 = Abs(Val(str1)) & & 文字&ActiveCell.Value = str1ActiveCell.Font.Color = vbRedEnd If End Sub2、用单元格格式解决： #,##0.00;[红色]-#,##0.00&文字&检索问题在一个工作表中，有客户名称、收款日期等字段名及相应数据。现在想为了检验收款日期是否到期，要求在工作表的某一空白单元格中键入某一日期 ，则此单元格以下的单元格可以显示收款日期字段中所有在此日期前的日期清单，请问如何实现？并要求不使用筛选功能。解答： Sheet2!A1命名为X,键入日期Sheet1:客户名称、收款日期等字段名及相应数据插入名称定义：XX=OFFSET(Sheet1!$A$2,,,MATCH(X,Sheet1!$B$2:$B$6)XX即是您所需要之范围vba写在This WorkbookPrivate Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)On Error GoTo 1: Target.SelectRange(Target.Value).CopyActiveSheet.Paste Link:=FalseApplication.CutCopyMode = False1End Sub**********************************************************************************Sheet2任意储存格键入xx按ENTER[比较一下并没有比筛选功能快],反而复杂SHEET2随便贴张图键入公式=XX 微软到底对我们隐藏了多少NumberString&这个函数是否一直存在但没有解释？NumberString(,1)就像自定格式[DBNum1]一样，它还有2的选择。其实这些特别用途的函数是否中文板设计时特别隐藏。测试结果：NumberString(,1) ＝ 一十二亿三千四百五十六万七千八百九十NumberString(,2) ＝ 壹拾贰亿叁仟肆佰伍拾陆万柒仟捌佰玖拾NumberString(,3) ＝ 一二三四五六七八九○DateString()相信亦是一特别Lotus函数。DATESTRING(&23-Sep- 2002&) = 日DATESTRING(&23Sep2002&) = 日DATESTRING(&9/23/2002&) = 日DATESTRING(&9-23-2002&) = 日求一组数中第一个出现的正数单元格A1—G1中存放一组数，如何使A2的值等于这组数中第一个出现的正数（按A1—G1的顺序），若无正数则A2＝0.解答：=IF(A1&=0,IF(B1&=0,IF(C1&=0,IF(D1&=0,IF(E1&=0,IF(F1&=0,IF(G1&=0,,G1),F1),E1),D1),C1),B1),A1)或：{=IF(COUNTIF(A1:G1,&&0&)=0,0,INDIRECT(ADDRESS(1,SMALL(IF(A1:G1&0,COLUMN(A1:G1)),1))))}能否使表格不能打印解答：Private Sub Workbook_BeforePrint(Cancel As Boolean)Cancel = TrueEnd Sub(用法：打开Excel,按Alt+F11,调出VBE后,按Ctrl+r显示出工程资源管理器(默认此窗口应已显示),双击ThisWorkbook,在模块中粘入代码即可!要想打印你表,用截图软件即可.无最保险办法)。有无这样的函数A1为一定范围内的随机值，B1—B20为一组数，有无这样的函数来确定A2的值？ 当A1=1时，A2=B1 当A1=2时，A2=B2 当A1=3时，A2=B3 …………解答：=INDIRECT(ADDRESS(A1,2))(绝)能实现两栏数据中按特定条件进行比较并做出相应记号吗具体意思如下：有四栏数据。A栏 B栏 C栏 D栏 F栏 对A栏及C栏数据进行查找对比，如果发现存在A=C，且B=D，则在符合条件的F栏显示已找到，对于没有查到的的显示未找到。解答：如果是一一对应查找则f2=if(and(A2=C2,B2=D2),&OK&,&No&),复制.如果整体查找：=IF(AND(COUNTIF($C$2:$C$5,A2)&0,COUNTIF($D$2:$D$5,B2)&0),&找到&,&没有&)&如何对文本格式的数字进行筛选如80/24；73/56……解答：要对A列进行筛选，条件1:符号&/&左边的数字&=50;条件2:符号&/&右边的数字&=80,达到任一条件的即被选中。试试这个公式: B1=IF(OR(LEFT(A1,FIND(&/&,A1)-1)*1&=50,MID(A1,FIND(&/&,A1)+1,LEN(A1)-FIND(&/&,A1))*1&=80),A1,&&)我想再请教一个问题:在自动筛选中有&包含、不包含&之类的选项,这类选项在高级筛选中能否实现?提供以往一个函数公式,请你研究看是否有参考:={SUM((ISNUMBER(SEARCH(&广东&,$B$3:$B$13)))*($A$3:$A$13=&股份制&)*($C$3:$C$13))}这是对B列单位名称中包含&广东&并且A列企业类型为&股份制&的,按C列汇总.如何筛选出特定行一份工作表，有几万行数据，现在想每隔50行打印一行，如何进行筛选解答：插入一空列,输入=MOD(ROW(),50)并复制到全数据列,再用筛选法把有“0”的单元格选出.Word加启动密码 在Word模板中录制如下宏文件保存即可: Sub autoexec() Dim user user = InputBox(&请输入软件启动密码&) If user = &password& Then Else MsgBox (&非法用户,将退出本程序.Wu&) Application.Quit End If End Sub有关大小写的转换在EXCEL单元格中有的单元格是小写字母，有的是大小写混在一起现在我想全部转为大写、或全部转为小写，有哪些方法呢？利用upper()函数或还有LOWER。如：a1=aBcD，upper(a1)=ABCD在Excel中打造自己的“公式保护”菜单工作中经常用到Excel的计算功能，有时一张工作表中需要设置很多公式，为了防止误操作就将工作表保护起来，但是如果将含有公式的单元格保护，而其它单元格不锁定，设置时需要一个个单元格选定，很麻烦而且容易出错，就想到建立一个菜单项，将这项工作变成菜单 。有幸的是这一切Excel都能完成，具体操作如下： 先将工作表保护，不必输入密码。再录制一个宏。方法是：打开“工具”栏，单击“宏”-“录制新宏”；将其命名为“公式保护”，单击“保存在”的下拉箭头，将新宏保存到“个人宏工作簿”。单击“确定”录制开始。（注意此后的每一动作都将被录制，直至“停止录制”。） 将工作表取消保护； 选定a1单元格，输入=&测试&（注：黑体为实际输入内容，标点符号均为英文输入法状态,下同）；单击工作表左上角的方框选定整个工作表；单击“格式”-“单元格”-“保护”项，将“锁定”和“隐藏”前的方框里的对号去掉；单击“插入”-“名称”-“定义”，当前工作表名称输入：公式保护，引用位置输入：=get.cell(4,indirect(&rc&,false)), 单击“添加”后“确定”； 单击“格式”-“条件格式”，在“单元格数值”下拉框选定“公式”，后面的框内输入=公式保护 ，单击“格式…”，在图案标签内选浅绿色或者其它颜色“确定”，再“确定”；单击 “编辑”-“定位”-“定位条件…”，选定“公式”项“确定”再“确定”；重复步骤4，将“锁定”和“隐藏”前的方框里的对号选定； 选定a1单元格，取消其内容，并重复步骤4，取消a1的锁定和隐藏属性； 单击工具-保护-保护工作表，将工作表保护（也不必设密码）。再单击“工具”-“宏”-“停止录制”停止录制。再打开“工具”-“自定义”项，再“命令”标签栏内“类别”栏中找到“新菜单”并指定，在其右侧的命令框中的新菜单用鼠标按住拖到“工具栏”的“保护”项中的“保护工作表”下面放开，并单击右键将其命名为“公式保护”，将刚才录制名为“公式保护“的宏指定给它。至此，一个很有用的菜单项就作成了。 此后，只要你将鼠标移动到“工具”-“保护”-“公式保护”的位置，工作表将执行其所指定的宏，只要你工作表中输入了公式（以=开头），含有公式的单元格将自动变为浅绿色，提醒你和别人此处有公式，小心编辑，十分醒目。编辑完公式后再次运行该命令就可以此保护工作表并锁定公式，禁止改动。如何让EXCEL自动从头统计到当前单元格情况如下： C列要根据A列的内容来统计B列的数据，范围从A1：An，即当A列中An有数据时，Cn自动根据An的值，统计B1：Bn的数据。解答：=SUM(INDIRECT(&B1:B& & LARGE((A1:A65535&&&&)*(ROW(A1:A65535)),1)))，按Ctrl+Shift+Enter。请问想要取当前单元格的列号，用什么函数1、=CHAR(64+COLUMN())2、Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)If Selection.Columns.Column & 26 Thentt = Mid(ActiveCell.Address, 2, 2)Elsett = Mid(ActiveCell.Address, 2, 1)End IfMsgBox (tt)End Sub3、1的公式就变化一下：=IF(COLUMN()&26,CHAR(64+INT(COLUMN()/26)) & CHAR(64+MOD(COLUMN(),26)),CHAR(64+COLUMN()))SUMIF函数a1至A4是10,24,30,12.B1至B4是8,15,25,35.D1至D4是25,4,3,5.用SUMIF 第一参数选取A1:B4,第二参数是&20,第三参数选取D1:D4.它得出是7。它判断的是A1:A4 。我的要求是B1:B4 也跟着判断 , 也就要得出来得是12解答：{=SUM((A1:A4&20)*(B1:B4&20)*C1:C4)}怎么能快速的将两个单元格的内容互换1、Sub ChangVal()my1value = ActiveCell.ValueFor Each a In SelectionIf a.Address && ActiveCell.Address Thenmy2value = a.Valuea.Value = my1valueActiveCell.Value = my2valueEnd IfNext aEnd Sub2、用鼠标先选定单元格，点住单元格边框，并按住SHIFT键，然后托拽到隔壁单元格的后面一条边框处。你能看到被托拽部分会变成灰色的“工”字形，然后放手后，单元格就互换了。如何能到两个时间段的17:00-8:00小时数? 1.已知&E4&为(为文本格式﹐开始时间﹐意思为8月1日 下午15﹕00)﹐&G4&为(为文本格式﹐结束时间﹐意思为8月10日 上午9点) 问﹕如何能得到开始时间到结束时间（17:00-08:00）的总小时数? 2. 如何得到开始时间到结束时间的节假日时数?(如5.1﹐10.1﹐星期六﹐星期天)解答：方法1：=(DATE(YEAR(NOW()),MIDB(AF4,1,2),MIDB(AF4,3,2))-DATE(YEAR(NOW()),MIDB(E4,1,2),MIDB(E4,3,2))-1)*15+IF(MIDB(E4,5,2)+MIDB(E4,7,2)/60&=8,15-(MIDB(E4,5,2)+MIDB(E4,7,2)/60),IF(MIDB(E4,5,2)+MIDB(E4,7,2)/60&=17,24-(MIDB(E4,5,2)+MIDB(E4,7,2)/60),7))+IF(MIDB(AF4,5,2)+MIDB(AF4,7,2)/60&=8,MIDB(AF4,5,2)+MIDB(AF4,7,2)/60,IF(MIDB(AF4,5,2)+MIDB(AF4,7,2)/60&=17,MIDB(AF4,5,2)+MIDB(AF4,7,2)/60-9,8)) 方法2：networkdays 需要你提供一个节假日列表作为参数。我猜你不会喜欢手工输入这样一个表。以下公式功能更为强劲，它可以算出两个单元格（A2和C2）所储存的日期之间的周末天数，乘以小时数即可计算出你所说的节假日时数。但是，它无法计算国庆节等公众假期。 =IF(C2&A2,SUM(IF(WEEKDAY(C2-ROW(INDIRECT(&1:&& C2-A2)),2)&5,1,0)),SUM(IF(WEEKDAY(A2-ROW(INDIRECT(&1:&& A2-C2)),2)&5,1,0)))。这是一个数组公式，输入完成后按CTRL+SHIFT+ENTER结束。 方法3：用格式定义E4,G4为日期时间格式：****-**-** **:**。然后：(G4-E4)*24 即可得两时间内的小时数。如何在单元格返回工作表名称答：=RIGHT(CELL(&filename&),LEN(CELL(&filename&))-FIND(&]&,CELL(&filename&)))如何在输入数字的加减乘除按ENTE后能在另一单元格自动出现计算数值1、编了个宏: Sub aa() Cells(1, 1) = Mid(ActiveCell.Formula, 2, 13) End Sub 先在单元格里输入公式得出结果,选定得出结果的单元格运行宏就可以在A1出文本.&2、宏(测试通过)Sub aa() A = 2 '行' B = 4 '列 LINE1: If Cells(A, B) = && Then Exit Sub Else Cells(A, B + 1).Formula = &=& & Cells(A, B) A = A + 1 GoTo LINE1: End If End Sub有A1，B1，C1，D1四个单元格D1的值要随着Ａ１的变化而变化 Ａ１有三种变化，一、二、三；当Ａ１＝‘一’时，Ｄ１＝“ ”； Ａ１＝‘二’时，Ｄ１＝（Ｂ１＋Ｃ１）／３ ； Ａ１＝‘二’时，Ｄ１＝（Ｂ１＋Ｃ１）／６ 。以上可以通过ＩＦ来完成 。可我希望的是：当Ｂ１或Ｃ１为空时，不论Ａ１为什么Ｄ１都为空，这样做得到么？解答：1、=IF(OR(B1=&&,C1=&&),&&,IF(A1=&一&,&&,IF(A1=&二&,(B1+C1)/3,IF(A1=&三&,(B1+C1)/6,&&))))2、=IF(OR(B1=&&, C1=&&, A1=&一&), &&, IF(A1 = &二&, (B1+C1)/3, (B1+C1)/6))如果考虑 A1 没有数据的话：=IF(OR(B1=&&, C1=&&, A1=&一&,A1=&&), &&, IF(A1 = &二&, (B1+C1)/3, (B1+C1)/6))对A列不重复的数值计数我只能做到新建一列，B列，然后第一个单元格countif（$A$1:$A$100,A1)，然后拖动到全部新列。最后在新列下面用sumif(B1:B100,1) 谁有更好地方法。解答：1、{=SUM(IF($A$1:$A$100=&&,&&,1/(COUNTIF($A$1:$A$100,$A$1:$A$100))))}(又问：公式中的“1/(COUNTIF($A$1:$A$100,$A$1:$A$100))”像是一个倒数，怎么理解？答：用倒数是这个意思:如果只出现一次，数组中的相应项统计为1，其倒数为1，Sum统计计1。如果出现 N 次，其倒数为1/N，出现了N次，求和就是Nx1/N，最后Sum统计就只计1。)永恒的求和1、=SUM(OFFSET(A1,,,ROW()-ROW(A1)))可以对A列数值自动求和。2、=SUM(INDIRECT(&R2C:R[-1]C&,FALSE)) 3、=SUM(INDIRECT(&A2:A&&ROW()-1))坚持不用R1C1栏名列号表示法还有一个方法，不过又复杂了些。首先定义一个公式：COL=IF(COLUMN()&26,CHAR(INT((COLUMN()-1)/26)+64)&CHAR(IF(MOD(COLUMN(),26)=0,26,MOD(COLUMN(),26))+64),CHAR(COLUMN()+64))。后于欲求加总之储存格输入：=SUM(INDIRECT(COL&&1:&&COL&ROW()-1))。则此公式复制到任何一任皆可用，又不怕产生错误值。(注：COL=IF(COLUMN()&26,CHAR(MOD(COLUMN(),26)+64)&CHAR(INT(COLUMN()/26)+64),CHAR(COLUMN()+64))。暴露了一个为人不知的缺点，如果列数到了AA列以后就不行了，虽然可用ADDRESS()解决，比用CHAR()好多了，但公式还是太长，用在一个加法中实在不值)其实用ADDRESS更好，=SUM(INDIRECT(ADDRESS(1,COLUMN())&&:&&ADDRESS(ROW()-1,COLUMN())))，还是一句老话，为做一个加法不是太值，这只能是技术上的讨论。如何使用EXCEL进行动态跨表取数有两个文件，第一个文件有31张日报表，每天一个表单；第二个文件仅一个表单；如何在第二个文件中，输入1时由函数动态取出第一张表单数（如SHEET1），输入2时取（SHEET2）数，依次类推……。，如何设公式。在同一文件中可以用INDIRECT和ADDRESS组合，可是跨表好象不行，请各位指教一二！解答：前提是两个工作表都要打开：=INDIRECT(&[Book2]Sheet&&A1&&!$B$1&)如何使用對照表设一对照表如下：如何使用函数当输入。当a1=34 则a2显示&乙& b1=68 则b2显示&丁&/甲 22 33 44 66..../乙 26 34 43 62.... /丙 28 39 41 67.... /丁 27 31 49 68.... /戊 23 32 46 64.... /己 29 38 47 61.... /更 21 37 48 69.... /辛 24 36 42 63.... 解答：如A列输入的数字在表中都存在，把你的数据放在D到G列，甲乙丙丁戊己辛放在最后一列，即H列。在B列输入公式“=IF(A1=&&,&&,VLOOKUP(A1,INDIRECT(ADDRESS(1,INT(0.1*A1)+IF(A1&60,1,2))):INDIRECT(ADDRESS(8,8)),7-INT(0.1*A1)+IF(A1&60,1,0),FALSE))”。如甲乙丙丁戊己辛放在第一列，即列用公式“=IF(A1=&&,&&,INDEX(D:D,MATCH(A1,INDIRECT(ADDRESS(1,INT(0.1*A1)+IF(A1&60,2,3))):INDIRECT(ADDRESS(8,INT(0.1*A1)+IF(A1&60,2,3))),0)))”解答2：如果数据无规律，可用以下方法：如你的数据表在D到H列，在I列输入公式“=IF(ISERROR(MATCH(A$1,E1:H1,0))=TRUE,0,row())&并向下填充，在B1单元格输入公式“=IF(A1=&&,&&,INDEX(D:D,LARGE(I:I,1)))”解答3：我将解答2公式做了小修改(I列公式删除)，B1单元格输入公式：=IF(A1=&&,&&,INDEX($D:$D, IF(ISERROR(MATCH(A1,$E$1:$H$1,0))=TRUE,0,ROW($E$1:$H$1))+ IF(ISERROR(MATCH(A1,$E$2:$H$2,0))=TRUE,0,ROW($E$2:$H$2))+ IF(ISERROR(MATCH(A1,$E$3:$H$3,0))=TRUE,0,ROW($E$3:$H$3))+ IF(ISERROR(MATCH(A1,$E$4:$H$4,0))=TRUE,0,ROW($E$4:$H$4))+ IF(ISERROR(MATCH(A1,$E$5:$H$5,0))=TRUE,0,ROW($E$5:$H$5))+ IF(ISERROR(MATCH(A1,$E$6:$H$6,0))=TRUE,0,ROW($E$6:$H$6))+ IF(ISERROR(MATCH(A1,$E$7:$H$7,0))=TRUE,0,ROW($E$7:$H$7))+ IF(ISERROR(MATCH(A1,$E$8:$H$8,0))=TRUE,0,ROW($E$8:$H$8))))。解答4：在B1单元格输入公式：{=IF(COUNTIF($E$1:$G$8,A1)=0,&查无资料&,INDEX($D$1:$D$8,SUM(IF($E$1:$H$8=A1,ROW($E$1:$H$8)))))}又问：当数据区域有重复数据时，就得不到正确结果。因为，在这里你的SUM()返回的只是对一个数据求和。如果有重复数据，怎样才能得到正确结果呢？答：在B1单元格输入公式：=IF((COUNTIF($E$1:$H$8,$A$1)=0)+(COUNTIF($E$1:$H$8,$A$1)& ROW( )),&& ,INDEX($D$1:$D$8,SMALL(IF($E$1:$H$8=$A$1,ROW($E$1:$H$8)),ROW())))再往下拖曳，就可依序顯示了。真是快瘋了改了十幾次，有些莫名其妙，進來編輯看公式是完整的可是發表後又老是缺東缺西的，只好多加些空白或強迫分段處理，請使用者自行修改。或：如有重复数据,則顯示&数据重复&表示,代表要修改数据。{=IF(COUNTIF($E$1:$H$8,A1)=0,&查無資料&,IF(COUNTIF($E$1:$H$8,A1)&1,&資料重複&,INDEX($D$1:$D$8,SUM(IF($E$1:$H$8=A1,ROW($E$1:$H$8))))))}如何在单元格返回工作表名称解答：=RIGHT(CELL(&filename&),LEN(CELL(&filename&))-FIND(&]&,CELL(&filename&)))何在一列数据中统计限定范围的数据请教各位：现A列有数字(包括绝对值为0的数字)、文本、空格,要统计数值为14到35(包括14与35)的个数；还要统计数值&35并&14的个数(不包括0),分别该用什么函数?&答：&13 and &36 公式=COUNTIF(A:A,&&13&)-COUNTIF(A:A,&&35&)&(&35 or &14) and && 0 公式=COUNTIF(A:A,&&35&)+COUNTIF(A:A,&&14&)-COUNTIF(A:A,&=0&)
平凡的水果世界，平凡中的不平凡。 今朝看水果是水果 ，看水果还是水果 ，看水果已不是水果。这境界，谁人可比？在不平凡的水果世界里，仁者见仁，智者见智。
正月是农历新年的开始，人们往往将它看作是新的一年年运好坏的兆示期。所以，过年的时候“禁忌”特别多。当然，各个地方的风俗习惯不一样，过年的禁忌也是不一样的。
庞凤山情感处方
请注意使用文明用语
画报点击数0
文章点击数0}
我要回帖
更多关于 a1a2a3 的文章
- ·o为正多边形面积A1A2A3......A...
- ·A2A9 B1A8 C6A8 B2B6A3C6 A1A8A9C6B5……
- ·EXCEL宏编写循环，A1,A2,A3需要转置到B2,C2,D2，循环2000次，求大神相助，具体如下：
- ·Ex表A1+1=设a1,a2,a32+1=A3,A3+1=A4.......
- ·A1=123,A2=2,求公式
- ·=IF(AND(A3>A2,A2>A1,b4+1>a3),1、怎么修改
- ·excel中A1、A2、A3都是优、良、中、及格里的任意一个，三个优是10分，两优一个良是9.5，如何用函数表达？
- ·EXCEL问题，如果A1=A2，A3则自动填充红色（或其他颜色）
- ·在A列中a1a2a3a4题型中输入任意三个数，如何让三个数自动显示大中小
更多推荐
- ·苹果手机和ipad同步怎么取消时登录一个微信吗？
- ·ipad怎么和苹果手机和ipad同步怎么取消同时登录微信。
- ·这个修改app图标和名字是什么app，急急急
- ·本人工程项目经理，最近了解到一款束隆数智的工程项目管理软件哪个好用，请问大家这款软件怎么样？
- ·这个是什么应用app的图标，手机app红点通知怎么去除上部通知栏跳出来的？
- ·为什么重装系统后LOL死机玩LOL会卡？
- ·求一个可用的sketch up8.0pro可以用的sketch渲染插件件，谢谢，也可以留下下载链接。
- ·艳姆ova达酷天天热播网下载
- ·iuc phonee如何把uc下载的图片移到手机上
- ·谁能告诉我北辽忧国忧民的诗句两句出名的诗我急需
- ·我建的群2微码显示过期怎么回事
- ·linux5搭建dns解析服务器服务器出现错误，如图。如果不知道错误咋解决的给你能用的步骤也行。
- ·百度网盘都能干啥知道怎么采纳问题呢？谢谢了啊
- ·我从14就开始射精了，射四年有时咕咚计步 两天累计一次有时候一天三次累计600多次 昨天打过一次， 请问以后的
- ·百度知道提问怎么删除问
- ·天涯明月刀fgo100天连续登录奖励励
- ·北京化工大学怎样提高基点
- ·360一键重装系统统一直闪屏什么原因
- ·三星note4升级安卓5.0后智能kindle休眠壳影响升级失效
- ·08年生产豪欧表原理驾驶室怎么维修
- ·EXCEL宏编写循环，A1,A2,A3需要转置到B2,C2,D2，循环2000次，求大神相助，具体如下：
- ·徐娜撒打冠军少林塔沟武校学费
- ·条筒万108张麻将普通河北省麻将机改装程序序机多少钱
- ·冠迪greatfamily是什么品牌kid是哪个国家品牌
- ·美洲杯半决友谊赛阿根廷巴拉圭迎战巴拉圭，怎么看这场比赛
- ·20152016美洲杯阿根廷阵容半决赛阿根廷迎战巴西，哪里买门票
- ·《篮球传球四种窍门开户》有窍门吗？
- ·阿根廷对巴拉圭VS巴拉圭，专家如何分析的，都比较看好什么？
- ·睡觉醒后 上腹部正中间疼痛肌肉 和胃酸痛 是什么情况 有危害吗..
- ·国外回来cku认证的犬舍会出假狗吗如何转会cku
- ·2015年6月27晚上曼海姆乐派对格罗萨斯帕赫比分
- ·巴西vs阿根廷前瞻vs巴西您觉得谁有更有希望？
- ·速度与激情东京漂移是第几部哪几部有日本车手赛车
- ·花纹板3.75x1500/6000镀锌板重量计算公式怎么算
- ·将双臂张开大概多长往身体两侧张开这个动作怎么做有图吗
- ·联想20156是什么型号月27女足世界杯积分榜
