一聚教程网:一个值得你收藏的教程网站

最新下载

EXCEL下使用MATCH函数碰到的问题

时间:2008-01-12 00:00:00 编辑:简简单单 来源:转载

Sub USEMATCH()
     Dim s_p As String, e_p As String
     Dim num As Integer
      num = 0
      For Each M In Range("a:a")
      If M.Value <> "" Then
     num = num + 1
      Else
     Exit For
      End If
      Next M
      erange = "b" & num
      erange = "b2:" & erange
      N = 1
      a = 2
      currange = "b" & a
      Cells.Select
      Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
     , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
     False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
     xlSortNormal, DataOption2:=xlSortNormal
      Columns("A:A").Select
      Selection.Insert Shift:=xlToRight '最左插入一列
      Set curCell = Worksheets(Sheets(1).Name).Range(currange)
      For Each M In Range(erange)
      On Error GoTo ErrorHandler
      If M.Offset(0, -1).Value <> "" Then GoTo mynext

网站留言

热门栏目