Mejorar macro
Existe alguna forma de hacer más rápida esta macro
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
For Each c In Selection.Cells
c.Value = Application.Trim(c.Value)
Next c
Cells.Select
Selection.Columns.AutoFit
Selection.End(xlUp).Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
For Each c In Selection.Cells
c.Value = Application.Trim(c.Value)
Next c
Cells.Select
Selection.Columns.AutoFit
Selection.End(xlUp).Select
1 Respuesta
Respuesta de tavopz
1
La verdad no veo como optimizar esta macro. Está muy bien.
Esta sólo será lenta en la medida que tu selección sea demasiado grande. Quizás sea mejor si haces la selección de sólo lo que necesitas y omites las tres primeras líneas, de tal forma que se ejecute la macro cuando hayas seleccionado lo que necesitas. Así evitas que se evalúe la macro sobre celdas vacías o que no lo requieran.
Esta sólo será lenta en la medida que tu selección sea demasiado grande. Quizás sea mejor si haces la selección de sólo lo que necesitas y omites las tres primeras líneas, de tal forma que se ejecute la macro cuando hayas seleccionado lo que necesitas. Así evitas que se evalúe la macro sobre celdas vacías o que no lo requieran.
