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

目录 1，从数据源匹配取数的问题 2，部分字符地址查找 3，多表查询汇总和重复值问题（相同行删除、循环比较） 4，工作表的名称和index号 5，重复值加色 6，统计 7，最大或最小 8，最后一记录（定义动态区域名称、不重复值公式宏、不重复值个数和行数公式宏、加边框宏） 9，大港表格转换 10，筛选尾数 11，对比数据 12，修改批注字体 13，删除合并单元格 14，物品领用报表 15，条件格式设置 16，多表查询，自动筛选法 17，多条件查询累计汇总 18，和值 19，教师安排汇总（循环比较、不重复值） 20，自动着色（不同个数、不同颜色） 21，不重复值的个数及所在行的行数（各个值的个数、行数） 22，分表自动字体格式化 23，自动填充数字 24，导入文本文件 25，累计不变化（内部循环） 26，同结构多表统计汇总（Consolidate方法） 27，资产负债表汇总（多工作簿汇总） 28，导出到文本文件 29，角度求和的自定义公式 30，表单输入模板 31，两表间复制与核对 1，从数据源匹配取数的问题 Sub 宏131() 从数据源匹配取数的问题131.xls 2007-1-31 Shizx98 Dim a As Range, Myrng1 As Range, Myrng2 As Range Dim Myrow As Integer Dim Myrow1 As Integer Dim Myrow2 As Integer Dim Myrow3 As Integer Dim x As Integer Worksheets(Sheet1).Activate Range(d2).Select Selection.CurrentRegion.Select Myrow2 = Selection.Rows.Count D列数据的行数 Range(a1).Select Myrow3 = Selection.CurrentRegion.Rows.Count AB列数据的行数 Set Myrng1 = Range(Cells(2, 1), Cells(Myrow3, 1)) Set Myrng2 = Range(Cells(2, 2), Cells(Myrow3, 2)) For x = 2 To Myrow2 + 1 Set a = Range(D x) For y = 1 To Myrow3 If Len(a) 7 Then Myrow = Application.WorksheetFunction.Match(a, Myrng1, 0) Else Myrow = Application.WorksheetFunction.Match(a, Myrng2, 0) End If If Myrow = 0 Then GoTo 100 Else Range(F1).Select Selection.CurrentRegion.Select Myrow1 = Selection.Rows.Count Range(Cells(Myrow + 1, 1), Cells(Myrow + 1, 2)).Select Selection.Cut Destination:=Range(Cells(Myrow1 + 1, 6), Cells(Myrow1 + 1, 7)) Selection.Delete Shift:=xlUp Myrow = 0 MsgBox 已找到！ GoTo 200 End If 100: Next y 200: Next x End Sub 2，部分字符地址查找 ‘2007/1/30 ‘部分字符地址查找.xls Sub bfzfcz() Dim Myrow1 As Integer Dim Myrow2 As Integer Dim x%, y1%, y2%, gg% Dim AA