Separare parole nella cella

Hai un problema con Excel?

Nuova discussione

Separare parole nella cella
di GLC (utente non iscritto) data: 07/03/2013 14:07:11

Scusate l'altro topic si può eliminare, ho avuto alcuni problemi col sito. Comunque ho una piccola domanda:

Ho una tabella grande (circa 1000x1000) molte celle sono vuote, le altre riportano 3 possibili valori (A,B,C)

Quello che mi servirebbe è creare un report in cui per ogni riga mi riporta in quali colonne è presente A in quali B e in quali C tralasciando le vuote. Ho usato il codice seguente, però mi riporta tutte le intestazioni a capo, è possibile mandarle a capo, separarle o metterle in celle diverse?

Grazie!

Sub aaa()
Lastcol = ActiveSheet.UsedRange.Columns.Count
Lastrow = ActiveSheet.UsedRange.Rows.Count
cola = Lastcol + 2
colb = Lastcol + 3
colc = Lastcol + 4
Cells(1, cola) = "A"
Cells(1, colb) = "B"
Cells(1, colc) = "C"
For r = 2 To Lastrow
  For c = 2 To Lastcol
    ColumnLetter = Cells(1, c)
    If Cells(r, c) = "A" Then sa = sa & ColumnLetter
    If Cells(r, c) = "B" Then sb = sb & ColumnLetter
    If Cells(r, c) = "C" Then sc = sc & ColumnLetter
  Next
  Cells(r, cola) = sa
  Cells(r, colb) = sb
  Cells(r, colc) = sc
  sa = "": sb = "": sc = ""
Next
End Sub

di Vecchio Frac data: 07/03/2013 15:40:12
Fai vedere un esempio con una tabella molto piccola (es 5x5) in cui ci mostri lo scenario e il risultato atteso. Ho difficoltà a capire il tuo codice... e non è che il titolo sia molto più chiaro stavolta: "creare un report in cui per ogni riga mi riporta in quali colonne è presente A in quali B e in quali C" è diverso da "separare parole nella cella" ;)
di GLC (utente non iscritto) data: 07/03/2013 16:09:15
In pratica vorrei separare "Caio" e "Sempronio" in G3 e G5 io vorrei spaziarli, metterli in colonna o metterli in celle diverse

Vuoi Approfondire?