1: 2: 3: 4: 5: 6: 7:
RemoveSpaces secundário () Cel não ofuscante como a escala Para cada cel em ActiveSheet.UsedRange cel = guarnição (substituir (cel. Texto, Chr (160), "")) Em seguida Submarino da extremidade