Mã nguồn PHP:
Option ExplicitSub Macro2()' . . . .' Sheets("Sheet1").Select Range("B5:B34").Select Range("B5:B34").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _ "AA5"), Unique:=True Range("AA5:AA12").Select Selection.Sort Key1:=Range("AA6"), Order1:=xlDescending, Header:=xlGuess _ , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Selection.Copy Sheets("Sheet2").Select Range("D5").Select ActiveSheet.PasteEnd Sub
Sau đó mình chỉnh sửa macro này để thân thiện hơn, như sau
Mã nguồn PHP:
Sub GPE() Dim Rws As Long Sheets("Sheet1").Select Rws = [B65500].End(xlUp).Row1 'Loc Duy Nhát:' Range("B5:B" & Rws).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _ "AA5"), Unique:=True2 'Xép:' Range("AA5:AA" & Rws).Sort Key1:=Range("AA6"), Order1:=xlDescending, Header:=xlGuess _ , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal3 'Chép:' Range("AA5:AA" & Rws).Copy Destination:=Sheets("Sheet2").Range("D5") End Sub
Chúc thầy mạnh khỏe!