Excel word ppt office使用技巧大全(DOC格式)-第57部分
按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
分：K1=IF（A1》=0。01；RIGHTB（A1*100；1）；0）
（编者注：公式中最后一个 0 应改为〃〃）
排列问题
已知 1，2，3，4 共 4 个数字符号构成的 4 位数的全排列有 256 个，如：1234，2341，3245 等
等，现在我需要将这 256 个数字全部列出，如果用手写笔算的话既麻烦又容易出错，不知可否
用 Excel 来解决这个问题？
319
…………………………………………………………Page 320……………………………………………………………
解 答 ： 在 单 元 格 输 入 公 式
“=1111＋1000*INT（（ROW（）…1）/64）＋100*MOD（INT（（ROW（）…1）/16）；4）＋10*MOD（INT（（ROW（）…1）/
4）；4）＋MOD（ROW（）…1；4）”拖放到A256。
在条件语句中如何实现符合某个时期的条件的记录进行统计
比如有 1…12 月份的记录单；需要实现对每个月里些数据的统计汇总/（格式如何？）
解答：以下公式；A 列为日期列；B 列为数据；要求计算 1 月份的累计：
=SUM（IF（MONTH（A：A）=1；B：B；0））
此为数组公式；在输完公式后；不要 ENTER；而要 CTRL＋SHIFT＋ENTER。
行改列（不是转置问题）
1。 原内容为行（每行 5 列内容共几千行）：
列 1 列 2 列 3 列 4 列 5
行 1 1 2 3 4 5 /行 2 1 2 3 4 5 /行 3 1 2 3 4 5 /以下类同〃 /〃
2。 改为行排列（每 12 行 5 列内容共 12 组，排为一行）
列 1 列 2 列 3 列 4 列 5 列 6 列 7 列 8 列 9 列 10 〃〃（60列）
原 1…12 行 1 2 3 4 5 1 2 3 4 5 〃〃（60列） /原 13…24 行 1 2 3 4 5 1 2 3 4 5 〃〃（60
列） /原 25…36 行 1 2 3 4 5 1 2 3 4 5 〃〃（60列） /以下类推 〃
本人不会编写宏，让您见笑曾费劲手工移动录制了一个取 2400 行（每行 5 列内容）改列的宏。
因原有工作表行不断增加，经常需要行改列作其它用途，录制的宏不能满足需要。烦请大家帮
助写一自动循环取 12 行 5 列内容排列为一行的宏。
规律：
1。 1…12 行 1…5 列内容排在第 1 行（第一行 1…5 列、第二行 1…5 列、类推，完成为 60 列）
2。 13…24 行 1…5 列内容排在第 2 行（第 13 行 1…5 列、第 14 行 1…5 列、类推）
3。 25…36 行 1…5 列内容排在第 3 行（第 25 行 1…5 列、第 26 行 1…5 列、类推）
4。 以下类推 〃
解答：Sub 转换 （）
Dim numcol As Integer
Dim numrow As Long
Dim i As Long
Dim x As Integer
Dim numperrow As Integer
numperrow = InputBox（〃请输入每行要填的数据行的数目：〃）
Range（〃数据〃）。Select
numrow = Selection。Rows。Count '数据区的行数
numcol = Selection。Columns。Count '数据区的列数
x = numperrow * numcol
Range（〃a1〃）。Select
For i = 1 To numrow '以数据的每一行为单位进行剪切
Range（〃数据〃）。Rows（i）。Cut
ActiveSheet。Paste
Selection。Offset（； numcol）。Select
If （i Mod numperrow） Then '判断是否要换行
320
…………………………………………………………Page 321……………………………………………………………
Else： Selection。Offset（1； …x）。Select
End If
Next i
End Sub
'本程序需要把要变换的数据命名为〃数据〃（数据区的列数可以任意；不一定是 5）方法：选中该
区域；在名称框内输入〃数据〃即可；然后按程序要求输入每行要填的数据行的数目 （如本例中的
12）
如何给自动筛选中的自定义指定快捷键
解答：Sub 自动筛选（）
On Error GoTo xx
Selection。AutoFilter = True
xx：
End Sub
汇总问题
本人有以下一个问题需要解决，请诸位大虾指点迷津。
如下表：
A B C
1 50 采购 （采购汇总） / 2 60 工程 （工程汇总） / 3 80 工资
（工资汇总） / 4 100 税 （税汇总） / 5 70 采购 / 6 50 工资
/ 7 60 工程 /。 。 。 /请问：C1、C2、C3、C4 中的公式如何设置？
解答：方法 1：如下表：
A B C
1 50 采购 =countif（a1：a7；〃采购〃） / 2 60 工程 =countif（a1：a7；〃工
程 〃） / 3 80 工 资 =countif（a1：a7；〃 工 资 〃） / 4 100 税
=countif（a1：a7；〃税〃） / 5 70 采购 / 6 50 工资 / 7 60 工程
/ 。 。 。
方法 2：用如下方法才对：
A B C
1 50 采购 =SUMIF（B1：B7；B1；A1：A7）
2 60 工 程 =SUMIF（B1：B7；B2；A1：A7） / 3 80 工 资
=SUMIF（B1：B7；B3；A1：A7） / 4 100 税 =SUMIF（B1：B7；B4；A1：A7） / 5 70 采购
/ 6 50 工资 / 7 60 工程
方法 3：由于Ｂ栏属于数据表的一部分，可能会随时改变，故此最好把采购等项目名称抄到
另外一个地方（Ｃ栏）。
A B C D
1 50 采购 采购 =SUMIF（B1：B7；C1；A1：A7） / 2 60 工程 工程
=SUMIF（B1：B7；C2；A1：A7） / 3 80 工资 工资 =SUMIF（B1：B7；C3；A1：A7）
/ 4 100 税 税 =SUMIF（B1：B7；C4；A1：A7） / 5 70 采购 / 6
50 工资 / 7 60 工程 /还有，记着要适当地使用绝对参照地址 （Absolute
referencing）。
方法 4：
321
…………………………………………………………Page 322……………………………………………………………
A B C D
1 50 采购 采购 =SUMIF（B：B；C1；A：A） / 2 60 工程 工程
=SUMIF（B：B；C2；A：A） / 3 80 工资 工资 =SUMIF（B：B；C3；A：A） / 4 100 税
税 =SUMIF（B：B；C4；A1：A） / 5 70 采购 / 6 50 工资 / 7 60
工
统计包含某个字符的个数
我想编的公式是： a/＇84 （b×4）＇ 。其中a 是一个数值，小于或等于 84；b 是包含字符
C 的单元格的个数；C 是一个符号。这个公式的关键是要统计出包含字符 C 的单元格的个数。
解答：方法 1：=a/（84…countif（b；〃=c〃）*4）
问题：我试了一下，不能运行，我想是因为没有指定出现“c”的单元格的范围。比如说“c”
在 D2—D30 中随机出现，在上述公式中要先统计出出现“c”的单元格的个数。这个公式如何
做？
解答： =a/（84…COUNTIF（D3：D30；〃c〃）*4）
如何用 if 函数判断；如果 a1 单元格大于 0；b1 单元格为 0 是错误；为非 0 是正确
解答：1：if（and（a0；if（b1=0；〃错误〃；〃正确〃）；〃条件一不满足〃）
我改进以下一个验证先进先出法公式
=IF（B3
