TỔNG HỢP DỮ LIỆU CÁC SHEET VỚI ĐIỀU KIỆN CHO TRƯỚC

[nai_con]

Kính gửi Quý Anh/Chị, Thầy/Cô.
Em có yêu cầu tổng hợp dữ liệu các sheet với điều kiện biết trước để tổng hợp riêng lẻ các nghiệp vụ khi cần thiết bằng công thức. Chi tiết mô tả theo file dữ liệu đính kèm.
Kính mong Quý Anh/Chị, Thầy/Cô giúp đỡ.
Chân thành cảm ơn!

 

[phulien1902]

Kính gửi Quý Anh/Chị, Thầy/Cô.
Em có yêu cầu tổng hợp dữ liệu các sheet với điều kiện biết trước để tổng hợp riêng lẻ các nghiệp vụ khi cần thiết bằng công thức. Chi tiết mô tả theo file dữ liệu đính kèm.
Kính mong Quý Anh/Chị, Thầy/Cô giúp đỡ.
Chân thành cảm ơn!

1 cách dùng VBA để bạn tham khảo, công thức thì bạn chờ nhé

Option Explicit
Sub Test()
Dim Sh As Worksheet
Dim a(), i As Long, b(1 To 6000, 1 To 2), k As Long, LR As Long
For Each Sh In Worksheets
    If Sh.Name <> "tonghop" Then
        With Sh
            a = .Range("B2:C" & .Range("B65000").End(3).Row).Value
            For i = 1 To UBound(a)
                If a(i, 2) = Sheets("tonghop").Range("F2") Then
                    k = k + 1
                    b(k, 1) = a(i, 1)
                    b(k, 2) = a(i, 2)
                End If
            Next i
        End With
    End If
Next Sh
If k > 0 Then
    With Sheets("tonghop")
        LR = .Range("B65000").End(3).Row
        If LR > 2 Then
            .Range("B2:C" & LR).ClearContents
        End If
        .Range("B2").Resize(k, 2) = b
    End With
    End If
End Sub

 

[HieuCD]

Kính gửi Quý Anh/Chị, Thầy/Cô.
Em có yêu cầu tổng hợp dữ liệu các sheet với điều kiện biết trước để tổng hợp riêng lẻ các nghiệp vụ khi cần thiết bằng công thức. Chi tiết mô tả theo file dữ liệu đính kèm.
Kính mong Quý Anh/Chị, Thầy/Cô giúp đỡ.
Chân thành cảm ơn!

Dùng 4 cột phụ