如何将一个工作簿中的一个Sheet隐藏

答：1、选“格式”---“工作表”----“隐藏” 2、使用VBA这样隐藏后在使用工作表保护。

Alt+F11----Ctrl+G----出现立即执行窗口，在此窗口内执行 Sheet1.Visible = xlSheetVeryHidden

这样隐藏后sheet在格式---工作表----取消隐藏是看不见的。 问：方法2更好哦，如何恢复呢？ 答：sheet1.Visible =xlSheetVisible

工具菜单与视图中的工具栏不同

屏蔽工具菜单宏 sub notool()

MenuBars(xlWorksheet).Menus(\工具\end sub 解除屏蔽 sub yestool()

MenuBars(xlWorksheet).reset end sub

Alt+F11 进入VBA 编辑、插入模块、将上面宏复制到模块、运行宏。OK

查找并填写符合条件的单元格内容

我在工作中需快速复制每行多个数据（单元格）中最小值所对应的“标题名”，如E6是C6：Y6中的最小值，所对应的标题是E5单元格“某某公司”，要将其（某某公司）复制到B6单元格中，以此类推的复制很多很多行的内容。如果是手工一个一个查找与复制，实在是太慢太笨了，能否使用一个简单的公式计算呢？ 答：B6单元格\

填写空白行

我有个同事在一张空白表依次输入数据，为了省事她把和上一格内容相同的的省略不输，输了近200行。后来又觉得不够正式，想把空白的地方补上。她来问我怎么办好。当然依次填充也行，但我觉得烦（如果有2000行怎么办呵呵）我想了一个不是办法的办法：在A列和B列旁各插入一列，现在就有ABCDE列，我在B2中复制了A2中的内容，然后在B3中输入公式：IF(A3=0,B2,A3),然后往上往下复制公式。这样就填满了。如法炮制D列后隐藏AB列感觉就可以了。可是也烦啊，谁有更好的办法？ 答：1、Sub feifjeifjeifjeifjeifjiefjiejfiejf()

For i = 2 To ActiveSheet.Range(\If IsEmpty(Cells(i, 1)) Then

Cells(i, 1).FormulaR1C1 = Cells(i - 1, 1).Value End If Next End Sub

2、筛选出空白行，输入公式=INDIRECT(\，填充

37

制订下月计划并显示为中文

我在五月份做六月份的计划，为减少工作量和更改的麻烦，我做模板并使用了公式=\计划期：\年\月\，结果如A1所示 计划期：2002年6月 （现在的系统日期是2002年5月）。 如果我想自动得到如A2中的结果 计划期：二○○年六月 ，请问要如何做才行，我设置了单元格的日期格式还是不行。

解答：1、先设置单元格格式为\二○○二年六月\那种类型，然后用如下公式：=DATE(YEAR(NOW()),(MONTH(NOW())+1),20)就可以了。

2、使用这个函数吧！ =EDATE(NOW(),1)。单元格格式应设置为：日期----一九九七年三月。

3、设置单元格格式为：[DBNum1]\计划期：\年\月\，然后直接输入日期值(如2002/11)即可。 输入公式也可以。如=today()+30，可以得到下个月的月份。

&的用法

有E44单元格，我希望 总计：=SUM(E45:E49) 就是想让它经过自动求和后在一个单元格内显示 总计：120 。 解答：有多种方法实现，详细如下： 1、=\总计：\

2、把E44格式设为\总计:\总计:\总计:\

3、将E44单元格格式自定义为 \总计：\即可,方便对E44的引用计算 4、=CONCATENATE(\合计：\

有5行数据在每行上面个插入1行

解答：1、在最左边插入一列，然后输入1、2、3、4、5、1、2、3、4、5，并以此列进行排序，在第一行上面再插入一行，删除刚刚插入的列。

2、使用Ctrl+鼠标一行一行选定，然后插入行。 3、sub 插入行（） for i=1 to 6

if cells(i,1).value <> Cells(i + 1, 1) And Cells(i, 1) <> \Rows(i + 1).Insert end if next i end sub

可以检查一张表里是否有漏重的数字吗

答：漏值：{=IF(SUM((R1C1:R10C4=\有漏值\无漏值\重复值：{=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=\有漏值\无漏值\注意：这两个公式均为数组，输入时应同时按Ctrl+Shift+Enter。

38

怎样将单元格中的公式转换为数值

解答：选中公式的一部分，按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

C$7,0),0))}

用数组公式：

{=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:$

A1单元格为出生日期，可用=DATEDIF(A1,NOW(),\计算其年龄

这个公式是什么意思？K7=if(AND(R7>3000, Q7>0.5), \

意思是：如果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,\

关于条件求和问题！

有A，B，C，三列数据，如果A列符合要求，求B1*C1+B2*C2+......?

答：使用数组公式： {=SUM((R2C1:R13C1=\

请教关于条件乖积的求和问题

A列为部门名称，B列为姓名，C列为日工资额(如20.00)，D列为月出勤天数，我想在另一汇总表中汇总出各部门员工月工资总额(即：相应部门对应的C*D之和)。请问如何解决？ 解答：1、=SUM((A4:A10=\甲部门\

假设你的a列存放部门名称，你的b列存放员工姓名，C列存放日工资，D列存放天数。 计算“甲部门”的工资总额。

注意，这是数组公式，输入完毕后按ctrl+shift+回车 问：我试着把区域引用改为整列，出现错误，请指点!

=SUM((date!A:A=\甲部门\

39

答：经试验，不能用整列方式，

你可以适当的调整一个比较大的区域如a2:a100 a1为标题行

因为如果参与计算的e列和f列区域出现文本，也会发生错误。一定要把计算区域的标题行去掉，并且保证不再数值区域出现文本。

=SUM((date!A2:A100=\甲部门\ 这个公式没有错误

文件修复

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，下载地址http://download.sina.com.cn。软件安装后，可以自动将Excel的修复程序加在Excel应用程序中，在“文件”菜单下多出一项“Recovery”选项，若有损坏的文件，可以用该选项进行修复。另一个下载地http://www.skycn.com/soft/7432.html 使用方法是： 1、打开Excel；

2、单击“文件”菜单下的“Recover”选项，Excel Recovery对话框将打开 3、指定要修复的Excel文件，然后按[Recover]按钮； 4、自动修复；

5、另存为一个新的文件名，即可完成文件的修复工作。

注意：该演示版本只能修复普通文件，不能修复带Visual Basic代码、图表以及包含口令的Excel文件，如果需要修复这些文件，请进行注册。

另外要提醒大家的是：保存在软盘中的文件极易损坏，受损后可用以上方法修复，但如果损坏的文件位于磁盘0磁道时，就必须先修复软盘，再用上述方法修复Excel文件。 另外，考虑到未注册版本的使用限制，我找到如下破解页面，你自己再研究研究 Results 4 of about ExcelRecovery

URL: http://www.cracks.am/cracks/e4.html ? ExcelRecovery v3.0 ? ExcelRecovery v2.2

URL: http://www.thecrack.net:8080/db/list.php... ? 2064. ExcelRecovery 2.2 12 Kb ? 2065. ExcelRecovery 2.2.1 12 Kb

? 2066. ExcelRecovery v3.0 (SirCrack) 12 Kb

40