Xin giúp chọn hàng từ 1 sheet khác

[pns56]

Xin chào các bạn GPE!
Tôi xin nhờ các bạn giúp cho tôi lọc lấy những hàng có học sinh phải thi lại từ sheet "BD" sang sheet "dstl" như trong file gửi đính kèm. Mong các bạn giúp đỡ.
Trân trọng kính chào

 

[thanhphuong]

Làm thủ công hoặc VBA gì cũng theo nguyên tắc lọc của Autofilter
1/ Đặt vệt sáng vào một ô của dòng tiêu đề
2/ Vào menu Data/Filter/AutoFilter
3/ Kích vào mũi tên trong cột thi lai chon NonBlanks
4/ Copy sang sheet khác
Thân

 

[pns56]

Xin cám ơn bạn ThanhPhương, nhưng thật ra mình muốn tự động hóa việc xuất hiện sheet "dstl" và sẽ ẩn sheet "BD" để không phải làm thủ công như cách bạn giới thiệu. Rất mong các bạn giúp đỡ! Xin chào.

 

[SA_DQ]

Đây là cách thô thiển nhất

Option Explicit

Sub CopyFor()
 Dim eRw As Long, Rng As Range, Cls As Range, Sh As Worksheet
 
 Sheets("BD").Select:            Set Sh = Sheets("DSTL")
 eRw = [B65500].End(xlUp).Row
 Sh.[B4].Resize(eRw, 5).ClearContents
 Set Rng = Range("F4:F" & eRw).SpecialCells(xlCellTypeConstants, 3)
 For Each Cls In Rng
   With Sh.[B65500].End(xlUp).Offset(1)
      .Resize(, 5).Value = Cells(Cls.Row, "B").Resize(, 5).Value
   End With
 Next Cls
End Sub

 

[concogia]

Xin cám ơn bạn ThanhPhương, nhưng thật ra mình muốn tự động hóa việc xuất hiện sheet "dstl" và sẽ ẩn sheet "BD" để không phải làm thủ công như cách bạn giới thiệu. Rất mong các bạn giúp đỡ! Xin chào.

Một cách ...thường làm

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Dim Ws As Worksheet
    Set Ws = Sheets("BD")
    Range("a3").CurrentRegion.Clear
        With Ws.Range("a3").CurrentRegion
            .AutoFilter 6, "<>"
            .SpecialCells(12).Copy [a3]
            .AutoFilter
        End With
Application.ScreenUpdating = True
End Sub

Bạn nhập dữ liệu ở sheet "BD" xong cứ chọn sheet "dstl" nó sẽ tự lọc