1: 2: 3: 4: 5: 6:
KillA secundário () Rng1 não ofuscante como a escala No resumo do erro em seguida Ajustar rng1 = fileiras (1) .SpecialCells (os xlBlanks) Se não rng1 não é nada então rng1.Cells (1) .EntireColumn.Delete Submarino da extremidade