Como crear lista de correo

Tengo en un excel cientos de correos electrónicos en una única columna y cada uno en una celda distinta. Como puedo hacer de forma sencilla un documento donde me aparezcan todos los correos separados por un ";" ¿uno del otro para colocarlo en el destinatario del programa de correos?

1 respuesta

Respuesta
1

[Hola

La forma "sencilla" es colocar:

= A1 & ";" & A2 & ";" & A3 & ";" & "A4"...

Etc. La otra forma es:

Sub Concatenar()
Dim ultimaFila As Long
Dim Celda As Range
Let ultimaFila = Cells(Rows.Count, 1).End(xlUp).Row
For Each Celda In Range("A1:A" & ultimaFila)
    Range("B1") = Range("B1") & ";" & Celda
Next Celda
End Sub

Suponiendo los datos en la columna A y que comienzan en A1 y que quieres todo en B1

Abraham Valencia

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas