Giúp đỡ tách điểm theo lớp

One Response

1. hands says:

   06/05/2023 at 12:16 am

   Xem code 1 vòng lặp

   Sub CreatDataSheet()
   Dim Item, Items As Range
   Dim LastRw As Long
   Application.ScreenUpdating = False
   Application.DisplayAlerts = False
   Set Items = Sheet1.Range("D9:D5000")
       For Each Item In UniqueList(Items)
           If SheetExists(CStr(Item)) = False Then
               Sheets.Add(After:=Sheets(Sheets.Count)).Name = CStr(Item)
               With ActiveSheet
                 .Range("A1") = Sheets("Data").[D8]
                 .Range("A2").Value = .Name
                 Sheets("Data").Range("A8:E5000").AdvancedFilter 2, .Range("A1:A2"), .Range("A8"), False
                 .Columns("E:E").Cut: .Columns("A:A").Insert
                 LastRw = .[A1000].End(xlUp).Row
                 .Range("A8:E" & LastRw).Sort Key1:=.Range("A8"), Order1:=xlAscending, Header:=xlYes
               End With
           End If
       Next
   Application.ScreenUpdating = True
   Application.DisplayAlerts = True
   End Sub

   Reply