按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
K2=INDEX（A2：F4；MATCH（K3；F2 ：F4；0）；2）
K3=MAX（F2：F4）
解答 3：
问题一：公式改为：=COUNTIF（A1：A30；〃》=〃 & INDEX（B1；1）*0。9）
问题二：在K1：K3 中分别输入如下公式（假设 A1 为〃班级〃）：
=LOOKUP（K3；F2：F4；A2：A4）
=LOOKUP（K3；F2：F4；B2：B4）
=LARGE（F2：F4；1）
解答 4
第一题：=COUNTIF（A1：A30；〃》=〃&B1*0。9）
第二题：K1==INDIRECT（〃A〃&MATCH（MAX（F1：F4）；F1：F4））
K2=INDIRECT（〃B〃&MATCH（MAX（F1：F4）；F1：F4））
K3=MAX（F2：F4）
定有如上两列数据 A 和 B 现在想要统计满足条件 B＝8 的 并且在 C 列自动生成数据
Q： A B C
427 8 427 /612 8 612 /924 8 924 /22 16 409 /94 16 /620 16 /955 16 /409 8
345
…………………………………………………………Page 346……………………………………………………………
请问 ：假定有如上两列数据 A 和 B ；现在想要统计满足条件 B＝8 的 ；并且在 C 列自动生成数
据；我不懂公式怎么写？我知道筛选能够做到 ；但是由于数据量比较大 ；想做一个模板，免去一
些重复劳动 。
A： dongmu
=IF（ROW（A1）》COUNTIF（B1：B8；8）；〃〃；INDEX（A1：A8；MATCH（SMALL（IF（B1：B8=8；0
；1）＋ROW（B1：B8）/100000；ROW
（A1））；IF（B1：B8=8；0；1）＋ROW（B1：B8）/100000；0）））
老夏 L：
B 栏有 100 个选取条件；公式要修改 100 次 ；有甚么灵活性？；给字段名称；插入头两
列。B1=SUBTOTAL（9；B4：B65536） 。解决掉所有问题 ；控件找自动筛选。
排名问题
在 A1：F6 区域有下面一个表格：
班级 姓名 政治 语文 数学 总分
1 小东 90 90 90 270 /2 明明 95 92 90 277 /3 小英 96 89 91 276 /4 小刘 95 90 92 277
/5 小红 95 91 92 278 /要在 K1：K3 的单元格中分别显示总分最高的同学的班级、姓名、总分
/在 L1：L3 的单元格中分别显示总分第二的同学的班级、姓名、总分 /在 M1：M3 的单元格中分
别显示总分第三的同学的班级、姓名、总分 /注意期中 277 分的有两人；不要出现第二名与第
三名都是〃明明〃的结果。
A： dongmu
定义 A2：A6 区域为班级 ；定义B2：B6 区域为姓名 ；定义F2：F6 区域为总分
K1=｛INDEX（班级；MATCH（LARGE（总分＋1…ROW（总分）/100；ROW（A1））；总分＋1…ROW（总
分）/100；0））｝
L1=｛INDEX（姓名；MATCH（LARGE（总分＋1…ROW（总分）/100；ROW（A1））；总分＋1…ROW（总
分）/100；0））｝
M1=｛INDEX（总分；MATCH（LARGE（总分＋1…ROW（总分）/100；ROW（A1））；总分＋1…ROW（总
分）/100；0））｝注：只要向下复制，便可得到 1~6 名的情况了。该公式可以无限排列。
研究彩票，从统计入手
Q：我有一个VBA 编程的问题向你请教。麻烦你帮助编一个。我一定厚谢。
有一个数组列在 EXCEL 中如： 01 02 03 04 05 06 07 /和 01 04 12 19 25 26 32 /02 08 15
16 18 24 28 /01 02 07 09 12 15 22/09 15 17 20 22 29 32/比较，如果有相同的数就在第
八位记一个数。如 ：01 04 12 19 25 26 32 2 /02 08 15 16 18 24 28 1 /01 02 07 09 12 15
22 2 /09 15 17 20 22 29 32 0 。这个数列有几千组，只要求比较出有几位相同就行。
解答：把“01 02 03 04 05 06 07 ”放在表格的第一行，“01 04 12 19 25 26 32 2”放第二
行。
把以下公式贴到第二行第八个单元格“A9”中，按F2；再按 CTRL＋SHIFT＋ENTER。
=COUNT（MATCH（A2：G2；A1：G1；0））
去掉 XLS 文件头上菜单栏的“MIcrosoft EXCEL ”字样
A： Private Sub Workbook_Open（）
Application。Caption = 〃程香宙专用表格〃
End Sub
346
…………………………………………………………Page 347……………………………………………………………
替换数据
Q：请教各位如何用将一组数据，
如：6550894， 9852547， 2656032， 7461136， 0505867， 5564892， 7235580，0421077，
我需要把数据中的数字 1，3，5 换为符号 A 表示，2，4，6 换为符号 B 表示，依此类推将数据
中的阿拉伯数字0~9 分为几类用其它符号替换。
A： leaf
用 VBA 处理比较方便。 只用 EXCEL 函数，感觉代价太大。
假设：B13 值为 9550894 在 B14 中输入
=IF（ISERROR（FIND（MID（B13；1；1）；〃135〃））；IF（ISERROR（FIND（MID（B13；1；1）；〃246〃））；IF
（ISERROR（FIND（MID（B13；1；1）；〃79〃））；IF（ISERROR（FIND（MID（B13；1；1）；〃80〃））；〃〃；〃D〃）
；〃C〃）；〃B〃）；〃A〃），C14 中MID（）第二个参数为 2，以此类推。。。最后在目标单元格中输入：
=CONCATENATE（B14；C14；D14；E14；F14；G14；H14）
dongmu ：表一：
AB。。。
11234567890 、2ABABABCCCD 、=SUBSTITUTE（A4；A1；A2）
说明：先列一个替换表；如表一；在 A4 处填如数据；在 B4 处填如上述公式
=SUBSTITUTE（A4；A1；A2）；并向右拖动 9 个同样的公式；最后一个便是结果。在将该 10 个相同
的公式向下拖；便得到其它的结果。好处：可以修改表一；产生变化。
ACCESS ：你可以把全部数据拷贝到WORD 中，再用替换命令，想怎么换就怎么换，然后在拷贝
回来。
复制数据再转置；不复制转置被隐藏的行或列
解答：选择需要转置的单元区域，按下 F5－－＞定位条件－－＞可见单元格－－＞复制
－－＞选择性粘贴－－＞转置。
如何始终打开默认的工作表
可不可以作到每次保存工作表时，无论保存时是在哪一个
SHEET，但是当下次再打开时，还是原来默认的那张工作表。比如 SHEET1。谢谢！
解答：Private Sub Workbook_Open（）
Worksheets（〃sheet1〃）。Activate
End Sub
如何分割文本
有一列数据，全部是邮箱的，现在想将@前面的账号与@后面的域名分割开，分为两列，如何做？
解答：采用函数分割：例如：A1： name@163。
B1：=LEFT（A1；FIND（〃@〃；A1）…1） ……》 name
C1：=RIGHT（A1；LEN（A1）…FIND（〃@〃；A1）） ……》 163。
或：数据…分列…分列…分隔符号…@就可以了
347
…………………………………………………………Page 348……………………………………………………………
两列合一列
现有两列数据 A 列与 B 列，我想把 B 列的数据合并到 A 列但必须是 B1 单元格的数放到 A1
的下面，B2 放到 A2 的下面依此类推，有什么办法呢？
解答：=INDIRECT（〃r〃&INT（（ROW（）＋1）/2）& 〃c〃&MOD（ROW（）＋1；2）＋1；0）
解释：
（一）EXCEL 表中的列、行样式有两种：
一种标记样式为：
列 （字段）以A；B；C；D。。。。。。
行 （记录）以数值 1；2；3；4；5。。。。。。
第一列第一行的单元格为 A1
另一种标记样式为（取 ROW 和 COLUMN 的首位字母）：
列 （字段）以R1；R2；R3；R4；R5。。。。。。
行 （记录）以C1；C2；C3；C4；C5。。。。。。
第一列第一行的单元