Excel自编宏大全(Word版).doc

Excel自编宏大全(Word版).doc

ID:50137348

大小:239.00 KB

页数:64页

时间:2020-03-05

Excel自编宏大全(Word版).doc_第1页
Excel自编宏大全(Word版).doc_第2页
Excel自编宏大全(Word版).doc_第3页
Excel自编宏大全(Word版).doc_第4页
Excel自编宏大全(Word版).doc_第5页
资源描述:

《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

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。