Ir para o conteúdo principal

Como localizar e substituir texto em comentários no Excel?

Como sabemos, existe uma função Find and Replace no Excel, e com esta função, podemos encontrar e substituir o conteúdo nas células rapidamente. Mas podemos localizar e substituir conteúdos em comentários no Excel?

Usando o código VBA para localizar e substituir texto nos comentários

Para localizar e substituir texto em comentários de forma rápida e fácil


seta azul bolha direita Usando o código VBA para localizar e substituir texto nos comentários

No Excel, parece que não há outra maneira de resolver esse problema, exceto usando o código VBA, você pode usar o seguinte código VBA para localizar e substituir texto em todos os comentários. Por exemplo, substituirei 2011 por 2012 em todos os comentários no Excel.

1. Clique Developer >Visual Basic, Uma nova Microsoft Visual Basic para aplicativos janela será exibida, clique inserção > Módulo e, em seguida, insira o seguinte código VBA no Módulo:

VBA: localize e substitua o texto em todos os comentários no Excel.

Sub ReplaceComments ()
Dim cmt como comentário
Dim wks como planilha
Dim sLocalizar como String
Dim sSubstituir como String
Dim sCmt como string
sFind = "2011"
sReplace = "2012"
Para cada semana em ActiveWorkbook.Worksheets
Para cada cmt em wks.Comments
sCmt = cmt.Texto
If InStr (sCmt, sFind) <> 0 Then
sCmt = Application.WorksheetFunction. _
Substituto (sCmt, sFind, sReplace)
cmt.Text Text: = sCmt
Se acabar
Próximo
Próximo
Definir wks = Nada
Definir cmt = Nada
End Sub

Observação: No código acima, você pode definir o sEncontrar e sSubstituir variáveis ​​para o que você está procurando e o que deseja substituir.

2. Então clique dpc-substituir-comentário-1 para executar o código, e todos os comentários de 2011 serão substituídos por 2012 em toda a pasta de trabalho.


seta azul bolha direita Uma ferramenta útil para localizar e substituir texto em comentários de forma rápida e fácil

Podemos localizar e substituir texto rapidamente em todos os comentários com Kutools for Excel'S Ferramentas de comentário de célula.

Kutools for Excel: com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. Get it Now

Se você instalou o Kutools para Excel, poderá facilmente localizar e substituir o texto em todos os comentários no Excel.

1. Clique Kutools > Mais > Ferramentas de comentário de célula. Veja a imagem:

doc-substituir-comentário-2

2. No Ferramentas de comentário de célula caixa de diálogo:

  • (1.) Clique Encontrar / Substituir aba;
  • (2.) Selecione o escopo que deseja aplicar a este utilitário, você pode selecionar Folha ativa or Todas as folhas;
  • (3.) Digite o texto (2011) que você deseja substituir no Encontre texto nos comentários caixa e insira o texto específico (2012) que deseja usar na substituir por caixa.

doc-substituir-comentário-3

3. E, em seguida, clique em Substituir botão. Todo o ano de 2011 será substituído por 2012 nos comentários da planilha ativa. Veja as capturas de tela:

doc-substituir-comentário-4 -2 doc-substituir-comentário-5

Note: Se você marcou Exibir resumo, haverá uma caixa de aviso para lembrá-lo de quantos comentários de célula foram alterados.

Para obter informações mais detalhadas sobre Ferramentas de comentário de célula, Visite Descrição do recurso das ferramentas de comentário de células.


Artigos relacionados:

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo.  Clique aqui para obter o recurso que você mais precisa...

Descrição


Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I did it, change these 3 lines of the code above like below, Chr(10) is the key change:

If InStr(sCmt, Chr(10)) <> 0 Then

sCmt = Application.WorksheetFunction. _

Substitute(sCmt, Chr(10), sReplace)
This comment was minimized by the moderator on the site
I did it, change these 3 lines of the code above as below, Chr(10) is the key change!

If InStr(sCmt, Chr(10)) <> 0 Then

sCmt = Application.WorksheetFunction. _

Substitute(sCmt, Chr(10), sReplace)
This comment was minimized by the moderator on the site
How to replace line break in comments?
This comment was minimized by the moderator on the site
The above code turns the whole comment to bold. Normally only the title is bold in an Excel comment by default. The below code fixes the problem. Sub ReplaceComments() Dim cmt As Comment Dim wks As Worksheet Dim sFind As String Dim sReplace As String Dim lTitleLength As Long Dim sCmt As String sFind = "2011" sReplace = "2014" For Each wks In ActiveWorkbook.Worksheets For Each cmt In wks.Comments sCmt = cmt.Text If InStr(sCmt, sFind) 0 Then sCmt = Application.WorksheetFunction. _ Substitute(sCmt, sFind, sReplace) cmt.Text Text:=sCmt End If lTitleLength = InStr(cmt.Text, ":") With cmt.Shape.TextFrame .Characters(1, lTitleLength).Font.Bold = True .Characters(lTitleLength + 1, Len(cmt.Text)).Font.Bold = False End With Next Next Set wks = Nothing Set cmt = Nothing End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations