Programa de campeonato Rng
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