Tạo dòng phân biệt Khách hàng (1 người xem)

[N007]

Chào các anh chị GPE
Mình có DM Khách hàng thường xuyên cập nhật, khi sắp xếp lại thì các Khách hàng nằm liền kề.
Nhờ các anh chị viết giúp code tạo dòng trống phân biệt giữa 2 Khách hàng khác nhau.
Xin cám ơn.

 

[SA_DQ]

Khách hàng ít, thì vầy; bằng klhông thì tìm cách khác

Option Explicit
Sub gpeThemDongTrong()
 Dim Rng As Range, sRng As Range
 Const KH As String = "dcb"
 Dim J As Long
 
 Set Rng = Range([a3], [a3].End(xlDown))
 For J = 1 To Len(KH)
    Set sRng = Rng.Find(Mid(KH, J, 1), , xlFormulas, xlWhole)
    If Not sRng Is Nothing Then
        sRng.EntireRow.Insert
    End If
 Next J
End Sub

 

[ndu96081631]

Chào các anh chị GPE
Mình có DM Khách hàng thường xuyên cập nhật, khi sắp xếp lại thì các Khách hàng nằm liền kề.
Nhờ các anh chị viết giúp code tạo dòng trống phân biệt giữa 2 Khách hàng khác nhau.
Xin cám ơn.

Phân cách để làm cái gì? Vì việc làm ấy là THỪA và vô tình phá vở cấu trúc chuẩn của dữ liệu
Nếu "muốn" lắm, bạn có thể dùng công cụ SUBTOTAL để làm việc này

 

[Quang_Hải]

Chào các anh chị GPE
Mình có DM Khách hàng thường xuyên cập nhật, khi sắp xếp lại thì các Khách hàng nằm liền kề.
Nhờ các anh chị viết giúp code tạo dòng trống phân biệt giữa 2 Khách hàng khác nhau.
Xin cám ơn.

Muốn code có code. Dữ liệu gốc từ cột A. Có bao nhiêu cột thì thay SoCot= con số tương ứng nếu cần

Sub Chen_Dong()
Dim Sarr(), Darr(), I As Long, J As Long, X As Long, SoCot As Long
SotCot = 2
Sarr = Range([A4], [A65536].End(3)(2)).Resize(, SotCot).Value
ReDim Darr(1 To UBound(Sarr) * 2, 1 To UBound(Sarr, 2))
For I = 1 To UBound(Sarr) - 1
If Sarr(I, 1) <> "" Then
    If Sarr(I, 1) = Sarr(I + 1, 1) Then
        J = J + 1
        For X = 1 To SotCot
            Darr(J, X) = Sarr(I, X)
        Next
    Else
        J = J + 1
        For X = 1 To SotCot
            Darr(J, X) = Sarr(I, X)
        Next
        J = J + 1
    End If
End If
Next
[H4].Resize(J + 1, SotCot) = Darr
End Sub

 

[N007]

KH mình đang quản lý rất nhiều, mình đưa file ví dụ thôi. Cám ơn bạn đã hổ trợ.

 

[MinhKhai]

Chào các anh chị GPE
Mình có DM Khách hàng thường xuyên cập nhật, khi sắp xếp lại thì các Khách hàng nằm liền kề.
Nhờ các anh chị viết giúp code tạo dòng trống phân biệt giữa 2 Khách hàng khác nhau.
Xin cám ơn.

Không rõ bạn muốn tách ra để làm gì. Nếu chỉ nhằm dễ nhận biết (dễ nhìn) bạn thử dùng Conditional Formatting xem sao