• 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

Excel dashboard using Advance Excel Formulas

=SUMIFS, sum range, criteria range, criteria range 1...

Amhyhosh11 Today, 09:29 AM

Excel Macro - concatenate filename with text in a cell

Thank you very much for your help.
The following is working now. The only problem is that it loops one extra time! foe example if I only have to...

Alexk Today, 01:35 AM

Excel Macro - concatenate filename with text in a cell

maybe leading spaces in the cell ?
try

Code:
`.Attachments.Add ("c:\PDF Files\Invoice\Invoice"& trim(Cells(x, "B")) &`
...

NoS Today, 12:26 AM

Excel Macro - concatenate filename with text in a cell

.Attachments.Add ("c:\PDF Files\Invoice\Invoice"& Cells(x, "B") & ".pdf")

The section I underlined...

Alexk Today, 12:08 AM

Excel Macro - concatenate filename with text in a cell

between the path and the file name
should be like this

Code:
` .Attachments.Add ("c:\PDF Files\Invoice\Invoice" & "\"`
...

NoS Yesterday, 11:59 PM