Giúp thu gọn sắp xếp bảng dữ liệu liệu về dạng cột (1 người xem)

[Ngocminh19]

Chào anh chị
Em đang có dữ liệu bảng với chiều ngang
Em muốn sắp xếp theo chiều dọc của bảng dữ liệu theo từng Model
Anh chị xem và code giúp em với ạ. Em cảm ơn!
*Mô tả
1. Dựa theo dữ liệu từ sheet BOM,có tên Model
2. Dựa theo dữ liệu sheet BOM cột A=> E
3. Dựa theo số lượng theo bảng ở sheet BOM
Mong muốn
-Sắp xếp dữ liệu từ chiều ngang về chiều dọc rút gọn từng Model => PN=> Maker=>
'-Với khi bắt đầu Model mới thì để PN "Bare PCB",ở dòng đầu tiên . Em có môi màu xanh ạ

 

[Hoàng Tuấn 868]

Chào anh chị
Em đang có dữ liệu bảng với chiều ngang
Em muốn sắp xếp theo chiều dọc của bảng dữ liệu theo từng Model
Anh chị xem và code giúp em với ạ. Em cảm ơn!
*Mô tả
1. Dựa theo dữ liệu từ sheet BOM,có tên Model
2. Dựa theo dữ liệu sheet BOM cột A=> E
3. Dựa theo số lượng theo bảng ở sheet BOM
Mong muốn
-Sắp xếp dữ liệu từ chiều ngang về chiều dọc rút gọn từng Model => PN=> Maker=>
'-Với khi bắt đầu Model mới thì để PN "Bare PCB",ở dòng đầu tiên . Em có môi màu xanh ạ
View attachment 309164

Bạn nên mô tả từng bước làm thủ công và điều kiện cụ thể cho các bước đó để ra được kết quả mẫu, chứ cứ nói dựa theo dựa theo thì khó hình dung.

 

[Ngocminh19]

Bạn nên mô tả từng bước làm thủ công và điều kiện cụ thể cho các bước đó để ra được kết quả mẫu, chứ cứ nói dựa theo dựa theo thì khó hình dung.

Dạ,cảm ơn anh. Mong anh xem và giúp đỡ
Em đnag tính làm như này ạ
1.Em lấy 1 MODEL ở sheet BOM lọc giá trị lớn hơn 0 và coppy chuyển sang sheet2

2. Coppy và paste sang Sheet2 theo từ tự MODEL rồi đến PN=> Maker...=> số lượng

3. Với dòng có chữ " Bare PCB : em sẽ coppy lên đầu dòng và bôi màu,để pân biệt từ MODEL
1 model lọc chỉ có 1 dòng có Bare PCB thôi ạ

4. Các bước lặp lại ạ,nếu coppy thêm làm taamf~1000 lần và cac thao tác khác chưa kể

 

[LOGANWover]

Không biết có đúng ý tưởng của bạn không, bạn thử nhé.

 

[HUONGHCKT]

Chào anh chị
Em đang có dữ liệu bảng với chiều ngang
Em muốn sắp xếp theo chiều dọc của bảng dữ liệu theo từng Model
Anh chị xem và code giúp em với ạ. Em cảm ơn!

Thêm 1 code khác cho bạn tham khảo.
Làm theo ý hiểu của bản thân.

Sub TAM()
Dim i&, j&, Lr&, t&, k&, R&, C&, d&
Dim Arr(), KQ()
Dim Dic As Object, Key

With Sheets("BOM")
Lr = .Range("B100000").End(xlUp).Row
C = .Cells(1, Columns.Count).End(xlToLeft).Column
Arr = .Range(.Cells(1, 1), .Cells(Lr, C)).Value
R = UBound(Arr)
End With
ReDim KQ(1 To R * (C - 5), 1 To 7)
d = 3
For j = 6 To C
    For i = d To R
        If Arr(i, j) > 0 And Arr(i, 4) = "Bare PCB" Then
                t = t + 1
                KQ(t, 1) = t
                KQ(t, 2) = Arr(1, j)
                KQ(t, 3) = Arr(i, 2)
                KQ(t, 4) = Arr(i, 3)
                KQ(t, 5) = Arr(i, 4)
                KQ(t, 6) = Arr(i, 5)
                KQ(t, 7) = Arr(i, j)
                d = i: Exit For
        End If
    Next i
    For i = 3 To R
        If i <> d And Arr(i, j) > 0 Then
            t = t + 1
            KQ(t, 1) = t
            KQ(t, 2) = Arr(1, j)
            KQ(t, 3) = Arr(i, 2)
            KQ(t, 4) = Arr(i, 3)
            KQ(t, 5) = Arr(i, 4)
            KQ(t, 6) = Arr(i, 5)
            KQ(t, 7) = Arr(i, j)
        End If
    Next i
Next j
If t Then
    Sheet1.Range("I2").Resize(100000, 7).ClearContents
    Sheet1.Range("I2").Resize(t, 7) = KQ
End If
MsgBox "Done"

End Sub

xem file đính kèm
Kết quả đang để ở I2/Sheet1 để cho bạn đối chiếu
Các vấn đề định dạng bạn tự làm.