GBKEE

¦^´_ 1# SinYun
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub EX()
   
3.     Dim xlMax As Date
   
4.     With ActiveSheet
   
5.         .Range("A1").AutoFilter FIELD:=1, Criteria1:="¦¨»²¥ø·~¦³­­¤½¥q"  '¤u§@ªí«ü©w½d³ò¦Û°Ê¿z¿ï,µ¹·Ç«h
   
6.         xlMax = Application.WorksheetFunction.Max(Columns(2).SpecialCells(xlCellTypeVisible))
   
7.                                                                  '¿z¿ï«á¥i¨£¸ê®Æªº³Ì¤j­È
   
8.         .Range("A1").AutoFilter                                  '¤u§@ªí«ü©w½d³ò¨ú®ø¦Û°Ê¿z¿ï
   
9.     End With
   
10.     MsgBox xlMax
    
11. End Sub

½Æ»s¥N½X

ikboy

Sub zz()
Dim arr, d
arr = [a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
    If Not d.exists(d(arr(i, 1))) Then
        d(arr(i, 1)) = arr(i, 2)
    Else
        If arr(i, 2) + 0 > d(arr(i, 1)) + 0 Then d(arr(i, 1)) = arr(i, 2)
    End If
Next
Workbooks.Add
[a1].Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
End Sub