大家来爆料：我见过的最牛的Excel用法！

其实我也是刚刚才用了2年Excle的菜鸟!

有些功能还不是很熟!

不国我觉得我已经进步很快了,出了函数方面要在努力努力就好了

所以需要大家多多帮忙,多发出一些可以解决及简单的问题!谢谢!

公司三千人马,来一人力部新领导,某日检查工作,曰:明起日报过寿者名单.

遂调两名美女炳竹夜赶,按身份证号手工一一操作,然,仍未能完成,领导甚怒,宽限一日,不然奖金危矣.

神啊!怎耐天不绝我,网上觅得此地.乃一MID就搞掂........

后话:领导又视之:美女甚清闲,你一个足矣.

古人云:有失必有得焉!

好厉害啊．

2000年的时候，刚参加工作不久，我是干付款的，而且是外企，付外汇，一笔付款要三张银行单据，而且是电子制造业，供应商特多，公司原来是用打字机（不是打印机）打印单据，容易出错不说，效率还特低。

干了一段时间受不了了，就想偷懒，试着用EXCEL97做一个打印模板，但是在中文和英文大写这里碰到了麻烦，经过漫长的研究（大概三个月吧，时间比较长，一是因为刚学EXCEL，二是因为用工作空闲时间做的），终于完工：

中文大写：=IF(W!F10=0,"",IF(W!E10="USD",CONCATENATE("美元",IF(ISNUMBER(W!H7),VLOOKUP(W!H7,D!A13:B22,2),""),IF(AND(W!I7>=1,W!I7<=9),VLOOKUP(W!I7,D!D1:E11,2),IF(AND(W!H7>=1,W!H7<=9,W!J7>=1,W!J7<=9),"零","")),IF(AND(W!J7>=1,W!J7<=9),VLOOKUP(W!J7,D!G1:H11,2),IF(SUM(J)=0,"万",IF(AND(SUM(J)>0,ISNUMBER(W!J7)),"万零",""))),IF(AND(W!K7>=1,W!K7<=9),VLOOKUP(W!K7,D!D13:E22,2),IF(AND(SUM(K)>0,W!J7>=1,W!J7<=9),"零","")),IF(AND(W!L7>=1,W!L7<=9),VLOOKUP(W!L7,D!A13:B22,2),IF(AND(W!K7>=1,W!K7<=9,SUM(F)>0),"零","")),IF(AND(W!N7>=1,W!N7<=9),VLOOKUP(W!N7,D!D1:E11,2),IF(AND(W!L7>=1,W!L7<=9,W!O7>=1,W!O7<=9),"零","")),IF(ISNUMBER(W!O7),VLOOKUP(W!O7,D!J13:K22,2),""),IF(SUM(I)=0,"整",""),IF(AND(W!P7=0,W!Q7>0),"零",""),IF(SUM(I)=0,"",VLOOKUP(W!P7,D!G13:H22,2)),IF(W!E10="USD",VLOOKUP(W!Q7,D!J1:K11,2),"")),""))

