Programa de campeonato Rng

Supongamos que la Tabla 1 es la "Tabla A". ¿Mesa dos? La "Tabla B" agrega automáticamente dos columnas auxiliares y marca diferentes cantidades como 1, 2 y 3 en las posiciones correspondientes de las dos tablas. . . . Hasta que todos los datos de la Tabla A se hayan conciliado con la Tabla B. El código se coloca en este libro de trabajo o "módulo"

SubCompareData()

Este libro de trabajo. Crear actividad

Atenuar shtA como objeto, shtB como objeto

Atenuar rngCLA como rango, rngCLB como rango

Atenuar rngA amp, rngB amp

Dim aryCheckA (1 a 4) como cadena

Dim strCheck$

Dimensiones i, j, k

Set shtA = Sheets("a hojas" )

Establezca shtb = hojas("hoja b")

k = 0

Para i = 1 a 2

Si i = 1, entonces shtA. Active De lo contrario shtB. Activar

Columna("A:B"). Insertar

Para cada rngCLA(cell(1,3),cell(1,cell(1,column.count).End(xlToLeft).column)) en el rango

p>

Si rngCLA. Valor = "País importador"

aryCheckA(1) = rngCLA. Dirección(0,0)

ElseIf rngCLA. Valor = "País exportador" Entonces arycheka (2) = rngcla.address (0, 0)

ElseIf rngCLA. valor = " año " thenarycheka(3)= RNG cla dirección(0, 0)

ElseIf rngCLA. Valor = "cantidad " entonces arycheka (4) = rngcla.address (0, 0)

Terminará si...

Entonces

Establezca rngCLA = Ninguno

?

Para j = 1 a 3

strCheck = strCheck amp

Entonces

si i = 1, entonces rngA = Range(aryCheckA (4)). columna Else rngB = Range(ary checka(4)). Cell(1, 2, Len(strCheck) - 1)

Cell(1, 2). p>

Rango(celda(1, 2), celda(celda(fila.número) Número, 3). fin(xlArriba). línea 2).

p>

strCheck = " "

Luego

Para cada RNG en el rango cla(shtA.cell(2,2),shtA.cell(shtA. cell (row. count, 3). end(xlUp). fila 2))

Para cada RNG en el rango clb(shtB.cell(2, 2), shtB.cell(shtB. cell( row.count,3).end(xlUp).row2))

if rngCLA.value = rngCLB.

Vale la pena

Si shtA. Celda(rngCLA. Fila, rngA). Valor lt gtshtB. Celda (rngCLB. Fila, rngB). El valor entonces es k = k 1: shtA. celdas (rngCLA. fila, 1). Valor = k: shtB. celdas (rngCLB. fila, 1). value = k

Salir para...

Terminará si...

Entonces

Entonces

Establecer rngCLA = Ninguno

Establecer rngCLB = Ninguno

Finalizar montaje