excel自編宏大全(word版)

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

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

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

4、ells(21)Cells(Myrow31))SetMyrng2=Range(Cells(22)Cells(Myrow32))Fx=2ToMyrow21Seta=Range(“D“&x)Fy=1ToMyrow3IfLen(a)7ThenMyrow=Application.WksheetFunction.Match(aMyrng10)ElseMyrow=Application.WksheetFunction.Match(aMyrng20)

5、EndIfIfMyrow=0ThenGoTo100ElseRange(“F1“).ion.CurrentRegion.Myrow1=ion.Rows.CountRange(Cells(Myrow11)Cells(Myrow12)).ion.CutDestination:=Range(Cells(Myrow116)Cells(Myrow117))ion.Shift:=xlUpMyrow=0MsgBox“已找到！“GoTo200EndIf1