Encontrar números EXCEL sumando números en funciones o fórmulas
Ejecute esta macro (los requisitos de datos se basan en el texto)
Sub modi()
'Establezca la columna A como Nombre, la columna B como el número original y la columna C como el nuevo número
Dim r As Object 'Define variable, equivalente a un puntero
Set r = Range("b2") 'Apunta a la fila 2 de la columna B
Mientras que r <> "" 'Recorre hasta que el contenido esté vacío
Selecciona Case Left(r, 4) 'Comprueba los primeros 4 dígitos del número
Caso "0731"
'Reemplazar números que comienzan con 0731
r.Offset(0, 1) = r
End Select
Establecer r = r. Offset (1, 0) 'Mover el puntero a la siguiente línea
Wend 'Fin del bucle
End Sub