Views

...

Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

E-mails

Deixe seu e-mail para receber atualizações...

eBook Promo

VBA Tips - Concatenando a primeira letra de cada palavra - UDF to concatenate first letter of each word in a cell



Praticidade é o nosso lema, certo? Sim, facilidade concatenamos as primeiras letras de nomes próprios?

Por exemplo:

Johnson & Johnson                        J & J
Procter & Gamble                          P & G
Boston Consulting Group                B C G


Segue:

Function ConcateneWords(str1 As String)

Dim arr1, i As Integer, str2 As String

Let arr1 = Split(str1, " ")
Let str2 = ""

For i = LBound(arr1) To UBound(arr1)
Let str2 = str2 & Left(arr1(i), 1) & " "
Next

Let  ConcateneWords = Application.WorksheetFunction.Trim(str2)

End Function

Tags: concatenar, concatenate, letra, primeira, letter

eBooks VBA na AMAZOM.com.br

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine