Ẩn dòng bằng VBA.

Chia sẻ bởi:hands

★★★★★

‹ Tìm Hàm ngược với Hàm RAND tính hàng khuyến mãi theo mõi mã... ›

Quảng cáo

Xin chào ACE.
Em có 1 File ở Sheet Packing 8hr,em muốn ấn các dòng( row) từ A22:A636,những ô giá trị = 0
ACE cho em xin code VBA cho trường hợp này được không ạ.
thanks !

Ép nó dùng UNION cũng được. Nhưng chỉ thắc mắc là vùng đã xác định từ 22:636 rồi mà nó còn đi tìm lastRow làm gì không biết?

66216620

Sub HideRowsWithZeroValue()
Dim ws As Worksheet
Dim lastRow As Long
Dim rngToHide As Range
Dim i As Long

Set ws = ThisWorkbook.Sheets("Sheet1") ' Replace "Sheet1" with your actual sheet name

With ws
lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row ' Find the last row in column A

Application.ScreenUpdating = False ' Disable screen updating for faster execution

For i = 6 To 636 ' Rows 6 to 636
If .Cells(i, 1).Value = 0 Then ' Check if the value in column A is 0
If rngToHide Is Nothing Then
Set rngToHide = .Rows(i)
Else
Set rngToHide = Union(rngToHide, .Rows(i))
End If
End If
Next i

If Not rngToHide Is Nothing Then
rngToHide.EntireRow.Hidden = True ' Hide the rows using the Union range
End If

Application.ScreenUpdating = True ' Enable screen updating

End With
End Sub

1684204324
Sau vài lần ép nó ra bã, yêu cầu GPT phải đi tìm phương án tối ưu, phương án cuối cùng nhanh nhất và tối ưu nhất là Filter
66196618

Sub HideRowsWithZeroValue()
Dim ws As Worksheet
Dim lastRow As Long

Set ws = ThisWorkbook.Sheets("Sheet1") ' Replace "Sheet1" with your actual sheet name

With ws
Application.ScreenUpdating = False ' Disable screen updating for faster execution

lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row ' Find the last row in column A

.Range("A6:A636").AutoFilter Field:=1, Criteria1:=0 ' Apply filter to column A with value 0

If Application.WorksheetFunction.Subtotal(103, .Columns(1)) > 1 Then ' Check if any visible cells exist (excluding the header row)
.Range("A7:A" & lastRow).SpecialCells(xlCellTypeVisible).EntireRow.Hidden = True ' Hide visible rows (excluding the header row)
End If

.AutoFilterMode = False ' Turn off the AutoFilter

Application.ScreenUpdating = True ' Enable screen updating
End With
End Sub