need to charactors convert to the value in one furmula

I can only that as a User Defined Function.

select the developer tab, select visual basic

click on insert and then module

paste this code into the module that opens and close it

Function abc(T As String)
For Count = 1 To Len(T)
abc = abc + Asc(UCase(Mid(T, Count, 1))) - 64
Next
End Function

Enter abc into A1

Enter

Formula:

=abc(a1) into B1

Hi and welcome to the forum

Here's a User Defined Function

enter =Wordsum(A1)

Function WordSum(st As String)
    Dim ar() As String, l As Long, lSum As Long

    ReDim ar(Len(st))
    For l = 1 To Len(st)
        If Asc(Mid(st, l, 1)) <> 32 Then
            If Asc(Mid(st, l, 1)) > 96 Then
                lSum = lSum + Asc(Mid(st, l, 1)) - 96
            Else
                lSum = lSum + Asc(Mid(st, l, 1)) - 64
            End If
        End If
    Next l
    WordSum = lSum

End Function

Welcome to the board.

	A	B	C
1	abc	6	B1: {=SUM(CODE(MID(UPPER(A1), ROW(INDIRECT("1:" & LEN(A1))), 1)) - 64)}
2	Sudesh	76

.... or an array formula

Formula:

=SUM(IF(CODE(A1)>96,(CODE(A1)-96),(CODE(A1)-64))*(ROW(INDIRECT(1&":"&LEN(A1)))))