Nhờ giúp đỡ về Hide và Unhide dòng (1 người xem)

[tieulatba]

Các bác giúp em ẩn hiện dòng theo điều kiện với

 

[phulien1902]

Các bác giúp em ẩn hiện dòng theo điều kiện với

Bạn thử với:

Sub abc()
    Dim i As Long
    Rows.Hidden = False
    For i = 39 To 12 Step -1
        If Cells(i, 1) = 0 Then Rows(i).EntireRow.Hidden = True
    Next i
End Sub

 

[phulien1902]

Hoặc:

Sub abc2()
    With Sheets(1)
        .Range("A12:A" & .Range("A" & Rows.Count).End(3).Row).AutoFilter 1, "<>0"
    End With
End Sub

 

[tieulatba]

Cảm ơn bác nhé. Có thể đưa ô J6 vào vòng lặp được không?

 

[ndu96081631]

Các bác giúp em ẩn hiện dòng theo điều kiện với

Giải quyết 1 lần trọn vẹn bài toán của bạn luôn. Bỏ hết các cột phụ không cần thiết, cũng chẳng cần phải VBA để ẩn dòng làm gì
Cách làm như sau:
- Tại sheet2, gõ công thức =COUNT(B$1:B1) vào cell A1 rồi kéo fill xuống đến hết
- Tại shee1, gõ công thức =$J$6+ROWS($1:1)-1 vào cell A12 rồi kéo fill xuống
- Tại sheet1, cell B11 bạn gõ công thức =IFERROR(VLOOKUP($A12,Sheet2!$A$1:$O$52,COLUMNS($A:B),0),"") rồi kéo fill sang phải và xuống dưới
Xong!
Giờ bấm Spinner 1 và... thưởng thức
(thậm chí có thể bỏ luôn cột A ở sheet1 cũng được)

 

[tieulatba]

Không được bác "ndu" ạ, vì tại sheet 1 em muốn lấy dữ liệu trong khoảng mình cần tìm chứ không phải lấy hết dữ liệu như ý bác

 

[ndu96081631]

Không được bác "ndu" ạ, vì tại sheet 1 em muốn lấy dữ liệu trong khoảng mình cần tìm chứ không phải lấy hết dữ liệu như ý bác

Bấm Spinner 1 sẽ thấy