Excel自编宏大全(Word版)(1).docVIP

PAGE / NUMPAGES 目录 HYＰERLINK 　\ｌ ＂_1，从数据源匹配取数的问题” １，从数据源匹配取数的问题 HYPＥRLＩＮK ＼l　_2，部分字符地址查找” 2，部分字符地址查找 HYPERLINK　 \l　”_3，查询汇总和重复值问题 ３，多表查询汇总和重复值问题(相同行删除、循环比较) 　HYPERLINＫ　 ＼ｌ ”_４,工作表的名称和ｉndｅx号　４，工作表的名称和indeｘ号 　ＨYPERＬINK 8，最后一记录（定义动态区域名称、不重复值公式宏、不重复值个数和行数公式宏、加边框宏) ＨYPEＲLINK ＼l ＂_9，大港表格转换 ９,大港表格转换 HYPERＬIＮK \ｌ　”_１0,筛选尾数 １0，筛选尾数 HYPERLＩNＫ 　\l ”＿11,对比数据＂ 11，对比数据 　HYPERLINＫ 12，修改批注字体 HYPERＬINK　 \l ”_13，删除合并单元格” 13,删除合并单元格 ＨYＰＥRLIＮK　 ＼l ”_１４,物品领用报表 １4，物品领用报表 HYＰＥRＬINK　 \l ＂_15,条件格式设置” １5，条件格式设置 HＹＰＥRLINK 　\l ＂＿16，多表查询,自动筛选法” 16，多表查询，自动筛选法 HＹPＥRＬINＫ １７,多条件查询累计汇总 HYＰERLINK 　＼l _１8，和值　18,和值 ＨYPEＲＬＩNK 　\ｌ _19，教师安排汇总（循环比较、不重复值）” 1９，教师安排汇总（循环比较、不重复值） ＨYPERLＩNK 　\l ＂_20，自动着色（不同个数、不同颜色） 20，自动着色(不同个数、不同颜色) 　HYPERLINK ＼l _２１,不重复值的个数及所在行的行数（各个值的个数、行数）”　21,不重复值的个数及所在行的行数（各个值的个数、行数） HＹＰＥＲLＩNK \l ＂_22，分表自动字体格式化” 2２，分表自动字体格式化 　ＨYPＥＲＬINK　　＼ｌ ＂_２3，自动填充数字 2３，自动填充数字 HＹPERLＩNK \l ＂_24,导入文本文件＂　24,导入文本文件 ＨＹＰERLIＮK 28，导出到文本文件 ＨYＰERＬＩNK　 \l ＂_29，角度求和的自定义公式＂ ２9,角度求和的自定义公式 ＨYPERLINK　 ＼l　＂＿３０,表单输入模板＂　３0，表单输入模板 HYＰERLINK　　＼ｌ ”_31，两表间复制与核对 ３１，两表间复制与核对 １，从数据源匹配取数的问题 Ｓuｂ 宏131() 从数据源匹配取数的问题1３1．xlｓ 2007-1－31 ＇ Shizｘ98 　 Dim a As Ｒange， Mｙrng1 As　Range, Myrng2　Ａs　Ｒanｇe 　Diｍ Mｙroｗ　As Inteｇer 　 Ｄiｍ Myｒow1 Ａｓ　Ｉnｔegｅr Ｄim Myrｏw2 As Iｎteger 　 　 Ｄim Myrow3 As Integer 　 　Ｄiｍ　x Aｓ　Iｎteger Wｏｒksheetｓ（”Sheeｔ1＂）。Acｔiｖate 　 Ranｇe（d２).Ｓeｌｅct 　 　Seｌｅctiｏn。CｕｒrenｔReｇiｏn．Seｌeｃt 　Myroｗ２ ＝ Ｓeｌectiｏn.Ｒows。Ｃouｎt ＇D列数据的行数 Rａnｇｅ(”ａ１）．Select Ｍyroｗ３　= Selecｔion。CｕｒrentRｅgiｏn。Ｒｏws。Couｎt AＢ列数据的行数 　　　 Seｔ Myｒｎg１ = Ｒａngｅ（Cｅllｓ（2， 1）,　Ｃells(Myrow3,　１）) Set　Myrnｇ2 =　Rａngｅ(Cells(2, 2）， Cells(Ｍyｒoｗ3， 2)） Fｏr x　= 2 Tｏ Myrow2 + 1 　　 Sｅｔ ａ = Raｎge（Ｄ＂　＆　x） Fｏr y = １ To Mｙrow３ 　　　 　　 　 If Leｎ(a) 7　Tｈeｎ 　 　　　 　　 　Ｍyｒow =　Appｌｉcaｔion。WorkｓheｅtFuｎction。Mａtｃh（ａ, Mｙrng1， ０） 　 　 　 　Ｅｌｓe 　　　 　 Mｙrｏｗ　=　Appｌiｃaｔion.WorkｓheetFunctｉon．Ｍatch(a， Ｍyrｎｇ2，　０） 　　　　 　 　 End　Iｆ 　 　　 If Myrow ＝ 0 Thｅｎ 　　　 　　 　 GoTｏ １00 　 El