Moderatori: Anthony47, Flash30005
Sub Assiema()
SCOL = Selection.Columns.Count
For Each c In Selection
AA = AA & " " & c.Value
c.Value = ""
Next c
Selection.Range("A1").Select
Selection.Value = LTrim(AA)
Selection.Offset(0, 1).Select
For I = 1 To SCOL - 1
Selection.Delete Shift:=xlToLeft
Next I
End Sub
Anthony47 ha scritto:Non e’ cosi’ semplice [...]Certo, se tra i vari campi ci fosse un separatore univoco la cosa sarebbe piu’ semplice” gia’ detto prima.
Anthony47 ha scritto:Per Cassioli:
Veramente ci sono delle varianti, quali:
Napoli V.le delle rose antiche unte di olio bruciato 73/b
Hai ragionecassioli ha scritto:Alex, l'unico vero problema sono le città con piu' parole (Torre del Greco o simili): se non esistessero, il primo e l'ultimo spazio farebbero da separatori!
Anthony47 ha scritto:...io partirei tramite il “Testo in colonna”...
Anthony47 ha scritto:Ciao Alessandro e benvenuto nel forum.
alessandro ha scritto:dato che su 100, almeno una 70ina ha il formato di indirizzo classico "via pippo 1 28100 Milano MI" mi servirebbe una macro "assiema" che possa assiemare tutte le 70 righe selezionate, così in una botta sola raggruppo quelle e poi a mano una alla volta uso la macro "assiema" monoriga per le restanti 30
Sub pippo()
StCol = Selection.Column
LenCol = Selection.Columns.Count
StRow = Selection.Row
LenRow = Selection.Rows.Count
'
Range(Cells(StRow, StCol), Cells(StRow + LenRow - 1, StCol)).Select
For Each Riga In Selection
Range(Riga, Cells(Riga.Row, StCol + LenCol - 1)).Select
Call Assiema
Next Riga
End Sub
Torna a Applicazioni Office Windows
Inserimento parziale valore cella in MessageBox Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 6 |
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Aggiornare cella con somma quando aggiungo nuova colonna Autore: marcopont |
Forum: Applicazioni Office Windows Risposte: 1 |
Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 5 |
Visitano il forum: Nessuno e 32 ospiti