So sánh và tổng hợp dữ liệu

[Hoacomay96]

Cac bác ơi em có đề bài như sau nhờ các bác giải giúp. em có 1 bảng dữ liệu trong đó có chứa 1 cột số thứ tự. Và 6 cột chứa các số thứ tự của cột dũ liệu. có đoạn code nào để so sánh 2 cột đó và tự chèn thêm dòng và tổng hợp vào bảng tổng hợp không ? em có file kèm theo mong các bác giúp đỡ.

 

[SA_DQ]

Bạn xem thêm trong file đính kèm

Dòng tổng có 3 hướng giải quyết:
a*/ Bằng tay
b*/ Nhờ các bạn khác viết tiếp
c*/ Chờ vài mươi ngày nữa sẽ có
(Chú í: Dữ liệu có sửa cấu trúc 1 tẹo; Xem kỹ đỡ sai)

Option Explicit

Sub SoSanhDuLieu()
 Dim lRow As Long, jW As Long, jZ As Long, jJ As Long, cRow As Long, dRow As Long
 Dim Rng As Range, RngC As Range
 
 lRow = [c65432].End(xlUp).Row
 Range("B38:R321").Clear
 Range("F2:O2").Copy Destination:=Range("F38")
 Application.ScreenUpdating = False
 For jW = 18 To 23
    cRow = Range(Chr(64 + jW) & 36).End(xlUp).Row
    If cRow = 1 Then GoTo 17
    For jJ = 3 To lRow
        For jZ = 2 To cRow
            If Cells(jJ, 3) = Cells(jZ, jW) Then
                If Rng Is Nothing And RngC Is Nothing Then
                    Set Rng = Cells(jZ - 1, jW)
                    Set RngC = Cells(jJ, 3).Resize(1, 13)
                Else
                    Set Rng = Union(Rng, Cells(jZ, jW))
                    Set RngC = Union(RngC, Cells(jJ, 3).Resize(1, 13))
                End If
            End If
        Next jZ
    Next jJ
    dRow = [F65432].End(xlUp).Row + 1
    If dRow > 39 Then dRow = dRow + 1
    Rng.Copy Destination:=Range("B" & dRow)
    RngC.Copy Destination:=Range("C" & dRow)
    
    Set Rng = Nothing:                  Set RngC = Nothing
 
17 Next jW
End Sub

 

[Hoacomay96]

Các bác làm nốt giúp em bài toán này với, bác Sa_DQ đã viết được như trên rồi chỉ còn thiếu dòng tính tổng giá trị của các hàng thôi.