Como inserir rapidamente um comentário em várias células no Excel?
Em uma planilha, inserir um comentário em uma célula é muito fácil, mas quando você deseja inserir o mesmo comentário em várias células ao mesmo tempo, como fazer?
Insira um comentário em várias células com o recurso Colar especial
Insira um comentário em várias células com o código VBA
Insira um comentário em várias células com o recurso Colar especial
No Excel, não há como inserir vários comentários ao mesmo tempo. Você pode, no entanto, copiar um comentário para várias células da seguinte maneira:
1. Insira seu comentário em uma célula.
2. Selecione a célula de comentário e pressione o botão Ctrl + C chaves para copiá-lo.
3. Em seguida, selecione e clique com o botão direito no intervalo em que deseja inserir o comentário em lote, selecione colar especial > colar especial no menu do botão direito. Veja a imagem:
4. No colar especial caixa de diálogo, verifique a Comentários opção e, em seguida, clique no OK botão. Veja a imagem:
Em seguida, os mesmos comentários são inseridos em todas as células selecionadas imediatamente.
Note: Este método irá inserir os mesmos comentários em todas as células selecionadas. Se você deseja inserir os mesmos comentários em células visíveis apenas de uma lista filtrada, tente o método VBA abaixo.
Insira um comentário em várias células com o código VBA
Supondo que você tenha uma lista filtrada conforme a imagem mostrada abaixo. E você só deseja adicionar comentários em lote a todas as células visíveis. Faça o seguinte.
1. aperte o outro + F11 chaves juntas para abrir o Microsoft Visual Basic para aplicativos janela.
2. No Mocrosoft Visual Basic para Aplicativos janela, por favor clique inserção > Móduloe insira o seguinte código no módulo:
VBA: comentário inerte em lote para várias células (células visíveis apenas na lista filtrada)
Sub InsertCommentsSelection()
Dim xRg As Range
Dim xRgEach As Range
Dim xAddress As String
Dim xText As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range:", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Count > 1 Then
Set xRg = xRg.SpecialCells(xlCellTypeVisible)
End If
xRg.Select
xText = InputBox("Enter Comment to Add" & vbCrLf & "Comment will be added to all cells in Selection: ", "Kutools For Excel")
If xText = "" Then
MsgBox "No comment added", vbInformation, "Kutools For Excel"
Exit Sub
End If
For Each xRgEach In xRg
With xRgEach
.ClearComments
.AddComment
.Comment.Text Text:=xText
End With
Next xRgEach
End Sub
3. aperte o F5 chave para executar o código. Na primeira aparição Kutools for Excel caixa de diálogo, selecione o intervalo filtrado ao qual deseja adicionar comentários e clique no OK botão. Veja a imagem:
4. Depois outro Kutools for Excel caixa de diálogo aparece, insira seu comentário na caixa de texto e clique no OK botão.
Agora os comentários são inseridos em todas as células visíveis apenas na lista filtrada selecionada, conforme a captura de tela mostrada abaixo:
Melhores ferramentas de produtividade de escritório
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...
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!