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

zhangshiyun

真有意思 是个好主意 既娱乐 又学习

六指书生

原帖由 huaich 于 2008-12-26 17:12 发表
最近一个同事说,她有一个搞统计的朋友,有一张3万左右行的表格,有一半左右用红色字体的行要删除,她用一行一行来寻找,再删除,她说不知要花多少时间能搞好.我花了几分钟时间解决了,还请我吃饭呢

这个是怎么处理的？望不吝赐教！

六指书生

原帖由 hyxqd 于 2009-1-1 14:24 发表
我见过一个搞车队运送管理的人员，她的工作就是记录每一辆车每天白班和夜班的车数，(只有两辆车A、B),她的方法是，把每一辆车每天白班、夜班的以：2008-1-1A白.XLS  2008-1-1B白.XLS   2008-1-1A夜.XLS  2008-1-1B夜 ...

这个还是有办法解决的，在运行中输入 CMD，在DOS模式下进入文件所在的目录，使用命令 DIR >A.TXT，在excel中打开 A.TXT，然后分列处理一下，后面统计的事就好办了。

[ 本帖最后由 六指书生 于 2009-8-12 00:07 编辑 ]

夜行

原帖由 六指书生 于 2009-8-10 21:10 发表

这个是怎么处理的？望不吝赐教！

For i = 1 To [a65536].End(3).Row
    If Cells(i, 1).Font.ColorIndex = 3 Then
        Rows(i & ":" & i).Delete
        i = i - 1
    End If
Next

六指书生

原帖由 kepeng100 于 2009-7-12 22:11 发表
问题: 如何隔一行插入一个空行？
答案: 可以不用宏。 按以下步骤： 比如有10行数据，在A列插入一个辅助列，填入1、2、3。。。一直填到10，在A11单元格中填入1.5 ，A12填入2.5 ，A13填入3.5 。。。一直到A19 填入9 ...

在辅助列从第一条记录开始输入奇数1、3、5……直到最后一条记录，在接下来的空白行输入偶数2、4、6…………，最后按辅助列升序排列即可。

[ 本帖最后由 六指书生 于 2009-8-12 06:30 编辑 ]

六指书生

非常感谢，学习了！

六指书生

花了几天时间，终于把这137页都看完了，很多都是我曾经历过的，在看的过程中又学到了新的知识，感觉真好。

qinzhengxia2008

各位辛苦了

hg585946

Function dx(m)
dx=replace(application.Text(round(M+0.00000001,2),"[dbnum2]"),".","元")-
dx = IIf(left(Right(dx.3),1)="元",Left(dx.len(dx)-1)-&"角"&,Right(dx,1)&"分",IIf(left(right(dx,2),1)="元",dz&-"角整",IIf(dx="零","",dx&"元整")))-
dx = Relace(Relace(Relace(Relace(dx, "零元零角", ""), "零元", ""), -"零角", "零"), "-", "负")
End Function
这里边代码哪里有问题呀

0519

看了这些东西，才觉得Excel真的是不可缺少的呀。