testo a capo

Question

Buongiorno!!!

Arriva la pioggio ed arrivano altri problemi....

dai documenti di GMAIL, esporto un foglio di lavoro excel che, in una cella, contiene un testo.

Se guardo il contenuto della cella, senza selezionarla con il mouse, vedo il testo, un carattere speciale che sembra un quadratino, poi altro testo.

Se seleziono la cella, nella finestra delle formule vedo il testo formattato su 2 righe (quindi deduco che quel "quadratino" sia un "testo a capo")

Se seleziono la colonna ed applico il "TESTO A CAPO",  vedo il testo correttamente distribuito su 2 righe. Per cui sono certa che quel quadratino è un "testo a capo".

TUTTO OK.

A questo punto la mia richiesta è:

c'è un modo per suddividere una cella in più celle prendendo come carattere separatore quel "quadratino"??

Con ULTRAEDIT ho visto che, quel separatore, in esadecimale corrisponde a "0D 0A"

Sempre devota...

Lucia

Answer 1

Le tue istruzioni funzionano perfettamente...

Mi sono però accorta solo ora di aver espresso poco chiaramente la mia richiesta.

Il campo suddiviso, non va nella cella sotto, ma nella cella di fianco

 

se in A1 vedo questo:

ccccccccc£wwwwwwww

supposto che "£" sia il... quadratino, il risultato deve essere:

         A1                             B1 

ccccccccc                 wwwwwwww

Prova un po':

Public Sub m()

    Dim sh As Worksheet

     Dim lRiga As Long

     Dim lng As Long

     Dim lPos As Long

     Dim s As String

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    With sh

         lRiga = .Range("A" & .Rows.Count).End(xlUp).Row

         For lng = lRiga To 1 Step -1

             If InStr(.Range("A" & lng).Value, Chr(10)) Then

                 s = ""

                 s = .Range("A" & lng).Value

                 lPos = InStr(s, Chr(10))

                 .Range("A" & lng).Value = Mid(s, 1, lPos - 1)

                 .Range("B" & lng).Value = _

                     Mid(s, lPos + 1, Len(s) - lPos)

             End If

         Next

     End With

    Set sh = Nothing

End Sub

E fai sapere, grazie.

Answer 2

<cut>

A questo punto la mia richiesta è:

c'è un modo per suddividere una cella in più celle prendendo come carattere separatore quel "quadratino"??

Con ULTRAEDIT ho visto che, quel separatore, in esadecimale corrisponde a "0D 0A"

<cut>

Questo fa quanto chiedi sulla colonna A del Foglio1. Vale per testo disposto su due righe:

Public Sub m()

    Dim sh As Worksheet

    Dim lRiga As Long

    Dim lng As Long

    Dim lPos As Long

    Dim s As String

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    With sh

        lRiga = .Range("A" & .Rows.Count).End(xlUp).Row

        For lng = lRiga To 1 Step -1

            If InStr(.Range("A" & lng).Value, Chr(10)) Then

                s = ""

                s = .Range("A" & lng).Value

                lPos = InStr(s, Chr(10))

                .Rows(lng & ":" & lng).Insert Shift:=xlDown

                .Range("A" & lng).Value = Mid(s, 1, lPos - 1)

                .Range("A" & lng + 1).Value = _

                    Mid(s, lPos + 1, Len(s) - lPos)

            End If

        Next

    End With

    Set sh = Nothing

End Sub

Prova un po'. Grazie.

Answer 3

Anche se con MOOLTO ritardo, funziona!

 

Grazie.

 

Lucia

 

Bene!

Grazie per il riscontro e alla prossima. Buon lavoro.

Answer 4

Anche se con MOOLTO ritardo, funziona!

Grazie.

Lucia

Answer 5

Le tue istruzioni funzionano perfettamente...

Mi sono però accorta solo ora di aver espresso poco chiaramente la mia richiesta.

Il campo suddiviso, non va nella cella sotto, ma nella cella di fianco

se in A1 vedo questo:

ccccccccc£wwwwwwww

supposto che "£" sia il... quadratino, il risultato deve essere:

         A1                             B1 

ccccccccc                 wwwwwwww