1e,2g,3h + 2g,3h,3e= 4e,4g,6h. Có cách nào để tính ra kết quả như này ko ạ chị em ơi (1 người xem)

[Thuymntc]

1e,2g,3h + 2g,3h,3e= 4e,4g,6h. Có cách nào để tính ra kết quả như này ko ạ chị em ơi

Bài đã được tự động gộp: 17/3/20

Mong các tiền bối giúp em với, em đang mờ mắt để cộng thủ công bao nhiêu danh mục với các kí hiệu thế kia ạ

 

[keyeutien]

Có 3 chữ này thôi hay cả 24 chữ cái

 

[leonguyenz]

1e,2g,3h + 2g,3h,3e= 4e,4g,6h. Có cách nào để tính ra kết quả như này ko ạ chị em ơi

Bài đã được tự động gộp: 17/3/20

Mong các tiền bối giúp em với, em đang mờ mắt để cộng thủ công bao nhiêu danh mục với các kí hiệu thế kia ạ

Bạn gửi file lên mọi người xem thử.
Theo mô tả thì giải pháp là dùng VBA rồi.

 

[excel_lv1.5]

1e,2g,3h + 2g,3h,3e= 4e,4g,6h. Có cách nào để tính ra kết quả như này ko ạ chị em ơi

Bài đã được tự động gộp: 17/3/20

Mong các tiền bối giúp em với, em đang mờ mắt để cộng thủ công bao nhiêu danh mục với các kí hiệu thế kia ạ

Dùng code thôi bạn, sài cho phép cộng:

Function sumstr(ByVal str As String) As String
Dim dic As Object, reg As Object, macthres As Object, strres As String, i As Long, sub1 As String, sub2 As String
Set dic = CreateObject("scripting.dictionary")
Set reg = CreateObject("vbscript.regexp")
reg.Global = True: reg.Pattern = "([\d\.]*)([a-zA-Z]+)"
For Each macthres In reg.Execute(str)
    sub1 = macthres.submatches(0): sub2 = macthres.submatches(1)
    If Not dic.exists(sub2) Then
        dic.Add sub2, IIf(Val(sub1) = 0, 1, Val(sub1))
    Else
        dic.item(sub2) = dic.item(sub2) + IIf(Val(sub1) = 0, 1, Val(sub1))
    End If
Next
For i = 0 To dic.Count - 1
    sumstr = sumstr & dic.items()(i) & dic.keys()(i) & IIf(i = dic.Count - 1, "", ",")
Next
End Function

Nhập thông thức =sumstr(A1)