Saltar al contenido
View in the app

A better way to browse. Learn more.

Ayuda Excel

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

Separar texto de una celda (apellidos y nombres)

publicado

He traído una nueva inquietud, reciban saludos.

¿Cómo separar completamente nombres y apellidos a través de una macro? Es decir, poner primer nombre en B2, segundo nombre en C2, primer apellido en D2, segundo apellido en E2, y así respectivamente con cada uno de los ejemplos.

¿Es posible?

Libro1.rar

Featured Replies

publicado

como no existe la seguridad de que todos en el listado sean 2 nombres y 2 apellidos, y tampoco existe la certeza de cuales pudieran ser "compuestos", en cualquiera de las siguientes propuestas habrás de ajustar (mover) algunos datos a "su columna" correspondiente:

op1: (sin macros y conservando los nombres del listado original)

1) escribe la siguiente formula en [b2]

=sustituir(sustituir(sustituir(sustituir(sustituir(sustituir(nompropio(espacios(a2))," Del "," Del|")," De La "," De|La|")," De Los "," De|Los|")," De Las "," De|Las|")," De "," De|")," Y ","|Y|")[/CODE]

toma nota que mi separador de argumentos es la coma

2) copia la formula al resto de celdas en la columna B

3) selecciona el rango > copiar > pegar valores

4) con el rango seleccionado: datos > texto en columnas > delimitados (espacio) > finalizar

5) amplia el rango y usa la herramienta: reemplazar barra "|" por espacio " "

op2: (macros y sustituyendo [o aprovechando] la columna original)

[CODE]Sub separaNombres(): Application.ScreenUpdating = False
' procedimiento para distribuir nombres y apellidos en columnas separadas ' _
R&D: Héctor Miguel Orozco Díaz (original en julio, 2008) '
With Range([a2], [a65536].End(xlUp))
.Value = Evaluate("transpose(trim(transpose(lower(" & .Address & "))))")
.Value = Evaluate("transpose(substitute(transpose(substitute(transpose(substitute(transpose(" & _
.Address & "),"" del "","" del|"")),"" de la "","" de|la|"")),"" de los "","" de|los|""))")
.Value = Evaluate("transpose(substitute(transpose(substitute(transpose(substitute(transpose(" & _
.Address & "),"" de las "","" de|las|"")),"" de "","" de|"")),"" y "",""|y|""))")
.TextToColumns Destination:=.Cells(1), DataType:=xlDelimited, Space:=True
With .Resize(, .CurrentRegion.Columns.Count): .Cells.Replace What:="|", Replacement:=" "
.Value = Evaluate("transpose(proper(transpose(" & .Address & ")))")
.Cells.Replace What:=" Y ", Replacement:=" y ": .EntireColumn.AutoFit
End With: End With: End Sub[/CODE]

saludos,

hector.

publicado
  • Autor

Solucionado, pueden cerra el tema.

Te agradezco Héctor Miguel por la ayuda brindada.

  • 4 months later...
publicado

Hola!

Y si en el caso de conseguir por ejemplo:

Perez Pirela, Arnaldo Jose

Quiero separar y colocar en una sola celda:

Arnaldo Perez

publicado

asumiendo que SIEMPRE serán dos apellidos y dos nombres separados por una coma y que NO habrá apellidos/nombre "compuestos" (?), dos opciones (con los datos en [A1]):

=izquierda(extrae(a1,hallar(", ",a1)+2,50),hallar(" ",extrae(a1,hallar(", ",a1)+2,50)&" "))&izquierda(a1,hallar(" ",a1)-1)

=izquierda(extrae(a1,hallar("|",sustituir(a1," ","|",2))+1,50),sumaproducto(hallar("|",sustituir(a1," ","|",{2,3})),{-1,1}))&izquierda(a1,hallar(" ",a1)-1)

OJO con el separador de argumentos, mi sistema usa coma y en la segunda opción se requiere que sepas que caracteres admite tu configuración para identificar filas/columnas en matrices constantes (entre llaves)

saludos,

hector.

  • Silvia bloqueó este tema

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.