Tìm giá trị nhỏ nhất của từng năm (1 người xem)

[anhtb82]

Xin chào mọi người, mình có bài tập như sau muốn mọi người chỉ giúp code VBA cho bài này.
* Bài tập: Tìm ra giá trị Số lượng nhỏ nhất của mỗi năm (có thể có rất nhiều năm khác nhau nhưng đây mình chỉ lấy ví dụ một số), sau đó điền giá trị Nhỏ nhất tìm được vào những ô BÔI VÀNG.
- Minh họa kết quả như hình dưới đây:
Mong mọi người giúp đỡ.

 

[SA_DQ]

Sub TimCucTieuTheoCotNam()
Dim WF As Object, CSDL As Range, sRng As Range
Dim Rws As Long, Nho As Integer, Lon As Integer, J As Long
Dim MyAdd As String

Set WF = Application.WorksheetFunction
Rws = [A2].CurrentRegion.Rows.Count
Set CSDL = [A1].Resize(Rws, 2)
Nho = WF.Min(CSDL(2).Resize(Rws))
Lon = WF.Max(CSDL(2).Resize(Rws))
[e1].Value = [b1].Value
For J = Nho To Lon
    Set sRng = CSDL(2).Resize(Rws).Find(J, , xlFormulas, xlWhole)
    If Not sRng Is Nothing Then
        [E2].Value = J
        MyAdd = sRng.Address
        Do
            sRng.Offset(, 1).Value = WF.DMin(CSDL, [A1], [E1:E2])
            Set sRng = CSDL.FindNext(sRng)
        Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
    End If
Next J
[E1:E2].Value = Space(0)
End Sub