Bạn dùng VBA tạo 1 hàm để chuyển đổi và tính tổng nhé!
Function EvalCal(Rng As Range) As Long
Dim rCell As Range
Dim lngSum As Long, calCell As Variant
lngSum = 0
For Each rCell In Rng
calCell = Evaluate(rCell.Value)
If VarType(calCell) <> vbError Then lngSum = lngSum + calCell
Next
EvalCal = lngSum
End Function
