Fórmula de Excel VBA

Este código se utiliza para eliminar valores duplicados bicondicionales en la columna A y la columna b.

¿Oscuro? r,? I 'Definir variables

tenue? Ah, ah? Variable de definición "Brr"

¿Dim? ¿d? ¿Como qué? "Objeto" define variables.

¿Configuración? ¿d? =?CreateObject("scripting. diccionario")? ? Crear elemento de diccionario -d

¿Qué usar? Hoja("hoja1")

r? =?. Celda (Filas.Cuenta,? 1). Fin (xlArriba). Fila obtiene el número de fila de la última fila de la columna A de la hoja de trabajo "hoja1". Lo siguiente no parece ser útil.

arr? =?. range("a2:b 12")" será el rango de la hoja de trabajo "sheet1". ¿a2:b12? Asigna un valor al array arr

¿Para qué? ¿Yo?=?1?Dónde go?UBound(arr )'UBound(arr) es el subíndice de la matriz arr, y la matriz se desplaza de arriba a abajo

xm? =?arr(i, 1)? arr(i, 2) 'Utilice el signo más para combinar los valores de la columna A y la columna B.

d(XM)? diccionario y el valor del elemento correspondiente está vacío. La clave de un diccionario es única, lo que elimina la duplicación.

Entonces

¿m? =?14‘Establecer el valor inicial de la variable m

¿Para qué? ¿Todos? ¿Automóvil club británico? ¿Está ahí? d.llaves? Recorrer las teclas del diccionario una vez

m? =?metro? El valor de 1m aumenta de 1 en 1.

. Cell(m, ?1).Resize(1, ?2) ?= ?Split(aa, ?"""Comienza en A15 de la hoja "hoja1" y genera valores bicondicionales que no se repiten. Split se utiliza para separar los valores ​​a la izquierda y derecha del signo más

luego

termina con

submarino