Nhờ viết cod tính tổng khi nhập cùng mã

Chào các anh chị,
Em nhờ các anh chị viết giúp em cod để khi nhập mã hàng thì tự động tính tổng giá trị theo mã hàng thay cho công thức như file đính èm.
Em cảm ơn ạ.

Bạn tham khảo:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lastRow As Long
    lastRow = Range("B40").End(xlUp).Row
    If Target.Column = 2 And Target.Row >= 4 And Target.Row <= lastRow Then
        Dim dict As Object
        Set dict = CreateObject("Scripting.Dictionary")
        Dim i As Long
        For i = 4 To lastRow
            If Not dict.exists(Range("B" & i).Value) Then
                dict.Add Range("B" & i).Value, Range("C" & i).Value
            Else
                dict.Item(Range("B" & i).Value) = dict.Item(Range("B" & i).Value) + Range("C" & i).Value
            End If
        Next i
        Range("D" & Target.Row).Value = dict.Item(Range("B" & Target.Row).Value)
    End If
End Sub

www.giaiphapexcel.com/diendan/threads/nh%E1%BB%9D-vi%E1%BA%BFt-cod-t%C3%ADnh-t%E1%BB%95ng-khi-nh%E1%BA%ADp-c%C3%B9ng-m%C3%A3.164028/

Khóa học SprinGO phù hợp

Khoá học Trưởng phòng nhân sự

Nguồn nhân lực là một trong Tứ trụ kinh doanh của doanh nghiệp, có tác động tới sự tồn tại và phát triển bền...

Xem khóa học