George a menudo tiene que trabajar con datos proporcionados por otras personas. Al trabajar con estos datos, es posible que deba convertir un nombre, por ejemplo, Joe Bloggs, de modo que el apellido sea primero, como en Bloggs, Joe. George entiende que puede usar una fórmula para invertir el nombre, pero debe hacerlo en la misma celda en la que reside el nombre. Se pregunta si hay un comando integrado que realice esta tarea.

No, no hay un comando integrado para hacerlo. Sin embargo, puede crear una macro que haga el cambio por usted. Esta macro podría asignarse a una tecla de método abreviado o colocarse en una barra de herramientas para que se pueda acceder a ella fácilmente. Aquí hay una macro simple que hará el cambio:

Sub ReverseNames()

Dim x As Integer     Dim sCell As String     Dim sLast As String     Dim sFirst As String     Dim rCell As Range

For Each rCell In Selection         sCell = rCell.Value         x = InStr(sCell, " ")

If x > 0 Then             sFirst = Left(sCell, x - 1)

sLast = Mid(sCell, x + 1)

rCell.Value = sLast & ", " & sFirst         End If     Next     Set rCell = Nothing End Sub

Para usar la macro, simplemente seleccione el rango de celdas que desea afectar y luego ejecútelo. La macro busca un espacio dentro de la celda y considera que todo lo que está delante del espacio es el nombre y todo lo que está después del espacio es el apellido. Estos dos elementos se invierten, se coloca una coma entre ellos y se vuelven a meter 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 (3812) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posterior) aquí:

link: / excelribbon-Reversing_Names_In_Place [Invertir nombres en su lugar].