Bố trí dữ liệu theo điều kiện? (1 người xem)

[KUMI]

Xin chào Thầy Cô và Anh Chị cùng các bạn!
Em có một vấn đề do hơi khó giải thích nên em đã viết vào file đính kèm.
Nhờ mọi người giúp đỡ em với ạ!
Em xin cảm ơn.

 

[phucbugis]

Xin chào Thầy Cô và Anh Chị cùng các bạn!
Em có một vấn đề do hơi khó giải thích nên em đã viết vào file đính kèm.
Nhờ mọi người giúp đỡ em với ạ!
Em xin cảm ơn.

bạn test thử code sau:

Sub GPE_test()
Dim rng1 As Range, rng2 As Range

    For Each rng1 In Range("I3:I8")
    n = 0
        For Each rng2 In Range("F5:F16")
        If rng1 = rng2 Then
            If n < 3 Then
                rng1.Offset(, 6 + n) = rng2.Offset(, 1)
            Else
                rng1.Offset(, 8) = rng1.Offset(, 8) + rng2.Offset(, 1)
            End If
            n = n + 1
        End If
        Next
    Next
End Sub

 

[Comet297]

Tại K3 bạn dùng công thức sau rồi kéo sang các ô khác

=IFERROR(INDEX($G$5:$G$16,SMALL(IF($F$5:$F$16=$I3,ROW($5:$16),""),COLUMN(A:A))-4),"")

 

[KUMI]

Tại K3 bạn dùng công thức sau rồi kéo sang các ô khác

=IFERROR(INDEX($G$5:$G$16,SMALL(IF($F$5:$F$16=$I3,ROW($5:$16),""),COLUMN(A:A))-4),"")

Rất cảm ơn sử giúp đỡ của mọi người,
Em test cả code và công thức đều đúng.
Tuy nhiên với công thức trên em chưa hiểu lắm nên đã tách dữ liệu làm 2 sheets.
Phiền anh sửa lại công thức trên vào file đính kèm hiện tại lại giúp em với ạ,để em so sánh với công thức cũ mong rằng sẽ hiểu được vấn đề hơn.
Xin cảm ơn!

 

[Let'GâuGâu]

Xin chào Thầy Cô và Anh Chị cùng các bạn!
Em có một vấn đề do hơi khó giải thích nên em đã viết vào file đính kèm.
Nhờ mọi người giúp đỡ em với ạ!
Em xin cảm ơn.

tôi đang tập tành viết code, mượn bài của bạn làm bài tập
nhớ chấm điểm nha....kàkà....

Sub tt()

Dim sarr() As Variant, kq(), Dic As Object

sarr = [f5:g16].Value
ReDim kq(1 To UBound(sarr), 1 To 5)
Set Dic = CreateObject("Scripting.Dictionary")
k = 1
For i = 1 To UBound(sarr)
    If Not Dic.Exists(sarr(i, 1)) And sarr(i, 1) <> "" Then
        Dic.Add sarr(i, 1), ""
        kq(k, 1) = sarr(i, 1)
        kq(k, 3) = sarr(i, 2)
        k = k + 1
    Else
        l = 1
        For Each v In Dic.Keys
        If sarr(i, 1) = v And kq(l, 4) = "" Then kq(l, 4) = sarr(i, 2)
        l = l + 1
        Next
    End If
            kq(i, 5) = kq(i, 3) + kq(i, 4)

       Next

[o3].Resize(k, 5).Value = kq

Set Dic = Nothing



End Sub

 

[dhn46]

Rất cảm ơn sử giúp đỡ của mọi người,
Em test cả code và công thức đều đúng.
Tuy nhiên với công thức trên em chưa hiểu lắm nên đã tách dữ liệu làm 2 sheets.
Phiền anh sửa lại công thức trên vào file đính kèm hiện tại lại giúp em với ạ,để em so sánh với công thức cũ mong rằng sẽ hiểu được vấn đề hơn.
Xin cảm ơn!

Bạn thay như thế này

=IFERROR(INDEX([B]Sheet1!$E$7:$E$18[/B],SMALL(IF([B]Sheet1!$D$7:$D$18=$I3[/B],ROW($5:$16),""),COLUMN(A:A))-4),"")

 

[KUMI]

Bạn thay như thế này

=IFERROR(INDEX([B]Sheet1!$E$7:$E$18[/B],SMALL(IF([B]Sheet1!$D$7:$D$18=$I3[/B],ROW($5:$16),""),COLUMN(A:A))-4),"")

Anh Ninh giả thích giúp em ROW($5:$16) và COLUMN(A:A))-4) với ạ?
ROW($5:$16) em mới hiểu là 12 dòng tương ứng với 12 dòng điểm của sheets 1 không hiểu như vậy có đúng không?
Còn COLUMN(A:A))-4) thì là thế nào ạ?
-----------------

tôi đang tập tành viết code, mượn bài của bạn làm bài tập
nhớ chấm điểm nha....kàkà....

