资源描述：
《Excel自编宏大全(Word版).doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、.目录1，从数据源匹配取数的问题2，部分字符地址查找3，多表查询汇总和重复值问题（相同行删除、循环比较）4，工作表的名称和index号5，重复值加色6，统计7，最大或最小8，最后一记录（定义动态区域名称、不重复值公式宏、不重复值个数和行数公式宏、加边框宏）9，大港表格转换10，筛选尾数11，对比数据12，修改批注字体13，删除合并单元格14，物品领用报表15，条件格式设置16，多表查询，自动筛选法17，多条件查询累计汇总18，和值19，教师安排汇总（循环比较、不重复值）20，自动着色（不同个数、不同颜色）Word文档.21，不重复值的个数及所在行的行数（各个值的个数、行数）22，分表自动字体
2、格式化23，自动填充数字24，导入文本文件25，累计不变化（内部循环）26，同结构多表统计汇总（Consolidate方法）27，资产负债表汇总（多工作簿汇总）28，导出到文本文件29，角度求和的自定义公式30，表单输入模板31，两表间复制与核对1，从数据源匹配取数的问题Sub宏131()'从数据源匹配取数的问题131.xls'2007-1-31'Shizx98'DimaAsRange,Myrng1AsRange,Myrng2AsRangeDimMyrowAsIntegerWord文档.DimMyrow1AsIntegerDimMyrow2AsIntegerDimMyrow3AsIntege
3、rDimxAsIntegerWorksheets("Sheet1").ActivateRange("d2").SelectSelection.CurrentRegion.SelectMyrow2=Selection.Rows.Count'D列数据的行数Range("a1").SelectMyrow3=Selection.CurrentRegion.Rows.Count'AB列数据的行数SetMyrng1=Range(Cells(2,1),Cells(Myrow3,1))SetMyrng2=Range(Cells(2,2),Cells(Myrow3,2))Forx=2ToMyrow2+1Set
4、a=Range("D"&x)Fory=1ToMyrow3IfLen(a)>7ThenMyrow=Application.WorksheetFunction.Match(a,Myrng1,0)ElseMyrow=Application.WorksheetFunction.Match(a,Myrng2,0)EndIfIfMyrow=0ThenGoTo100ElseRange("F1").SelectSelection.CurrentRegion.SelectMyrow1=Selection.Rows.CountRange(Cells(Myrow+1,1),Cells(Myrow+1,2)).Se
5、lectSelection.CutDestination:=Range(Cells(Myrow1+1,6),Cells(Myrow1+1,7))Selection.DeleteShift:=xlUpMyrow=0MsgBox"已找到！"GoTo200EndIf100:Nexty200:NextxEndSub2，部分字符地址查找‘2007/1/30Word文档.‘部分字符地址查找.xlsSubbfzfcz()DimMyrow1AsIntegerDimMyrow2AsIntegerDimx%,y1%,y2%,gg%DimAA,BBOnErrorResumeNextRange("a2").Sele
6、ctSelection.CurrentRegion.SelectMyrow1=Selection.Rows.CountRange("e1").SelectSelection.CurrentRegion.SelectMyrow2=Selection.Rows.Countgg=2Forx=2ToMyrow2AA=Range("e"&x)Fory1=2ToMyrow1+1BB=Application.WorksheetFunction.SearchB(AA,Cells(y1,1))IfBB>0ThenRange("g"&gg)="A"&y1gg=gg+1ElseEndIfBB=0Nexty1For
7、y2=2ToMyrow1+1BB=Application.WorksheetFunction.SearchB(AA,Cells(y2,2))IfBB>0ThenRange("g"&gg)="B"&y2gg=gg+1ElseEndIfBB=0Nexty2'gg=gg+1NextxEndSub3，多表查询汇总和重复值问题（相同行删除、循环比较）Sub宏0204()Word文档.''见汇总0204.xls'2007
