Cómo escribir un programa VBA para encontrar intersecciones

1. Configure un dictado de diccionario para registrar números y números de grupo: clave+valor=alfanumérico+número de grupos, similar a los registros de datos en la siguiente tabla;

El diccionario procesa los datos guardados de acuerdo con el número de mesa proporcionado.

2. Utilice bucles dobles anidados para recorrer los números en el grupo 1 (exterior) y el grupo 2 (interior) respectivamente, y compare si hay los mismos números en el diccionario, si es dict. existe (xx) entonces dict (xx) = dict (xx) +1; registre el número de veces que aparece cada número en el grupo Xx representa un número.

3. El nuevo bucle sirve para determinar el número de dict(xx) en el diccionario. Valor = 6 es la intersección del grupo 1 ~ grupo 6. Enumere las celdas correspondientes en n columnas respectivamente.