Nhò Các bác chỉ giúp khi in dòng có giá trị bằng không tự động co lên ẩn đi.
Bài này khi thực hiện xong sau đó dùng AutoFilter để cho ẩn dòng chữa những giá trị 0 là được.Nhò Các bác chỉ giúp khi in dòng có giá trị bằng không tự động co lên ẩn đi.
Sub Andong()
With Sheet1.Range("A1").CurrentRegion
.AutoFilter Field:=2, Criteria1:="<>0"
End With
End Sub