dangkygpexcel
Thành viên mới

- Tham gia
- 4/10/09
- Bài viết
- 9
- Được thích
- 0
Làm thử, ko biết có trúng không nhéLàm thế nào để ẩn nhiều hàng giống nhau trong EX
ở đây mình muốn ẩn 2 hàng tô màu vàng
vì nó không có giá trị không cần thiết
Nhờ các bạn chỉ cách làm nhanh nhất
(có file EX gửi kèm)
Sub An_Dong()
Dim Sarr, Rng As Range, I As Long
Set Rng = Range("D6:D" & [D65000].End(xlUp).Row)
Sarr = Rng.Value
For I = UBound(Sarr) To 1 Step -1
If Rng(I).Interior.ColorIndex = 6 Then
Rng.Rows(I).EntireRow.Hidden = True
End If
Next I
Set Rng = Nothing
End Sub
Sub Hien()
Cells.EntireRow.Hidden = False
End Sub
Làm thế nào để ẩn nhiều hàng giống nhau trong EX
ở đây mình muốn ẩn 2 hàng tô màu vàng
vì nó không có giá trị không cần thiết
Nhờ các bạn chỉ cách làm nhanh nhất
(có file EX gửi kèm)