Nhờ các anh/chị giúp lọc dữ liệu trong 1 bảng sang bảng khác

[sportnt]

Dear các anh/ chị,

Cần các anh chị chỉ giúp hàm lọc giá trị:
+ Nội dung: Kiểm tra trong bảng nếu 1 cột trong bảng có các ô có giá trị >0 thì
(1) Lọc ra giá trị đó và
(2) Lọc ra giá trị tại ô cùng hàng tương ứng

+ Chi tiết & ví dụ: File đính kèm bài.

Cảm ơn.

 

[ninhmoon]

Dear các anh/ chị,Cần các anh chị chỉ giúp hàm lọc giá trị: + Nội dung: Kiểm tra các nếu 1 cột có các ô có giá trị >0 thì (1) Lọc ra giá trị đó và (2) Lọc ra giá trị tại ô cùng hàng tương ứng+ Chi tiết & ví dụ: File đính kèm bài. Cảm ơn.

không thấy file đính kèm, bạn tải lại nên xem đi.

 

[vanle33]

Dear các anh/ chị,

Cần các anh chị chỉ giúp hàm lọc giá trị:
+ Nội dung: Kiểm tra các ....... nếu 1 cột có các ô có giá trị >0 thì
(1) Lọc ra giá trị đó và
(2) Lọc ra giá trị tại ô cùng hàng tương ứng

+ Chi tiết & ví dụ: File đính kèm bài.

Cảm ơn.

Ở đây có hai con ma đó là 2 chỗ có màu xanh + đậm + gạch chân.

 

[sportnt]

Ở đây có hai con ma đó là 2 chỗ có màu xanh + đậm + gạch chân.

Hihi, lần đầu tham gia diễn đàn nên chưa quen cách upload. Đã chỉnh sửa thông tin bài trên.

Cảm ơn bác.

 

[comet_1701]

View attachment 137217
Dear các anh/ chị,

Cần các anh chị chỉ giúp hàm lọc giá trị:
+ Nội dung: Kiểm tra trong bảng nếu 1 cột trong bảng có các ô có giá trị >0 thì
(1) Lọc ra giá trị đó và
(2) Lọc ra giá trị tại ô cùng hàng tương ứng

+ Chi tiết & ví dụ: File đính kèm bài.

Cảm ơn.

Ko cần công thức đâu bạn
Tạo bô lọc Auto Filter, chọn cột E bỏ blank
Bôi đên vùng cần copy-->Ctrl+G-->special-->visble cell only
Ctrl+C-->ctrl+V

 

[sportnt]

Ko cần công thức đâu bạn
Tạo bô lọc Auto Filter, chọn cột E bỏ blank
Bôi đên vùng cần copy-->Ctrl+G-->special-->visble cell only
Ctrl+C-->ctrl+V

Thanx bác đã cho ý kiến hỗ trợ, tuy nhiên do thực tế bảng 1 sử dụng gồm rất nhiều cột ở giữa và trong quá trình nhập liệu có bổ sụng nhiều nội dung khác.
Do đó mình mới cần phải tách ra bảng 2 (chỉ gồm 2 cột để tiện sử dụng và in ra), chứ dùng bộ lọc thì mình cũng nghĩ đến nhưng xài thì ko thuận tiện.

AE lướt qua topic nếu có phương án nào để ra bảng 2 thì giúp nhé. Cảm ơn

 

[comet_1701]

Thanx bác đã cho ý kiến hỗ trợ, tuy nhiên do thực tế bảng 1 sử dụng gồm rất nhiều cột ở giữa và trong quá trình nhập liệu có bổ sụng nhiều nội dung khác.
Do đó mình mới cần phải tách ra bảng 2 (chỉ gồm 2 cột để tiện sử dụng và in ra), chứ dùng bộ lọc thì mình cũng nghĩ đến nhưng xài thì ko thuận tiện.

AE lướt qua topic nếu có phương án nào để ra bảng 2 thì giúp nhé. Cảm ơn

Thế thử dùng code vậy xem sao

Sub copy()
Dim Sarr, Arr, i As Long, k As Long
With Sheet1
    Sarr = .Range(.[B3], .[B65000].End(xlUp)).Resize(, 4).Value2
End With
ReDim Arr(1 To UBound(Sarr, 1), 1 To 2)
For i = 1 To UBound(Sarr, 1)
    If Sarr(i, 4) > 0 Then
        k = k + 1
        Arr(k, 1) = Sarr(i, 1)
        Arr(k, 2) = Sarr(i, 4)
    End If
Next
    [I3:J65000].ClearContents
    [I3].Resize(k, 2).Value = Arr
End Sub