Sostituire con Tab

Hai un problema con Excel?

Nuova discussione

Sostituire ; con Tab
di Jellyfish (utente non iscritto) data: 15/03/2017 02:02:45
Ciao ragazzi,

ho il mio bel codicino qui sotto che funziona con i punti e virgola, devo fargli fare la stessa cosa con i TAB ma non capisco come devo modificare - ";" - ho provato mettendo - vbTab - e - [vbTab] e nulla.

Qualche suggerimento?

Sub SplitSubmissions()
  
Dim elenco As Range
Dim Processo As Range
Dim n As Variant
Dim i As Integer
Dim tot As Integer

Sheets("SupportSubmissions").Visible = True
Sheets("SupportSubmissions").Select
Cells.Select
Selection.ClearContents
Range("A1").Select

Sheets("Submissions").[A1].CurrentRegion.Copy _
       Destination:=Sheets("SupportSubmissions").[A1]

Sheets("SupportSubmissions").Activate
tot = [counta(a:a)]
Set elenco = Range("G:G" & tot)
    For Each Processo In elenco
       n = Split(Processo, [vbTab])
    
        If Left(Processo, 1) = vbTab Then
           Processo.Value = n(1)
        
           ElseIf UBound(n) >= 1 Then
            Processo.Value = n(0)
            For i = 1 To UBound(n)
                Processo.EntireRow.Copy
                Processo.Offset(i, 0).EntireRow.Insert
                Processo.Offset(i, 0).Value = n(i)
                Processo.Offset(i, -1).Value = Processo.Offset(0, -1)
            Next i
        End If
    Next

Application.CutCopyMode = False

Sheets("SupportSubmissions").Select
Range("A1").Select

End Sub

di Luca73 data: 15/03/2017 09:49:12
Ciao io ho fatto una prova ho costruito una stringa così
=CONCATENA("a";"b";"c";CODICE.CARATT(9);"d";"e";"f";CODICE.CARATT(9);"g";"h";"j")

e ho provato la macro contanente

pippo = Split(Range("A13"), vbTab)

e mi divide correttamente la stringa

il Tab in codice ascii è il 9 equivalente a VbTAb e in excel non si vede ovvero la formula sopra mostra abcdefghj senza nulla visibile tra -c- e -d- e tra -f- e -g-

Ciao
Luca
di Jellyfish (utente non iscritto) data: 17/03/2017 06:37:26
Grazie Luca, se ho capito bene quindi non funzionerà...?

Il punto è che ho una colonna con delle celle che all'interno hanno delle frasi che vanno a capo (scusa il giro di 'che'). Vorrei splittare ogni frase in una cella diversa. Il resto che faceva la mia vecchia macro posso farlo a mano,tanto lo devo fare una volta sola. Hai qualche idea, va bene anche una formula... non mi viene in mente nulla a parte 'Testo in colonne" ma mi individua la prima frase e mi cancella le altre :(
di patel data: 17/03/2017 07:53:32
allega un file di esempio e mettici anche il risultato dsiderato

Vuoi Approfondire?