Una breve discusión sobre la traducción de Excel VBA

Rango() representa el área. Rango("B41:C45") se refiere al área compuesta por la celda superior izquierda "b 41" y la celda inferior derecha "C45"; borrar el contenido.

Entonces esta línea de código borra el contenido del área "B41:C45".

2, Dim arr1

Declara una variable de tipo variante.

3. Establezca DIC 1 = CreateObject(" scripting . diccionario ")

establezca DIC 2 = CreateObject(" scripting . diccionario ")

Crea una instancia de un objeto ; ambos son objetos de diccionario de script.

Nota: El diccionario es en realidad una matriz bidimensional. El subíndice de la primera dimensión de la matriz bidimensional representa el número de datos del diccionario. El subíndice de la segunda dimensión es de 1 a 2. se almacenan dos dimensiones. Los datos representan respectivamente las palabras clave y los datos de la entrada del diccionario;

Para conocer el concepto de diccionario, busque en Baidu una descripción detallada.

4.arr1 = Rango("c6:d38"). Valor

Aquí Valor significa valor numérico. Esta línea de código asigna los datos en el área "c6:d38" a la variable arr1, que también es una variable que almacena datos en un tipo de matriz bidimensional.

Debido a que el área es una tabla bidimensional compuesta por varias filas y columnas, se utiliza una matriz bidimensional para almacenar los datos en el área.

Esta área incluye 33 filas y 2 columnas, por lo que la matriz bidimensional es arr 1 (1 a 33, 1 a 2).

5,

Para a = LBound(arr1) a UBound(arr1)

dic1(arr1(a,1) amp; arr1(a,2 )) = arr1(a, 1)

dic2(arr1(a, 1) & arr1(a, 2)) = arr1(a, 2)

Entonces

Aquí, los datos del área se entregan al diccionario a través de un bucle;

Los datos en la columna 1 del área se almacenan en la columna 1 de la matriz y se entregan al diccionario dic1.

Los datos de la segunda columna del rango se almacenan en la segunda columna de la matriz y se proporcionan al diccionario dic2.

6.

Rango(" b41 "). cambiar tamaño (dic1.count) = aplicación. Transponer (dic1.items)

Resize-Dimension

Esta línea de código:

El significado del lado izquierdo del signo igual: comenzando desde la celda " b41", Define el número de rangos de celdas consecutivos dic1. Count, define el número de celdas en función de la cantidad de datos en el diccionario.

El signo igual en sí significa asignación.

Aplicar. Transponga (dic1.term) a la derecha del signo igual usando la aplicación. El método Transponer muestra los valores de todos los elementos de datos en el diccionario DIC 1 en el área definida en el lado izquierdo de la ecuación.

Rango(" c41 "). cambiar tamaño (dic1.count) = aplicación. Transpose(dic2.items)

Esta línea de código mostrará los valores de todos los elementos de datos en el diccionario dic2 en el área definida en el lado izquierdo de la ecuación.

Entonces, la función de todo el código es:

Primero borre el contenido en el área "B41:C45".

Luego, copie los datos de la columna de "C6:C38" a "b 41:b73"

Copia los datos de la columna de "d6:d38" a "c 41:c73; " ";