Xóa các dòng blanks trong một sheet

[n0thing1988]

chào các anh chị,

Mình muốn in 1 phiếu xuất kho nhưng trong đó có nhiều dòng trống, giờ mình muốn tạo nút lọc tại 1 cột thôi, khi click vào sẽ hiện lên các dòng dữ liệu và dòng blank. Mình không biết phải làm sao nữa để tạo nút lọc đó nữa (không phải dùng auto filter để hiện nút lọc hết các cột nhé). (đính kèm file)
Mong các anh chị hướng dẫn giúp. Xin cảm ơn

[TABLE="width: 64"]
[TR]
[TD="width: 64, align: left"]Sub loc()[/TD]
[/TR]
[TR]
[TD="align: left"]Dim Rng As Range[/TD]
[/TR]
[TR]
[TD="align: left"]For Each Rng In Sheet2.Range("A9:A36")[/TD]
[/TR]
[TR]
[TD="align: left"]If Rng.Value = "" Then[/TD]
[/TR]
[TR]
[TD="align: left"]Rng.Select[/TD]
[/TR]
[TR]
[TD="align: left"]Selection.EntireRow.Hidden = True[/TD]
[/TR]
[TR]
[TD="align: left"]End If[/TD]
[/TR]
[TR]
[TD="align: left"]Next[/TD]
[/TR]
[TR]
[TD="align: left"]End Sub[/TD]
[/TR]
[/TABLE]

 

[giaiphap]

[TABLE="width: 64"]
[TR]
[TD="width: 64, align: left"]Sub loc()[/TD]
[/TR]
[TR]
[TD="align: left"]Dim Rng As Range[/TD]
[/TR]
[TR]
[TD="align: left"]For Each Rng In Sheet2.Range("A9:A36")[/TD]
[/TR]
[TR]
[TD="align: left"]If Rng.Value = "" Then[/TD]
[/TR]
[TR]
[TD="align: left"]Rng.Select[/TD]
[/TR]
[TR]
[TD="align: left"]Selection.EntireRow.Hidden = True[/TD]
[/TR]
[TR]
[TD="align: left"]End If[/TD]
[/TR]
[TR]
[TD="align: left"]Next[/TD]
[/TR]
[TR]
[TD="align: left"]End Sub[/TD]
[/TR]
[/TABLE]

Code này chạy dữ liệu khoảng 1000 dòng bạn sẽ thấy tốc độ như thế nào.

 

[n0thing1988]

Code này chạy dữ liệu khoảng 1000 dòng bạn sẽ thấy tốc độ như thế nào.

Em ko biết code co kiếc gì đâu mà anh giaiphapanh đã xuất hiện thì viết cho bạn ấy 1 code khác đi ạ cũng là để em học hỏi với

 

[phulien1902]

chào các anh chị,

Mình muốn in 1 phiếu xuất kho nhưng trong đó có nhiều dòng trống, giờ mình muốn tạo nút lọc tại 1 cột thôi, khi click vào sẽ hiện lên các dòng dữ liệu và dòng blank. Mình không biết phải làm sao nữa để tạo nút lọc đó nữa (không phải dùng auto filter để hiện nút lọc hết các cột nhé). (đính kèm file)
Mong các anh chị hướng dẫn giúp. Xin cảm ơn

Để loại bỏ dòng trống, có nhiều cách và đây là 1 cách:

Sub ABC()
    Dim LR&
    Application.ScreenUpdating = False
    Dim Rng As Range
    LR = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
    Set Rng = Range("A9:A" & LR)
    Rng.AutoFilter
    Rng.AutoFilter Field:=1, Criteria1:=""
    Range("A10:A" & LR).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    ActiveSheet.AutoFilterMode = False
    Application.ScreenUpdating = False
End Sub