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
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 5 |
confrontare e evidenziare 2 fogli excel Autore: niccia |
Forum: Applicazioni Office Windows Risposte: 7 |
Visitano il forum: Nessuno e 7 ospiti