Tổng hợp số liệu 31 ngày vào sheet TH (2 người xem)

[Excel365]

Mỗi trang tính tương ứng với 1 tháng. Nay em muốn tổng hợp cột Thành tiền của 31 ngày vào sheet TH.
Mỗi tháng sẽ phát sinh thêm trường hợp TÊN mới. Tên mới này sẽ được cập nhật bên TH
Trân trọng cảm ơn
http://www.mediafire.com/view/n9lc726iil9kuua/Block-GPE.xlsm

 

[ChanhTQ@]

Bạn lấy cái này chép đè lên toàn bộ;

' Đã được tác giả trích nguyên văn bên dưới. '

Tuy nhiên vẫn nhắc bạn 1 điều là trong CSDL có dòng trống không bao giờ là hay cả!

 

[Excel365]

Bạn lấy cái này chép đè lên toàn bộ;

Option Explicit
Const SoNV As Integer = 2000                        '++'
Sub THLuong()
 Dim Cls As Range, Sh As Worksheet, Rng As Range, sRng As Range
 Dim Rws&, Off_ As Byte, Tmr#
     
 Sheets("TH").Select:                               Tmr = Timer()
 Rws = [c6].CurrentRegion.Rows.Count
 [g6].Resize(SoNV, 31).ClearContents
 For Each Cls In Range([c6], [C65500].End(xlUp))    '<=|'
    If Cls.Value <> "" Then                         '++'
        For Each Sh In ThisWorkbook.Worksheets
            If IsNumeric(Sh.Name) Then
                Off_ = CByte(Sh.Name)
                Set Rng = Sh.[c3].Resize(SoNV)      '<=|'
                Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
                If Not sRng Is Nothing Then
                    Cells(Cls.Row, "F").Offset(, Off_).Value = sRng.Offset(, 3).Value
                End If
            End If
        Next Sh
    End If                                          '++'
 Next Cls
 [a4].Value = Timer() - Tmr
End Sub

[h=1]Trân trọng Cám ơn ChanhTQ@ nhiều.[/h]

 

[Trần Văn Bình]

Nhờ các bác giúp thông kê tại sheet Thongke với điều kiện tại các sheet cột K:K có dữ liệu <70 hoặc tại sheet TH có dữ liệu các cột <70
chi tiết nhừ fle đính kèm