Quitar ciertas palabras de un texto

Os dejo el texto de una función de hoja de cálculo que hace exactamente lo que dice su nombre, o sea, quita ciertas palabras de un texto. Necesita dos argumentos: el primero es el rango de palabras a quitar y el segundo el texto base del que las queremos quitar. Para ilustrar mejor su funcionamiento, dejo también incrustado el video de mi canal de YouTube en el que se explica el funcionamiento de la función con varios ejemplos.

El código está escrito en Visual Basic para aplicaciones, VBA, y funciona perfectamente tanto en Excel como en LibreOffice Calc.

Function quitarPALABRAS(qPalabras As Range, qTexto As String)

‘Dimensionado de variables

Dim i As Integer, nqTexto As String

‘Ciclo de quita para cada grupo

nqTexto = qTexto

For i = 1 To qPalabras.Count

 ‘SUSTITUIR ese grupo por la nada

nqTexto = Application.WorksheetFunction.Substitute(nqTexto, qPalabras(i),“”)

Next i

quitarPALABRAS = nqTexto

End Function

 Y aquí está el video:

Comments

So empty here ... leave a comment!

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Sidebar



Si continuas utilizando este sitio, significa que aceptas el uso de cookies. más información

Los ajustes de cookies de esta web están configurados para "permitir cookies" y así ofrecerte la mejor experiencia de navegación posible. Si sigues utilizando esta web sin cambiar tus ajustes de cookies o haces clic en "Aceptar" estarás dando tu consentimiento a esto.

Cerrar