Carole importa información a Excel desde un programa diferente, y esto a menudo deja espacios adicionales en algunas celdas. Los espacios son lo único en las celdas, por lo que parecen estar vacíos, pero en realidad no lo son. Carole se preguntó cuál sería la mejor manera de deshacerse de estos espacios innecesarios.

Hay un par de enfoques que puede utilizar. La primera es utilizar las capacidades de búsqueda y reemplazo de Excel. Siga estos pasos:

  1. Presione Ctrl + H para mostrar la pestaña Reemplazar del cuadro de diálogo Buscar y reemplazar.

  2. En el cuadro Buscar, ingrese dos espacios.

  3. Asegúrese de que el cuadro Reemplazar con esté vacío.

  4. Seleccione la casilla de verificación Coincidir con el contenido de toda la celda.

  5. Haga clic en Reemplazar todo.

  6. Continúe haciendo clic en Reemplazar todo hasta que Excel no encuentre más coincidencias.

  7. Repita los pasos 2 a 5, pero esta vez use solo un espacio en el paso 2.

  8. Cierre el cuadro de diálogo Buscar y reemplazar.

Otra opción es utilizar la función Recortar hoja de trabajo. Este enfoque es útil si las celdas que desea modificar están todas en un área particular de la hoja de trabajo, como una sola columna. Por ejemplo, si desea deshacerse de los espacios de las celdas en la columna D, puede usar la siguiente fórmula:

=Trim(D1)

La función Recortar devuelve el contenido de la celda D1 sin espacios iniciales o finales. Luego puede copiar los resultados de esta fórmula y usar Pegado especial para pegar los valores nuevamente en las celdas que desee.

Por supuesto, si tiene muchas hojas de trabajo que necesita procesar, o si obtiene rutinariamente libros de trabajo que contienen los espacios adicionales en las celdas, una mejor manera sería crear una macro que pudiera deshacerse de los espacios. Quizás la forma más rápida sería examinar todas las celdas de la hoja de trabajo y deshacerse de los espacios adicionales:

Sub CleanSheet1()

For Each cell In ActiveSheet.UsedRange         cell.Value = Trim(cell)

Next cell End Sub

La macro recorre cada celda y utiliza la función Recortar para deshacerse de los espacios iniciales o finales. Esto funciona en todas las celdas, pero puede producir resultados no deseados, dependiendo de las características de sus datos. Si tiene celdas que tienen espacios iniciales y desea esos espacios, deberá utilizar una macro diferente. Esta versión dará resultados más satisfactorios:

Sub CleanSheet2()

Dim rCell As Range     Dim rText As Range

Set rText = Cells.SpecialCells( _       xlCellTypeConstants, _       xlTextValues)

For Each rCell In rText         If Trim(rCell.Value) = "" Then             rCell.ClearContents         End If     Next     Set rText = Nothing     Set rCell = Nothing End Sub

Solo verifica las celdas que contienen constantes (que incluye todo el texto en la hoja de trabajo) y luego verifica si el uso de la función Recortar daría como resultado una celda vacía. Si es así, la celda se borra. Si la función Recortar no da como resultado una celda vacía, no se realiza ningún cambio en la celda.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (12471) se aplica a Microsoft Excel 2007, 2010, 2013 y 2016.

Puede encontrar una versión de este consejo para la interfaz de menú anterior de Excel aquí:

enlace: / excel-Getting_Rid_of_Spaces_in_Cells [Deshacerse de espacios en celdas].