Chào AC! Em muốn nhờ anh chị hoàn thiện cho em code ẩn những dòng dữ liệu không có phát sinh?
Sub bebeen()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
Set WorkRng = Application.Sheets("TH_HANGNHAP").Range("D7:D1000")
For Each Rng In WorkRng
If Rng.Value = "0" Then
Rng.EntireRow.Hidden = True
End If
Next
End Sub
Public Sub hello()
S11.Range("A7:E10000").AutoFilter 4, ">0"
End Sub
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2