Excel vba se fusiona según las condiciones.

Si no tienes muchos datos, no es necesario cruzar el puente con un diccionario. Simplemente tome prestada una hoja de trabajo vacía como puente. Yo uso HOJA3.

El código es el siguiente

Relación hijo-padre-hijo 1 ()

Continuar con el siguiente paso cuando se produzca un error

Celda Hoja de trabajo ("Hoja3"). Seleccionar

Seleccionar. ListObject.QueryTable.Delete

Papel("Papel3"). Pick

Con hoja de actividades. enumerar objetos. Agregar(Tipo de fuente:= 0, Fuente:= Array(Array(u

"ODBCDSN=Documentos de Excel; dbq=c:\documents and settings\xd\desktop\workbook 1.xlsm; directorio predeterminado = c:\documents and settings\xd\desktop; DriverId = 1046; max buffer "u

), array("rSize=2048page time out=5;")), destino: = Rango ("$A$1"). QueryTable

. CommandText = Array(u

"Seleccione AA.a,AA.b,BB.a,BB.b" amp;chr. (13) y amp"" ampchr(10) y amp de AA AA, BB BB(13) y amp"" ampchr(10) y amp"AA donde. B = BB. a")

<. p>. PreserveFormatting = Verdadero

. BackgroundQuery = Verdadero

. SaveData = Verdadero

>. 0

. PreserveColumnInfo = True

/p>

Finalizar con

Hoja("Hoja1"). Termine con J = 1 a Hoja1.(xlUp). /p>

Para I = 1 a Hoja3 [b65536].si Hoja1.gt "" y Hoja1. ) = hoja 3. celdas (I, 4) y hoja 1. celdas (J, 2) lt; celdas (I, 2) luego

temperatura = Temperatura amp Página 3. Celda(I,1)

Terminará si

Entonces

1. celda(J,5)=temperatura

temperatura=""

luego

finalizar el ajuste