Sub tt()

Dim sarr() As Variant, kq(), Dic As Object

sarr = [f5:g16].Value
ReDim kq(1 To UBound(sarr), 1 To 5)
Set Dic = CreateObject("Scripting.Dictionary")
k = 1
For i = 1 To UBound(sarr)
    If Not Dic.Exists(sarr(i, 1)) And sarr(i, 1) <> "" Then
        Dic.Add sarr(i, 1), ""
        kq(k, 1) = sarr(i, 1)
        kq(k, 3) = sarr(i, 2)
        k = k + 1
    Else
        l = 1
        For Each v In Dic.Keys
        If sarr(i, 1) = v And kq(l, 4) = "" Then kq(l, 4) = sarr(i, 2)
        l = l + 1
        Next
    End If
            kq(i, 5) = kq(i, 3) + kq(i, 4)

       Next

[o3].Resize(k, 5).Value = kq

Set Dic = Nothing



End Sub

Thật sự nhìn code em không biết thế nào là hay cả kết quả chuẩn với ý mình là em thích luôn rồi.
Nhưng với code này có một cái khác biệt là vừa lọc duy nhất các môn vừa xuất ra kết quả theo ý muốn --> Tuyệt cú mèo
Nhưng mà code chạy lần 3 chưa đúng ạ,anh sửa lại giúp em với ạ.
Còn một số các biến chưa khai báo hết nên code chạy phát sinh lỗi.. em đã bổ sung và chạy thử.
hihi! Cảm ơn GPE rất nhiều!

 

[dhn46]

Anh Ninh giả thích giúp em ROW($5:$16) và COLUMN(A:A))-4) với ạ?
ROW($5:$16) em mới hiểu là 12 dòng tương ứng với 12 dòng điểm của sheets 1 không hiểu như vậy có đúng không?
Còn COLUMN(A:A))-4) thì là thế nào ạ?

Mình giải thích cho bạn như thế này:
- Phần màu đỏ: sẽ tạo 1 mảng gồm 12 phần tử từ 5=>16 tức là {5,6,7.......,16}
- Phần màu xanh: Bạn để ý COLUMN(A:A))-4) sds phần ) là của hàm Column còn phần ) là của hàm Small => Toàn bộ phần bạn hỏi là kết quả của phép trừ giữa giá trị Small và 4

 

[KUMI]

Mình giải thích cho bạn như thế này:
- Phần màu đỏ: sẽ tạo 1 mảng gồm 12 phần tử từ 5=>16 tức là {5,6,7.......,16}
- Phần màu xanh: Bạn để ý COLUMN(A:A))-4) sds phần ) là của hàm Column còn phần ) là của hàm Small => Toàn bộ phần bạn hỏi là kết quả của phép trừ giữa giá trị Small và 4

Nói thật với anh nếu như thế này thì em cũng chưa hiểu gì về 2 cái này cả... có lẽ do em dốt quá
Chắc là sẽ rất khó giải thích rõ hơn nữa,... hi vọng sau này em sẽ hiểu được.
Cảm ơn anh nhé!

 

[KUMI]

bạn test thử code sau:

Sub GPE_test()
Dim rng1 As Range, rng2 As Range

    For Each rng1 In Range("I3:I8")
    n = 0
        For Each rng2 In Range("F5:F16")
        If rng1 = rng2 Then
            If n < [COLOR=#ff0000][B]3[/B][/COLOR] Then
                rng1.Offset(,  [COLOR=#ff0000][B]6[/B][/COLOR]+ n) = rng2.Offset(, 1)
            Else
                rng1.Offset(, [COLOR=#ff0000][B]8[/B][/COLOR]) = rng1.Offset(, [B][COLOR=#ff0000]8[/COLOR][/B]) + rng2.Offset(, [COLOR=#ff0000][B]1[/B][/COLOR])
            End If
            n = n + 1
        End If
        Next
    Next
End Sub

Anh ơi các chỉ số 3,6,8,1 là gì vậy ạ. Em muốn thêm dữ liệu mà sử dụng code này không biết sửa chữa ra sao.
Rất mong lại nhận được thêm sự trợ giúp của anh và GPE!

 

[phucbugis]

Anh ơi các chỉ số 3,6,8,1 là gì vậy ạ. Em muốn thêm dữ liệu mà sử dụng code này không biết sửa chữa ra sao.
Rất mong lại nhận được thêm sự trợ giúp của anh và GPE!

chào bạn,

cụ thể thế này:
n<3 là ứng với n=1 (lần 1), 2 (lần 2), điền kết quả vào các cột đó.
6 là tại mỗi rng1 của cột I được tìm thấy sẽ dịch qua phải 6 ô.
8 cũng tương tự như 6 thế, nó khác ở chỗ là lần 3 (lần sau cùng được cộng tổng --> mình có thể cố định được vị trí cột)
1: là nó dò tìm các rng2 trong vùng F5:F16 và dịch sang phải 1 ô.