Marinos trabaja mucho con archivos CSV. En su caso, los archivos CSV son creados por una aplicación personalizada y descubrió que incluso puede incluir fórmulas en ellos. Entonces, si una línea del archivo CSV contiene «,,, Total:, = SUM (D5: D13) ,,,,» la fórmula se evalúa y todo está bien.

Sin embargo, una cosa que Marinos quiere hacer es indicar en el archivo CSV cómo se deben justificar las celdas individuales después de que se importan a Excel.

Parece recordar que en Lotus 123 podría usar un carácter de prefijo para indicar la alineación de la celda (‘para la izquierda, ^ para el medio y «

para la derecha); cree que la misma capacidad sería excelente en Excel.

No hay forma de hacer esto en Excel; la alineación de los datos importados se basa en los valores predeterminados del sistema, de modo que el texto se justifica a la izquierda y los números se justifican a la derecha. Una opción, sin embargo, sería agregar un carácter de prefijo que luego podría «analizar» con una macro para aplicar la alineación deseada. Por ejemplo, podría usar «<» para la izquierda, «^» para el centro y «>» para la derecha . Cuando Excel importa los archivos CSV, los campos se tratan como texto. A continuación, puede ejecutar esta macro para buscar el carácter de alineación inicial y realizar la acción deseada:

Sub SetJustification()

Dim rCell As Range

For Each rCell In ActiveSheet.UsedRange         With rCell             Select Case Left(.Value, 1)

Case "<"

.Value = Mid(.Value, 2)

.HorizontalAlignment = xlHAlignLeft                 Case "^"

.Value = Mid(.Value, 2)

.HorizontalAlignment = xlHAlignCenter                 Case ">"

.Value = Mid(.Value, 2)

.HorizontalAlignment = xlHAlignRight             End Select         End With     Next     Set rCell = Nothing End Sub

La macro comprueba cada celda de la hoja de trabajo. Si la celda comienza con un carácter de alineación, el carácter se elimina y la alineación adecuada Está aplicado.

_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 (8709) se aplica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 y Excel en Office 365. Puede encontrar una versión de este consejo para la interfaz de menú anterior de Excel aquí:

link: / excel-Aligning_Cells_when_Importing_from_CSV [Alinear celdas al importar desde CSV].