Lọc dữ liệu (1 người xem)

[trongtuankt]

Em có một bảng dữ liệu không liên tục, em muốn lọc ra 1 bảng khác nhưng bảng đó là mẫu có sẵn, em có gửi file đính kèm anh chị giúp em với ạ, em cảm ơn.

 

[Let'GâuGâu]

Em có một bảng dữ liệu không liên tục, em muốn lọc ra 1 bảng khác nhưng bảng đó là mẫu có sẵn, em có gửi file đính kèm anh chị giúp em với ạ, em cảm ơn.

30 tết rồi mà còn phải cài, cực vậy bạn
ở bảng 2, bạn fillter bỏ blank đi, xong copy, xong chọn lại blank trong cái filter đó, xong paste lại vô bảng 1 là được

 

[comet_1701]

Em có một bảng dữ liệu không liên tục, em muốn lọc ra 1 bảng khác nhưng bảng đó là mẫu có sẵn, em có gửi file đính kèm anh chị giúp em với ạ, em cảm ơn.

Bạn làm như cách của Bác Let'Go cho đơn giản nhé, nếu cần copy chỉ cần đoạn đơn giản thế này thôi. 30 roài nghỉ thôi bạn, sang năm tha hồ mà chiến đấu.

Sub Copy()
Dim Sarr, Arr, i As Long, k As Long, j As Long
Sarr = Range([E8], [E65000].End(xlUp)).Resize(, 6).Value2
ReDim Arr(1 To UBound(Sarr), 1 To 3)
For i = 1 To UBound(Sarr)
    If Sarr(i, 1) = "111" Then
        k = k + 1
        For j = 1 To 3
            Arr(k, j) = Sarr(i, j)
        Next
    End If
Next
[A8].Resize(k, 3).ClearContents
[A8].Resize(k, 3).Value = Arr
End Sub