Create Acronym (Extract first letter of each word)
Thanks. It works. But there is one problem.
For example:
Phantom-Client Ocean/Sea (Reserved!)
Expected result:
PCOSR or PCO/S(R)
Actual result:
PO(
Is it possible to have a fix?
Perhaps add a code to remove all punctuation/symbols before it proceed:
Pseudo-code:
Read "Phantom-Client Ocean/Sea (Reserved!)"
Replace "-" or "/" with a space. Output: "Phantom Client Ocean Sea
(Reserved!)"
Remove any symbol found. Output: "Phantom Client Ocean Sea Reserved"
Extract the first letter of each word. Output: "PCOSR"
Thanks a lot.
"ShaneDevenshire" wrote:
Hi again,
If you want a spreadsheet function to do this:
Function Ext(myText As String) As String
Dim I As Integer, myWord As String
myWord = Left(myText, 1)
For I = 2 To Len(myText)
If Mid(myText, I, 1) = " " Then
myWord = myWord & Mid(myText, I + 1, 1)
End If
Next I
Ext = myWord
End Function
then in any cell type =Ext(A1)
where A1 contains the text you want to operate on.
Note: in my previous macro I dimmed T but I didn't use it, you could remove
it from the Dim statement line if you wish.
--
Cheers,
Shane Devenshire
"VB_Sam" wrote:
How can I extract first letter of each word in Excel XP?
For example:
I am a boy
You are a girl
Using the pseudo-function called acronym(), the result will become:
IAAB
YAAG
I'm using Excel XP.
Is there any function which can do it?
If not, could anyone provide a macro for me?
(I'm only a beginner in macro)
Thanks.
|