Sub Filter_Unique()
Dim Src As Range, Des As Range
Application.ScreenUpdating = False
Set Src = Range("A5:A" & [A65536].End(xlUp).Row)
[C5].CurrentRegion.ClearContents
Src.AdvancedFilter Action:=2, CopyToRange:=[C5], Unique:=True
Set Des = Range("C5:C" & [C65536].End(xlUp).Row)
Des.Sort Key1:=Des(2), Order1:=1, Header:=1
Application.ScreenUpdating = True
End SubBạn làm giống như bài tôi vừa đưa lên (chỉ sửa lại 1 tí về vị trị các cell) là ra ngay kết quả như mong muốn!
Sub Filter_Unique()
Dim Src As Range, Des As Range
Application.ScreenUpdating = False
Set Src = Range("A1:A" & [A65536].End(xlUp).Row)
[E1].CurrentRegion.ClearContents
Src.AdvancedFilter Action:=2, CopyToRange:=[E1], Unique:=True
Set Des = Range("E1:E" & [E65536].End(xlUp).Row)
Des.Sort Key1:=Des(2), Order1:=1, Header:=1, DataOption1:=1
Application.ScreenUpdating = True
End Sub
Sub Filter_Unique()
Dim Src As Range
Application.ScreenUpdating = False
Set Src = Range("A1:A" & [A65536].End(xlUp).Row)
[E1].CurrentRegion.ClearContents
Src.AdvancedFilter Action:=2, CopyToRange:=[E1], Unique:=True
Set Src = Range("E1:E" & [E65536].End(xlUp).Row)
Src.Sort Key1:=Src(2), Order1:=1, Header:=1, DataOption1:=1
Application.ScreenUpdating = True
End SubSub Filter_Unique()
[E1].CurrentRegion.ClearContents
Range([A1], [A65536].End(xlUp)).AdvancedFilter 2, , [E1], True
[E1].CurrentRegion.Sort [E1], 1, Header:=1, DataOption1:=1
End SubSub Filter_Unique()
[E1].CurrentRegion.ClearContents
Range([A1], [A65536].End(xlUp)).AdvancedFilter 2, , [E1], 1
[E1].CurrentRegion.Offset(1).Sort [E1], DataOption1:=1
End SubUh... quả có ngắn hơn thật!
Sub Loc_Po_pikachu()
[E1].CurrentRegion.ClearContents
Range([A1], [A65536].End(xlUp)).AdvancedFilter 2, , [E1], 1
Range([E1], [E65536].End(xlUp)).Offset(1).Sort [E1], DataOption1:=1
End SubSub Loc_Po_pikachu()
Dim vung1 As Range, vung2 As Range
Set vung1 = Application.InputBox("Chon vung du lieu: ", Type:=8)
Set vung2 = Application.InputBox("Chon vi tri luu du lieu: ", Type:=8)
[vung2].CurrentRegion.ClearContents
vung1.AdvancedFilter 2, , vung2, 1
Range(vung2, Cells(65000, vung2.Column).End(xlUp)).Offset(1).Sort vung2, DataOption1:=1
End SubSub Loc_Po_pikachu()
With Application.InputBox("Chon vi tri luu du lieu: ", Type:=8)
.CurrentRegion.ClearContents
Application.InputBox("Chon vung du lieu: ", Type:=8).AdvancedFilter 2, , .Cells, 1
Range(.Cells, Cells(65000, .Column).End(xlUp)).Offset(1).Sort .Cells, DataOption1:=1
End With
End SubSub Loc_Po_pikachu()
On Error Resume Next
With Application.InputBox("Chon vi tri luu du lieu: ", Type:=8)
.CurrentRegion.ClearContents
Application.InputBox("Chon vung du lieu: ", Type:=8).AdvancedFilter 2, , .Cells, 1
Range(.Cells, Cells(65000, .Column).End(xlUp)).Offset(1).Sort .Cells, DataOption1:=1
End With
End Sub
Đầu tiên cho em sorry anh Anhtuan1066 và các anh chị trong diễn đàn giải pháp excel trước nha.
Em có coi hướng dẫn cách post bài mới nhưng vẫn chưa hiểu "bạn click vào biểu tượngở góc trái ở mỗi box", em tìm hoài nhưng vẫn không thấy biểu tượng đó ở đâu? phải vô đường dẫn nào? vì vậy em đành mượn nhờ bài của anh anhtuan1066 để hỏi bài toán excel em đang bị bí. Anh chị giúp dùm em với, em cám ơn!
Em tải bài này của anh Trần Thanh Phong tổng hợp và biên dịch (có tham khảo bài của chị handung trên GPE) - trang 27, nhưng khi e làm thì công thức không chạy được? em có gửi kèm file của em lập dựa theo công thức của anh Thanh Phong.
