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

目录 （相同行删除、循环比较 ） （定义动态区域名称、不重复值公式宏、不重复值个数和行数公式宏、加边框 宏） 1，从数据源匹配取数的问题 Sub 宏 131() 从数据源匹配取数的问题 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 Myrow2 = D 列数据的行数 Range(a1).Select Myrow3 = 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 = Myrng1, 0) Else Myrow = Myrng2, 0) End If