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

  • 0
  • 0
  • 约7.46万字
  • 约 60页
  • 2023-03-30 发布于山西
  • 举报
PAGE / NUMPAGES 目录 HYPERLINK  \l "_1,从数据源匹配取数的问题” 1,从数据源匹配取数的问题 HYPERLINK \l _2,部分字符地址查找” 2,部分字符地址查找 HYPERLINK  \l ”_3,查询汇总和重复值问题 3,多表查询汇总和重复值问题(相同行删除、循环比较)  HYPERLINK  \l ”_4,工作表的名称和index号 4,工作表的名称和index号  HYPERLINK 8,最后一记录(定义动态区域名称、不重复值公式宏、不重复值个数和行数公式宏、加边框宏) HYPERLINK \l "_9,大港表格转换 9,大港表格转换 HYPERLINK \l ”_10,筛选尾数 10,筛选尾数 HYPERLINK  \l ”_11,对比数据" 11,对比数据  HYPERLINK 12,修改批注字体 HYPERLINK  \l ”_13,删除合并单元格” 13,删除合并单元格 HYPERLINK  \l ”_14,物品领用报表 14,物品领用报表 HYPERLINK  \l "_15,条件格式设置” 15,条件格式设置 HYPERLINK  \l "_16,多表查询,自动筛选法” 16,多表查询,自动筛选法 HYPERLINK 17,多条件查询累计汇总 HYPERLINK  \l _18,和值 18,和值 HYPERLINK  \l _19,教师安排汇总(循环比较、不重复值)” 19,教师安排汇总(循环比较、不重复值) HYPERLINK  \l "_20,自动着色(不同个数、不同颜色) 20,自动着色(不同个数、不同颜色)  HYPERLINK \l _21,不重复值的个数及所在行的行数(各个值的个数、行数)” 21,不重复值的个数及所在行的行数(各个值的个数、行数) HYPERLINK \l "_22,分表自动字体格式化” 22,分表自动字体格式化  HYPERLINK  \l "_23,自动填充数字 23,自动填充数字 HYPERLINK \l "_24,导入文本文件" 24,导入文本文件 HYPERLINK 28,导出到文本文件 HYPERLINK  \l "_29,角度求和的自定义公式" 29,角度求和的自定义公式 HYPERLINK  \l "_30,表单输入模板" 30,表单输入模板 HYPERLINK  \l ”_31,两表间复制与核对 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   El

文档评论(0)

1亿VIP精品文档

相关文档