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 de Abraham Valencia
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 SubSuponiendo los datos en la columna A y que comienzan en A1 y que quieres todo en B1
Abraham Valencia
