A volte è necessario estrarre parti del testo contenuto nelle celle di Excel, ad esempio estrarre solo la parte maiuscola o minuscola del testo.

Per farlo è necessario creare una macro che analizzi il testo.

Creare una macro con questo codice:

Public Function RestituisciSoloMaiuscole(valore As Variant) As Variant

    Dim x As Integer

    Dim outValue As Variant

    Dim s As Variant

    RestituisciSoloMaiuscole = ""

    If Not valore Is Nothing Then

        For x = 1 To Len(valore)

            s = Mid(valore, x, 1)

            If Asc(s) >= 65 And Asc(s) <= 90 Then

                RestituisciSoloMaiuscole = RestituisciSoloMaiuscole & s

            End If

        Next

    End If

End Function

In questo particolare caso viene estratto il testo maiuscolo, eliminando spazi e altri simboli, quali barre, parentesi etc.

Per far sì che vengano mantenuti tutti i simboli è necessario modificare la parte:

If Asc(s) >= 65 And Asc(s) <= 90 Then

con

If Asc(s) >= 32 And Asc(s) <= 90 Then

Invece per ottenere solo il minuscolo 

If Asc(s) >= 90 And Asc(s) <= 122 Then

Per utilizzare la funzione ed elaborare il testo utilizzare la sintassi in una cella vuota : 

=RestituisciSoloMaiuscole(cella)

** codice prelevato dalla rete