Xin code tự động xóa dòng trống (1 người xem)

[trongtuankt]

Em chào anh chị
Trước em có tìm được trên diễn đàn code xóa dòng trống mà giờ em không tìm lại được, anh chị có cho em xin với ạ, vì em có 1 bảng lọc,tổng hợp dữ liệu từ 1 sheet khác nên khi lọc xong thì các dòng dữ liệu và dòng trống xếp lẫn lộn nhau. Em cảm ơn ạ.

 

[trongtuankt]

Em biết thế nhưng dùng Autofitter thì nó chỉ ẩn dòng trống và địa chỉ ô ko theo trật tự ạ, kiểu như là A1, nhảy luôn đến A5 rồi A7 nhìn không được hoàn chỉnh lắm ạ.

 

[Kiều Mạnh]

Em biết thế nhưng dùng Autofitter thì nó chỉ ẩn dòng trống và địa chỉ ô ko theo trật tự ạ, kiểu như là A1, nhảy luôn đến A5 rồi A7 nhìn không được hoàn chỉnh lắm ạ.

ÚP file lên nêu muốn như thế nào cụ thể mình xem nếu được mình làm cho

 

[trongtuankt]

Em muốn làm ở sheet sổ cái, và sổ chi tiết ạ, dữ liệu ở sổ cái và sổ chi tiết sắp xếp theo thứ tự A17, A18,.....chứ không phải hiện A61, A63,... như sổ cái khi chọn TK 152.

 

[Kiều Mạnh]

Em muốn làm ở sheet sổ cái, và sổ chi tiết ạ, dữ liệu ở sổ cái và sổ chi tiết sắp xếp theo thứ tự A17, A18,.....chứ không phải hiện A61, A63,... như sổ cái khi chọn TK 152.

ý bạn là xóa những dòng trống từ [A16:A199] phải không.. nhưng bạn có tính đến các công thức có liên quan là ko sử dụng được nữa VÀ BẠN muốn lọc theo tài khoản thì sao đây
xóa là Delete Shift:=xlUp luôn đó

 

[trongtuankt]

Em cảm ơn, em hiểu rồi ạ, chắc em hiểu sai về code kia, đành dùng Autofilter vậy

 

[kuldokk]

Em muốn làm ở sheet sổ cái, và sổ chi tiết ạ, dữ liệu ở sổ cái và sổ chi tiết sắp xếp theo thứ tự A17, A18,.....chứ không phải hiện A61, A63,... như sổ cái khi chọn TK 152.

Theo mình thì với file này của bạn, cứ sort theo cột B rồi đánh dấu các dòng trống mà xoá đi thôi chứ động vào VBA với macro làm gì cho mệt. Còn nếu mà vẫn thích macro thì xin mời:


Cho code này vào trong 1 module, vẽ 1 cái shape ở ngoài để lúc nào cần thì bấm nó. Cách thực hiện như sau:
0. Sao lưu/Back Up sheet đang thực hiện
1. Chọn vùng cần xoá dòng trống
2. Bấm nút

Public Sub DeleteCompletelyBlankRows()
Dim R As Long
Dim C As Range
Dim N As Long
Dim Rng As Range


On Error GoTo EndMacro
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual


If Selection.Rows.Count > 1 Then
Set Rng = Selection
Else
Set Rng = ActiveSheet.UsedRange.Rows
End If
N = 0
For R = Rng.Rows.Count To 1 Step -1
If Application.WorksheetFunction.CountA(Rng.Rows(R).EntireRow) = 0 Then
Rng.Rows(R).EntireRow.Delete
N = N + 1
End If
Next R


EndMacro:


Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic


End Sub