Nhờ Anh Chị Diễn Đàn Giúp Code cộng dồn chiều cao theo chuỗi

[QWERTYU123456]

Chào tất cả anh chị Diễn Đàn. Em có 1 vùng dữ liệu như hình. Cần 1 hàm hoặc code Vba cộng dồn giá trị như hình ảnh mô tả. Nhờ mọi người giúp đỡ
Link ảnh :

Bạn cần đăng nhập để thấy đa phương tiện

Link File:

Bạn cần đăng nhập để thấy link

Xin cảm ơn mọi người. Năm mới em xin chúc toàn thể quý anh chỉ trong diễn đàn 1 năm mới sức khỏe, phát tài

 

[NhanSu]

Bạn dùng code sau, chú ý vào reference đánh dấu chọn vbscript regular expression 5.5.

Function ABC(s As String)
    Static regexp As regexp
    Static pattern As String
    If regexp Is Nothing Then
        Set regexp = New regexp
        With regexp
            .pattern = "(ABC\*\d*\.\d*)|(ABC\*\d*)"
            .Global = True
            .IgnoreCase = True
            .MultiLine = True
        End With
    End If
    Dim match, matches, kq
    kq = 0
    Set matches = regexp.Execute(s)
    For Each match In matches
        kq = Val(Right(match, Len(match) - 4)) + kq
    Next
    ABC = kq
End Function