Excel word ppt office使用技巧大全(DOC格式)-第52部分

快捷操作: 按键盘上方向键 ← 或 → 可快速上下翻页 按键盘上的 Enter 键可回到本书目录页 按键盘上方向键 ↑ 可回到本页顶部! 如果本书没有阅读完，想下次继续接着阅读，可使用上方 "收藏到我的浏览器" 功能 和 "加入书签" 功能！


=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