Option Explicit Sub Splitto() Dim sSplit() As String Dim i As Long, k As Long Dim stringaR As String For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row sSplit = Split(Cells(i, 1), " ") stringaR = "" For k = LBound(sSplit) To UBound(sSplit) If sSplit(k) <> "" Then stringaR = stringaR & sSplit(k) & " " End If Next k Cells(i, 3) = Trim(stringaR) Next i End Sub
Option Explicit Public Function NoSpazi(ByVal cella As Range) As String Dim sSplit() As String Dim k As Long Dim stringaR As String stringaR = "" sSplit = Split(cella, " ") For k = LBound(sSplit) To UBound(sSplit) If sSplit(k) <> "" Then stringaR = stringaR & sSplit(k) & " " End If Next k NoSpazi = Trim(stringaR) End Function
Esempio Copiare i dati di esempio contenuti nella tabella seguente e incollarli nella cella A1 di un nuovo foglio di lavoro Excel. Affinché le formule mostrino i risultati, selezionarle, premere il tasto F2 e quindi Invio. Se necessario, adattare l'ampiezza delle colonne per visualizzare tutti i dati. Formula. Descrizione. Risultato =ANNULLA.SPAZI(" Utili primo trimestre ") Rimuove gli spazi iniziali e finali dal testo nella formula (Utili primo trimestre) Utili primo trimestre
Descrizione Rimuove tutti gli spazi dal testo ad eccezione dei singoli spazi tra le parole. Utilizzare la funzione ANNULLA.SPAZI sul testo creato con altre applicazioni che può presentare una distribuzione irregolare degli spazi.
ad eccezione dei singoli spazi tra le parole