[Hepl] Lọc dữ liệu theo hàng (1 người xem)

[gh0st02]

Chào các bác !
Em có bài toán này đau đầu từ chiều đến giờ.
Từ bảng dữ liệu của Sheet BOM em muốn lọc ra danh sách như Sheet1 [Biến là các giá trị theo hàng ngang]
Các bác làm ơn vào giúp em với ạ.
Em cảm ơn nhiều !

 

[Hoang2013]

Có bài toán này đau đầu từ chiều đến giờ.
Từ bảng dữ liệu của Sheet BOM em muốn lọc ra danh sách như Sheet1 [Biến là các giá trị theo hàng ngang]
Các bác làm ơn vào giúp em với ạ.

Nên có file, bạn sẽ nhận ngay sự hỗ trợ từ cộng đồng.

 

[hitoko]

chắc ko bít đính kèm!

 

[gh0st02]

Sorry các bác.
Hôm qua em tải cái tập tin hơi lớn nên không lên được.
Các bác xem lại giúp em nhá !

 

[HieuCD]

Sorry các bác.
Hôm qua em tải cái tập tin hơi lớn nên không lên được.
Các bác xem lại giúp em nhá !

bạn chạy thử code

Sub GPE()
Dim Darr(), Arr(), Dic As Object, i As Long, R As Long, k As Long, j As Long
Set Dic = CreateObject("scripting.dictionary")
R = Sheets("BOM").Range("A4").End(xlDown).Row - 1
Darr = Sheets("BOM").Range("A2:FD" & R + 1).Value
ReDim Arr(1 To (UBound(Darr, 2) - 4) * R, 1 To 5)
k = 1
For j = 5 To UBound(Darr, 2)
  If Darr(R, j) > 0 Then
    Arr(k, 1) = Darr(1, j)
    For i = 3 To R - 1
      If Darr(i, j) > 0 Then
        Arr(k, 2) = Darr(i, 1): Arr(k, 3) = Darr(i, 2)
        Arr(k, 4) = Darr(i, 3): Arr(k, 5) = Darr(i, j)
        k = k + 1
      End If
    Next i
  End If
Next j
Sheets("Sheet1").Range("C5:G5000").ClearContents
Sheets("Sheet1").Range("C5").Resize(k - 1, 5) = Arr
End Sub

 

[gh0st02]

Cảm ơn bác #HieuCD, rất hợp ý em ạ.
Bác xem từ cái này mình có thể làm cho cái danh sách code gọn lại 1 chút, theo kiểu danh sách xổ xuống và lọc theo từng code 1 được không ?

 

[befaint]

Cảm ơn bác #HieuCD, rất hợp ý em ạ.
Bác xem từ cái này mình có thể làm cho cái danh sách code gọn lại 1 chút, theo kiểu danh sách xổ xuống và lọc theo từng code 1 được không ?

Xem file đính kèm...

 

[HieuCD]

Cảm ơn bác #HieuCD, rất hợp ý em ạ.
Bác xem từ cái này mình có thể làm cho cái danh sách code gọn lại 1 chút, theo kiểu danh sách xổ xuống và lọc theo từng code 1 được không ?

Code VBA thì bạn dùng file của bạn Befaint, mình góp thêm cách dùng công thức với 1 cột phụ

 

[gh0st02]

Rất tuyệt vời !
Cảm ơn các bác rất nhiều !