Visual Basic, da Microsoft for Applications (VBA) é um subconjunto do Visual Basic que é usado para personalizar aplicativos do Microsoft Office. Um pedaço de código VBA, uma macro, pode substituir muitas funções repetitivas como localizar e substituir. Se você deseja remover determinados caracteres a partir de células, como pontos ou vírgulas, escrever uma rotina para executar a tarefa para você. Em vez de ter que clicar "Localizar e substituir" várias vezes, você pode obter VBA para executar a tarefa para você em um botão push.
pressione "Alt" + "F11" no Excel para abrir o Editor do Visual Basic (VBE).
Clique "Inserir" gt; "Módulo."
Recorte e cole o seguinte código para a janela em branco:
Option Explicit
Sub Remove ()
Dim rgxRegExp As ObjectDim rngCell Como Range, rngRange Como Gama
Definir rngRange = Sheet1.Range ("A1: A3")
Definir rgxRegExp = CreateObject ("VBScript.RegExp")
rgxRegExp.Global = True
rgxRegExp.Pattern = " |.,"
com o Application
.Cálculo = xlCalculationManual
.EnableEvents = False
.ScreenUpdating = False
End With
Para Cada rngCell Em rngRange.SpecialCells (xlCellTypeConstants)
rngCell.Value = rgxRegExp.Replace (rngCell.Value, vbNullString)
Próximo
com o Application
.Cálculo = xlCalculationAutomatic
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub
Alterar o intervalo para coincidir com o intervalo de dados que você deseja remover caracteres a partir. Por exemplo, se você quiser remover caracteres a partir de células D1 a D110 na planilha 2, linha mudança 5 no código para ler:
Definir rngRange = Sheet2.Range ("D1: D110").
Alterar o código de modo a reflectir os caracteres que você deseja remover a partir das células em sua planilha. O código como escrito remove períodos ou vírgulas (rgxRegExp.Pattern = ". |,"). Você poderia mudar para o código que remove vírgulas e hífens (rgxRegExp.Pattern = ", | -") Ou períodos e percentagens (rgxRegExp.Pattern = ". |,"), Ou você pode substituir os números e outros caracteres especiais.
pressione "F5" para executar a rotina.
dicas & avisos
- Você não precisa sair do VBE para verificar se o código executou a ação que o esperado. Alternar entre a planilha eo VBA, premindo "Alt" + "F11."
Como definir o valor da célula no VBA
Como abrir uma pasta de trabalho usando o VBA
Como importar dados do excel para o word usando o visual basic
Como remover células com zeros a partir do excel 2007