Nhờ các Anh chị giúp em với: Công thức tính toán ạ (1 người xem)

[moonsun1130]

Nhờ các Anh chị giúp em bài toán này với ạ. Em cảm ơn nhiều ạ

 

[SA_DQ]

Với tiêu đề như vầy, chúng ta dễ vô thùng rác lắm!

Đây là macro gắn vô nút lệnh dùng mới chỉ tính trị trung bing của 10 ô 1

Option Explicit
Sub gpeTinh()
 Dim Rng As Range, Cls As Range, WF As Object
 Dim J As Byte
 
 Set WF = Application.WorksheetFunction
 For Each Cls In Range([B1], [B1].End(xlDown))
    For J = 2 To 255 Step 10
        Cls.Offset(14, J - 2).Value = WF.Average(Cls.Offset(, J - 2).Resize(, 10))
    Next J
 Next Cls
End Sub