Ciao a tutti , ho un piccolo grande problema mi aiutate a risolverlo?
ho una colonna con più di 2000 righe; ho la necessità di concatenare tutte le righe in un'unica cella.
come si fa?
grazie in anticipo
Moderatori: Anthony47, Flash30005
Sub Concatena_Celle()
Dim UR As Long
UR = Range("A" & Rows.Count).End(xlUp).Row
[A1] = "'"
Application.ScreenUpdating = False
For I = 2 To UR
[A1] = [A1] + "','" + Cells(I, 1)
Next I
[A1] = [A1] + "'"
Application.ScreenUpdating = True
MsgBox "Effettuato il Concatenamento di " & UR - 1 & " celle"
End Sub
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 6 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Funzione CERCA ma con colonne dinamiche Autore: Paolo67met |
Forum: Applicazioni Office Windows Risposte: 2 |
Excel 2016 - Funzione SCARTO + INDIRETTO Autore: pl1957 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 85 ospiti