Hỏi về Copy/Pase dữ liệu từ các Sheet con vào sheet tổng hợp theo điều kiện? (1 người xem)

[gakon_Office]

Em chào mọi nguời!
Mong mọi người xem và tìm cách giúp đỡ cho em trường hợp này với ạ!
Cụ thể chi tiết câu hỏi và kết quả minh họa em đã để trong file đính kèm.
Mong được sự trợ giúp! Xin cám ơn!

 

[nghiaphuc]

Em chào mọi nguời!
Mong mọi người xem và tìm cách giúp đỡ cho em trường hợp này với ạ!
Cụ thể chi tiết câu hỏi và kết quả minh họa em đã để trong file đính kèm.
Mong được sự trợ giúp! Xin cám ơn!

Bạn thử ý tưởng thế này xem:
1. Copy tất cả vào 1 vùng tạm trên sheet tổng.
2. Sử dụng Advanced Filter để copy các dòng thỏa điều kiện sang vùng đích.
3. Xóa vùng tạm đi.

 

[hungpecc1]

Em chào mọi nguời!
Mong mọi người xem và tìm cách giúp đỡ cho em trường hợp này với ạ!
Cụ thể chi tiết câu hỏi và kết quả minh họa em đã để trong file đính kèm.
Mong được sự trợ giúp! Xin cám ơn!

bạn thử tùy biến theo code này xem :

ví dụ : Bạn redim lại Arr() .............

Sub copy_paste()
    Dim ws As Worksheet
    Dim n As Long, i As Long, index As Integer
    Dim tmpArr(), item, Arr()
        ReDim Arr(1 To 1000, 1 To 9)
        For Each ws In Worksheets
            If ws.Name <> Sheets(1).Name Then
                tmpArr = ws.Range("C9:K25").Value
                For i = 1 To UBound(tmpArr, 1)
                    If tmpArr(i, 1) = 0 Then
                        n = n + 1
                        For index = 1 To 9
                            Arr(n, index) = tmpArr(i, index)
                        Next
                    End If
                Next
            End If
        Next
        [C29].Resize(n, 9) = Arr
        
End Sub

 

[gakon_Office]

Xin chào ACE cùng các Thầy Cô.
Nhân dịp đầu năm em Chúc toàn thể mọi người sức khỏe tốt và công tác tốt ạ!
Em có một vấn đề muốn nhờ các chuyên gia giúp đỡ.
Câu hỏi em đã để trong file kèm..mọi người xem có cách nào giải quyết được không ạ?
Em Xin cám ơn nhiều ạ!

 

[Quang_Hải]

Xin chào ACE cùng các Thầy Cô.
Nhân dịp đầu năm em Chúc toàn thể mọi người sức khỏe tốt và công tác tốt ạ!
Em có một vấn đề muốn nhờ các chuyên gia giúp đỡ.
Câu hỏi em đã để trong file kèm..mọi người xem có cách nào giải quyết được không ạ?
Em Xin cám ơn nhiều ạ!

Thử code này xem đúng ý không

Sub test()
With Sheet1.[C8:G25]
   .AutoFilter 3, "<>"
   .SpecialCells(12).Copy
   Sheet2.[C65536].End(3).Offset(1).PasteSpecial 3
   .Parent.[E8:G25].ClearContents
   .AutoFilter
End With
End Sub