Red de conocimiento informático - Conocimiento de la instalación - Encontrar números EXCEL sumando números en funciones o fórmulas

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