1: 2: 3: 4: 5: 6: 7:
RemoveSpaces secundario () Cel dévil como gama Para cada cel en ActiveSheet.UsedRange cel = ajuste (substituir (cel. Texto, Chr (160), "")) Después Submarino del extremo