Como puedo separar números de teléfonos de celulares
Tengo una base de datos en excel que contiene una lista de números de teléfonos fijos y celulares.
Ejemplo
Columna A
22501106
85357949
22501106
86661779
25489313
Como pueden observar en la columna A, ¿tengo revueltos los números de teléfonos fijos (todos los que empiezan con el numero "2" son teléfonos fijos) y los teléfonos celulares (todos los números que empiezan con "8") existe alguna manera de separar los fijos de los celulares?
Quedando de la siguiente manera:
Columna A Columna B
22501106 85357949
22501106 86661779
25489313
1 Respuesta
H o l a:
Puedes aplicar alguna de las siguientes opciones:
Opción 1.
1. Ordena la columna de menor a mayor.
2. Los primeros teléfonos serán los que empiecen con 2. Selecciona los que empiezan con 8, corta todos los que empiezan con 8 y pega en otra columna.
Opción 2.
1. Utiliza la siguiente macro:
Sub SepararNumeros()
'Por.Dante Amor
b = 1
c = 1
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
If Left(Cells(i, "A"), 1) = "2" Then
Cells(b, "B") = Cells(i, "A")
b = b + 1
Else
Cells(c, "C") = Cells(i, "A")
c = c + 1
End If
Next
Columns("A").Delete
End SubSigue las Instrucciones para ejecutar la macro
- Abre tu archivo de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Para ejecutarla presiona F5
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
