Hỏi cách chèn dòng trống tự động trong bảng dữ liệu

[congbt_dcdtpb]

Em có 1 bảng dữ liệu gồm nhiều tên khác nhau giờ làm cách nào để phân cách các tên chủ giống nhau bằng 1 dòng trắng. Các bác giúp em tạo dòng trắng trong bảng dữ liệu như ví dụ dưới đây cảm ơn các bác.

 

[Ba Tê]

Em có 1 bảng dữ liệu gồm nhiều tên khác nhau giờ làm cách nào để phân cách các tên chủ giống nhau bằng 1 dòng trắng. Các bác giúp em tạo dòng trắng trong bảng dữ liệu như ví dụ dưới đây cảm ơn các bác.

Nếu chịu xài VBA thì tạm thử code này xem sao.
[GPECODE=vba]Public Sub ChenDong()
Dim R As Long, I As Long
R = Range("A65536").End(xlUp).Row
For I = R To 2 Step -1
If Cells(I, 1) <> Empty And Cells(I, 1) <> Cells(I - 1, 1) And Cells(I - 1, 1) <> Empty Then
Cells(I, 1).EntireRow.Insert
End If
Next I
End Sub[/GPECODE]

 

[nghiaphuc]

Còn nếu không chịu xài VBA thì làm thế này (hơi nhiêu khê nhưng tạm được):
1. Chèn 1 dòng trống ở hàng 1.
2. Lập công thức cho B2 và fill xuống: =IF(A2<>A1,"x",1)
3. Sau bước fill công thức ở trên, vùng B2:B47 sẽ được chọn, cứ để như vậy, nhấn phím F5, nhấn Special, chọn Formulas và bỏ chọn Numbers đi, nhấn OK, vậy là các ô có chữ "x" sẽ được chọn.
4. Nhấn Ctrl_+ (phím Ctrl và dấu +), chọn Entire row.
5. Xóa hàng 1 và cột B đi.

(Hic hic, chịu xài VBA thì đỡ biết mấy!)