Red de conocimiento informático - Problemas con los teléfonos móviles - Instrucciones sobre código VBA para uso del diccionario

Instrucciones sobre código VBA para uso del diccionario

Sub test()

Dim data, temp, arr

Dim d

Dim iamp;, kamp;

Establecer d = CreateObject ("scripting.dictionary") 'Crear diccionario

data = [a1].CurrentRegion 'Escribe el área donde se encuentra A1 en la matriz

For i = 2 To UBound(data ) ' Recorre la matriz

d(data(i, 1) & "") = data(i, 2) 'Escribe datos(i, 1) & "" de la matriz en el diccionario, y Asignar valor a datos(i, 2)

Siguiente

temp = [d1].CurrentRegion 'Escribe el área donde se encuentra d1 en la matriz temp

ReDim arr( 2 To UBound(temp), 1 To 1) 'Redefine el tamaño de la matriz arr

For k = 2 To UBound(temp) 'Recorre la matriz

arr(k, 1) = d(temp(k, 1)) 'Asigna el valor correspondiente a d(temp(k, 1) en el diccionario a arr(k, 1), correspondiente a data(i, 2) , es decir, la segunda columna

Siguiente

[e2].Resize(UBound(arr) - 1, 1) = arr 'Envía la matriz arr a la celda

Establecer d = Nada

Fin Sub

上篇: Cómo autorizar el uso compartido de casa a través de Steam 下篇: vaiop (computadora portátil pequeña y liviana)

Artículos populares