¿Cómo utilizar VBA para reemplazar campos por lotes en EXCEL?

Subtransform()

Dim dict, arr, I, j, k

Dict = Sheets(1). Tabla de relaciones del diccionario "ámbito de uso"

Arr = Zhang(2). La tabla "UsedRange" para convertir.

Para i = 2 al límite inferior (arr)

Para j = 3 a 5

Para k = 1 a UBound(diccionario)

Si dict(k,1) = arr(i,j) y dict(k,3) = arr(1,j) entonces

arr(i,j) = dict(k, 2 )

Salir para...

Terminará si...

Siguiente k

Siguiente j

Siguiente yo

Hojas (2). UsedRange = arr 'Vuelve a escribir el resultado de la conversión.

Conector final