Ayuda con el siguiente problema
Por favor si alguien me duede ayudar tengo datos en las columnas
A, B,... Hasta la Z los valores 2,5,234,267,269 ... Etc. Oser:
A B C D E
1 2 5 234, 267 269
2 6 8 677 787 909
Lo que necesito que suceda con una macro es lo siguiente
A B C D E
1 2; 5; 234; 267; 269;
2 6; 8; 677; 787; 909;
Al final un ; de cada elemento
Son muchas Filas y Columnas para hacerlos manualmente por favor si alguien me puede enviar como crear la macro para que esto suceda, gracias expertos.
A, B,... Hasta la Z los valores 2,5,234,267,269 ... Etc. Oser:
A B C D E
1 2 5 234, 267 269
2 6 8 677 787 909
Lo que necesito que suceda con una macro es lo siguiente
A B C D E
1 2; 5; 234; 267; 269;
2 6; 8; 677; 787; 909;
Al final un ; de cada elemento
Son muchas Filas y Columnas para hacerlos manualmente por favor si alguien me puede enviar como crear la macro para que esto suceda, gracias expertos.
1 Respuesta
Respuesta de bacter582
1
Como estas amigo, para puedes corres esta sencilla macro.
Sub colocar_punto_y_Coma()
Dim i As Integer
Dim j As Integer
For i = 1 To 2
For j = 1 To 30
Cells(i, j).Value = Cells(i, j).Value & ";"
Next
Next
End Sub
Si necesitas incluir más filas o columnas, solo cambia el valor 2 y el 30
Espero te sea de ayuda
Saludos
No olvides finalizar la pregunta.
Bacter
Sub colocar_punto_y_Coma()
Dim i As Integer
Dim j As Integer
For i = 1 To 2
For j = 1 To 30
Cells(i, j).Value = Cells(i, j).Value & ";"
Next
Next
End Sub
Si necesitas incluir más filas o columnas, solo cambia el valor 2 y el 30
Espero te sea de ayuda
Saludos
No olvides finalizar la pregunta.
Bacter