英文大写：=IF(OR(W!E10="RMB",W!F10=0),"",CONCATENATE("SAY ",W!E10," ",IF(ISNUMBER(W!H7),VLOOKUP(W!H7,D!M1:N11,2),""),IF(ISNUMBER(W!H7),"MILLION ",""),IF(ISNUMBER(W!I7),VLOOKUP(W!I7,D!M1:N11,2),""),IF(W!I7=0,"",IF(ISNUMBER(W!I7),"HUNDRED ","")),IF(AND(ISNUMBER(W!I7),SUM(A)>0),"AND ",""),IF(D!N14=0,"",IF(D!N14<10,VLOOKUP(W!K7,D!M1:N11,2),IF(D!N14<20,VLOOKUP(W!K7,D!P1:Q11,2),VLOOKUP(W!J7,D!P13:Q21,2)))),IF(D!N14>19,VLOOKUP(W!K7,D!M1:N11,2),""),IF(SUM(B)>0,"THOUSAND ",""),IF(ISNUMBER(W!L7),VLOOKUP(W!L7,D!M1:N11,2),""),IF(W!L7=0,"",IF(ISNUMBER(W!L7),"HUNDRED ","")),IF(AND(ISNUMBER(W!L7),SUM(F)>0),"AND ",""),IF(D!N15=0,"",IF(D!N15<10,VLOOKUP(W!O7,D!M1:N11,2),IF(D!N15<20,VLOOKUP(W!O7,D!P1:Q11,2),VLOOKUP(W!N7,D!P13:Q21,2)))),IF(D!N15>19,VLOOKUP(W!O7,D!M1:N11,2),""),IF(SUM(I)>0,"AND CENTS ","ONLY"),IF(D!N16=0,"",IF(D!N16<10,VLOOKUP(W!Q7,D!M1:N11,2),IF(D!N16<20,VLOOKUP(W!Q7,D!P1:Q11,2),VLOOKUP(W!P7,D!P13:Q21,2)))),IF(D!N16>19,VLOOKUP(W!Q7,D!M1:N11,2),""),IF(D!N16>0,"ONLY","")))

现在自己看着都害怕，像一堆乱码。

虽然EH是在1999年11月就成立了，我也是这个时候参加工作，但当时没条件上网，后来上了EH才知道原来有更好的解决方法。

RUcLlrho.rar (15.79 KB, 下载次数: 299)

公司三千人马,来一人力部新领导,某日检查工作,曰:明起日报过寿者名单.

遂调两名美女炳竹夜赶,按身份证号手工一一操作,然,仍未能完成,领导甚怒,宽限一日,不然奖金危矣.

神啊!怎耐天不绝我,网上觅得此地.乃一MID就搞掂........

后话:领导又视之:美女甚清闲,你一个足矣.

古人云:有失必有得焉!

    赞同观点，看见别人用EXCELL辛苦的输入和用最笨的方法计算，实在不忍，但又不想让他因清闲而丢饭碗，还是让他那么去做吧，小不忍则乱大谋。

我也来一个：

Sub 插入分页符()

   Cells.Find(What:="分页", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
        .Activate
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
End Sub
Sub 循环插入分页符()AAA = Application.WorksheetFunction.CountIf(Sheet5.Range("V4:V2500"), "分页")
  Dim i As Long
  Dim times As Long
  times = AAA
   For i = 1 To times
Call 插入分页符

  Next i
End Sub

上面是一段插入分页符的宏代码，我在“家”中找到的，正是我所需的，就粘来用，但不知怎么搞的，弄来弄去都不行，只好又把它放回“家”里，向各位高手请教，以下是oobird版主的回复：

Sub 循环插入分页符()

AAA = Application.WorksheetFunction.CountIf(Sheet5.Range("V4:V2500"), "分页")
这是分开的两行，不能合并在一行的。

原来，我在复制——粘贴的时候，把两行并成了一行[em06][em04]

好在这个老师输入的格式比较规范,还有救.你可以选中该列,再选择"数据"中的"分列"功能,选择"分隔符号",下一步后,选中"空格",再下一步,就可以将姓名和成绩分开了.这样一来,就可以用函数做统计了.

    我是做财务统计，这些基础工作特别烦琐，每个月车间的产量统计，每个月一张张不同产品的生产卡要输入到电脑里，然后要统计每种产品的本月产量，以前 见过别人用筛选的方法，傻傻的将每种产品筛选出来复制到另外一张表格，一天突发奇想，能不能在输完表格后，每种产品产量自动出现在表格里，于是呼，发现了神奇的VLOOKUP和INDEX+SMALL取不重复值用法，现在我的表格风靡了整个部门。

我刚到公司的时候，主管会计（35岁左右）看我计算器玩不好，悄悄地给我一个计算器让我回家练习，我说用EXCEL就行，她说EXCEL解决不了小数精度的问题。他每次都是在计算器上先算并按保留的位数输入到表格中。计算器、笔记本电脑永远在一个包里面