Nhờ giúp đỡ lọc dữ liệu có giá trị (1 người xem)

[dosontung86]

Mình có file đính kèm. Nhờ cả nhà giúp đỡ ạ.

Mình cần lọc ra dữ liệu như ở Sheet 2 ạ.
Từ cột A đến F là dữ liệu nguồn
Lọc dữ liệu cùng hàng có giá trị là 1 từ cột G đến GS
Tự động hiển thị lọc sang Sheet 2 ạ.
Dữ liệu cần lọc từ hàng 11 trở đi ạ

 

[Ba Tê]

Mình có file đính kèm. Nhờ cả nhà giúp đỡ ạ.

Mình cần lọc ra dữ liệu như ở Sheet 2 ạ.
Từ cột A đến F là dữ liệu nguồn
Lọc dữ liệu cùng hàng có giá trị là 1 từ cột G đến GS
Tự động hiển thị lọc sang Sheet 2 ạ.
Dữ liệu cần lọc từ hàng 11 trở đi ạ

Chạy thử Sub này coi sao chứ giải thích chưa hiểu.

Public Sub GPE()
Dim sArr(), dArr(), I As Long, J As Long, K As Long, Col As Long, MaxCol As Long
With Sheets("Tong hop")
    sArr = .Range(.[A3], .[A11].End(xlDown)).Resize(, 200).Value2
End With
ReDim dArr(1 To UBound(sArr, 1), 1 To 200)
For I = 9 To UBound(sArr, 1)
    Col = 4: K = K + 1
    dArr(K, 1) = K: dArr(K, 2) = sArr(I, 2)
    dArr(K, 3) = sArr(I, 4): dArr(K, 4) = sArr(I, 6)
    For J = 7 To UBound(sArr, 2)
        If sArr(I, J) = 1 Then
            Col = Col + 1
            dArr(K, Col) = sArr(1, J)
        End If
    Next J
    If MaxCol < Col Then MaxCol = Col
Next I
Sheet2.[A4].Resize(K, MaxCol) = dArr
End Sub

 

[dosontung86]

Được rồi anh ạ. Cảm ơn anh nhiều ạ

 

[dosontung86]

Nhưng anh ơi, em muốn cột A bên Sheet là số dữ liệu tương ứng với cột A từ A11 bên Sheet 1 chứ ko phải là theo số thứ tự thì phải sửa ntn ạ?

 

[Ba Tê]

Nhưng anh ơi, em muốn cột A bên Sheet là số dữ liệu tương ứng với cột A từ A11 bên Sheet 1 chứ ko phải là theo số thứ tự thì phải sửa ntn ạ?

Tìm trong code dòng này:

dArr(K, 1) = K: dArr(K, 2) = sArr(I, 2)

Thay cái dArr(K, 1)=K thành dArr(K, 1)=sArr(I, 1)

 

[dosontung86]

Quá tuyệt. Cảm ơn a nhiều