• # Formula To Average Letters

Formula Purpose:
• This function takes a series of letters and returns the average of them, i.e., the average of A, B, C is B.

Examples of where this function shines:
• The only application that I can see for this formula is for averaging grades. If you know another, please click here and send me an email to let me know!

Formula Weakness(es):
• It only works on a single contiguous range on a worksheet, not multiple ranges.
• Must remember to enter as an array formula.
• Only operates on the first character in each cell.

Versions Tested:
This formula has been tested with Excel 2003, but will work with Excel 97 or higher.

The Formula (array entered):
{=CHAR(ROUND(AVERAGE(IF(ISTEXT(A1:B1),CODE(UPPER(A1:B1)),"")),0))}

• In order to use this formula, copy it to your worksheet, without the curly braces, change the two references to the range (A1:B1) to your range, and confirm the formula with CTRL+SHFT+Enter to array-enter it.

How it works (from the inside out):
• The IF() function contains three parts:
• The ISTEXT() function ensures that only text characters are passed to the function. If the item is blank or numeric, it is ignored (replaced with a "").
• The CODE() function converts the submitted text character into its ANSI equivalent number.
• The UPPER() function is used to convert all submitted characters to upper case. Since upper- and lower-case characters are, in fact, different ("a" and "A" have different ANSI values), they cannot be compared to each other properly unless they are all of a consistent case.
• The AVERAGE() function computes the average of the results passed to it by the aforementioned IF function.
• The ROUND() function rounds the result of the AVERAGE function to no decimal places.
• The CHAR() function converts the rounded number into a letter.

See For Yourself!
• Try changing the letters in the Office WebApp below. You'll see that the formulas update to show you the new averages.

I'm afraid that you must be logged in to comment or leave a testimonial. I wish it could be otherwise, but I'm trying to keep my site spam free for everyone's benefit. If you don't yet have an account it's completely free to sign up, and a very quick process. Simply click here to Register. Not only can you post a comment here, but it gives you full access to posts questions in our forum as well!

If you already have an account, and just haven't logged in yet, what are you waiting for? Login Now!

1 Comment
1. wcruz -
I can't get this to work over multiple sheets. Any ideas?
• ### Recent Forum Posts

#### Text.Combine - If Value is Null no Delimiter

Because you know what your doing, im getting there though. Many thanks you are a Super Star!...

jilbobagins Today, 10:40 AM

#### Text.Combine - If Value is Null no Delimiter

Why not just change the Transform parameter to an expression that will return a null when the column is null?

Code: [View]
`= Table.AddColumn(#"Pivoted`
...

cyborgski Today, 08:46 AM

#### Power Query - Address search with (expanded) fuzzy logic

Hello, Ken,

first of all many thanks for this great support!!!

I imagine that I had defined the dynmaic fuzzy factor in the...

pinarello Today, 06:42 AM

#### Formula for data sorting

Create a helper column in Column E Type =LEFT(A2,3) and copy down.

In I2 type =INDEX(\$C\$2:\$C\$6,MATCH(H2 & "IFR",\$B\$2:\$B\$6...

alansidman Today, 04:23 AM

#### Formula for data sorting

Use the Macro recorder to follow the steps outlined. Post the code that the recorder provides and tell us what needs to be changed in the code to make...

alansidman Today, 04:00 AM