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.