Criei uma função para deletar uma string em uma função:
Function deleteString(ByVal STRING_TO_BE_DELETED As String) ' ' Deleta um texto específico ' IMPORTANTE: A origem já deve estar selecionado ' Selection.Replace What:=STRING_TO_BE_DELETED, Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Function
Function deleteString(ByVal STRING_TO_BE_DELETED As String) ' ' Deleta um texto específico ' IMPORTANTE: A origem já deve estar selecionado ' Selection.Replace What:=STRING_TO_BE_DELETED, Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Function
Outra função para deletar células em branco:
Function deleteBlank(Optional NOT_IN_USE As Boolean) ' ' Deleta espaços em brancos ' IMPORTANTE: Os dados já devem vir selecionados ' Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireRow.delete End Function
Function deleteBlank(Optional NOT_IN_USE As Boolean) ' ' Deleta espaços em brancos ' IMPORTANTE: Os dados já devem vir selecionados ' Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireRow.delete End Function
Uma função que chama essas duas, única que será chamada pela macro:
Function deleteString_Blank(ByVal RANGE_SELECTION As Range, ByVal LIST_TO_BE_DELETED As String) ' ' Deleta texto de uma seleção ' Dim arr As Variant Dim i As Integer RANGE_SELECTION.Select arr = Range(LIST_TO_BE_DELETED) For i = LBound(arr, 1) To UBound(arr, 1) deleteString arr(i, 1) Next i deleteBlank End Function
Function deleteString_Blank(ByVal RANGE_SELECTION As Range, ByVal LIST_TO_BE_DELETED As String) ' ' Deleta texto de uma seleção ' Dim arr As Variant Dim i As Integer RANGE_SELECTION.Select arr = Range(LIST_TO_BE_DELETED) For i = LBound(arr, 1) To UBound(arr, 1) deleteString arr(i, 1) Next i deleteBlank End Function
E por o código que chama as funções e envia as variáveis:
deleteString_Blank Columns(1), "NOME_DA_LISTA"
deleteString_Blank Columns(1), "NOME_DA_LISTA"