Excel encuentra las mismas partes de dos cadenas
Atl F11——Barra de menú——Insertar——Módulo, pegue el siguiente código:
Función J(a Como cadena, b Como cadena) Como cadena
Atenuar i como entero, t, d como objeto
Establecer d = CreateObject("Scripting.Dictionary")
Para i = 1 a Len(b)
t = Mid(b, i, 1)
Si InStr(a, t) Entonces d(t) = d(t)
Siguiente
t = d.keys
J = Join(t, "")
Establecer d = Nada
Finalizar función
Cierre la ventana de VBA.
Ingrese C1
=J(A1, B1)
Presione Enter y complete.