Hỗ trợ tên sheet thêm số lượng dòng nội dung sheet đó

[Minhtruc94]

Sub ABC()
Dim Arr(), iR&, WS As Worksheet
Dim dic As Object, s, X
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set dic = CreateObject("scripting.dictionary")
For Each WS In Worksheets
If WS.Name <> "data" Then
WS.Delete
End If
Next
With Sheets("data")
If .AutoFilterMode Then .AutoFilterMode = False
Arr = .Range("C2:C" & .Range("C" & Rows.Count).End(3).Row).Value
End With
For i = 1 To UBound(Arr, 1)
If dic.exists(Arr(i, 1)) = False Then
dic.Add (Arr(i, 1)), ""
End If
Next
iR = Sheets("data").Range("C" & Rows.Count).End(3).Row
For Each s In dic.keys
With Sheets("data")
Worksheets.Add After:=Worksheets(Worksheets.Count)
.Range("$A$1:$H" & iR).AutoFilter 3, s
.Range("$A$1:$H" & iR).Copy ActiveSheet.Range("A1")
s = Replace(s, "/", "-")
ActiveSheet.Name = Right(s, Len(s) - 7)
End With
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Sheets("data").Select
Range("F572").Select
Selection.AutoFilter
End Sub

xin chào mọi người , mình có đoạn code tách sheet theo tên của cột C nhưng giờ mình muốn thêm số lượng đơn từ trong nội dung
ví dụ : Phu Nhuan-Phuong 4 LM Hub_6 (số lượng đơn) ( số dòng trừ tiêu đề sheet ) , nhờ mọi người hỗ trợ với , mình cảm ơn

 

[SA_DQ]

Bạn có các vấn đề cần lưu tâm, như sau:
(1) Bài đăng đang lộn tiệm; Lý ra nên đăng bên đề mục "Lập trình"
(2) Lí ra các câu lệnh của macro nên cho vô thể [ PHP] . . . [/Php] hay thẻ [Code ]. . . .[/ Code]; Ngõ hầu những người có nhã ý giúp bạn được thuận mắt khi đọc; Bạn nên biết rằng ông bà xưa nói "Văn mình, vợ người" & cũng đúng nếu "Văn người, vợ mình"!
. . . . . .
(n) Nếu tình cờ bạn ở Phú Nhuận thì hình như bạn & đa số trên cộng đồng này là người quen thì phải (?)