Extraer solo palabras con MAYÚSCULAS de una celda
Linda comunidad, necesito de una columna extraer solo las palabras MAYÚSCULAS en otra columna, por ejemplo tengo una celda con el siguiente dato:
20/04/2019 - carteras SQUASH
Y necesito extraer solo la marca:
SQUASH
Respuesta de James Bond
Prueba con esta macro
Sub TEST()
Set datos = Range("A1").CurrentRegion
With datos
FILAS = .Rows.Count
For I = 1 To FILAS
With Application
SEPARA = .Transpose(.Transpose(Split(.Cells(I, 1))))
End With
X = 2: PALABRA = False
For J = 1 To UBound(SEPARA)
If SEPARA(J) Like "*[A-Z]" Then .Cells(I, X) = SEPARA(J): X = X + 1
Next J
Next I
End With
Set datos = Nothing
End Sub
