Specialmacro secundário ()
Rng1 não ofuscante como a escala
Rng2 não ofuscante como a escala
Celle1 não ofuscante como a escala
Celle2 não ofuscante como a escala
Colm não ofuscante como por muito tempo
Com folhas (“Sheet1”)
Ajustar rng1 = escala (. Pilhas (12, “Q”). Pilhas (. Rows.Count, “Q”). Extremidade (xlUp))
Ajustar rng2 = escala (. Pilhas (12, “C”). Pilhas (27, “C”))
Extremidade com
Para cada celle1 em rng1
Para cada celle2 em rng2
Se celle1 = celle2 então
Colm = pilhas (11, “V”). Valor
celle2.Offset (0, Colm) = celle1.Offset (0, 1)
Terminar se
Celle2 seguinte
Celle1 seguinte
Submarino da extremidade
|