excel自編宏大全

1、目錄1，從數(shù)據(jù)源匹配取數(shù)的，從數(shù)據(jù)源匹配取數(shù)的問題問題2，部分字符地址，部分字符地址查找3，多表，多表查詢匯總和重復重復值問題值問題（相同行相同行刪除、循除、循環(huán)比較）4，工作，工作表的名的名稱和index號5，重復，重復值加色6，統(tǒng)計統(tǒng)計7，最大，最大或最小最小8，最后一記錄（定義動態(tài)義動態(tài)區(qū)域名稱、不重復區(qū)域名稱、不重復值公式宏、不重復公式宏、不重復值個數(shù)和行數(shù)公個數(shù)和行數(shù)公式宏、加式宏、加邊框宏框宏）9，大港表格，大港表格轉(zhuǎn)換轉(zhuǎn)換

2、10，篩選尾數(shù)尾數(shù)11，對比數(shù)據(jù)數(shù)據(jù)12，修改批注字體，修改批注字體13，刪除合并單元格元格14，物品，物品領用報表15，條件格，條件格式設置16，多，多表查詢，自，自動篩選動篩選法17，多條件，多條件查詢查詢累計匯總計匯總18，和，和值19，教，教師安排安排匯總（循環(huán)比較、不重、不重復值）20，自，自動著色（不同個數(shù)、不同色（不同個數(shù)、不同顏色）色）DimMyrow1AsIntegerDimMyrow2AsIntegerDimMyro

3、w3AsIntegerDimxAsIntegerWksheets(“Sheet1“).ActivateRange(“d2“).ion.CurrentRegion.Myrow2=ion.Rows.CountD列數(shù)據(jù)的行數(shù)Range(“a1“).Myrow3=ion.CurrentRegion.Rows.CountAB列數(shù)據(jù)的行數(shù)SetMyrng1=Range(Cells(21)Cells(Myrow31))SetMyrng2=Range(

4、Cells(22)Cells(Myrow32))Fx=2ToMyrow21Seta=Range(“D“&x)Fy=1ToMyrow3IfLen(a)7ThenMyrow=Application.WksheetFunction.Match(aMyrng10)ElseMyrow=Application.WksheetFunction.Match(aMyrng20)EndIfIfMyrow=0ThenGoTo100ElseRange(“F1“

5、).ion.CurrentRegion.Myrow1=ion.Rows.CountRange(Cells(Myrow11)Cells(Myrow12)).ion.CutDestination:=Range(Cells(Myrow116)Cells(Myrow117))ion.Shift:=xlUpMyrow=0MsgBox“已找到！“GoTo200EndIf100:Nexty200:NextxEndSub2，部分字符地址，部分字符地址查