Come inserire rapidamente un commento in più celle in Excel?
In un foglio di lavoro, inserire un commento in una cella è molto semplice, ma quando vuoi inserire lo stesso commento in più celle contemporaneamente, come potresti fare?
Inserisci un commento su più celle con la funzione Incolla speciale
Inserisci un commento su più celle con codice VBA
Inserisci un commento su più celle con la funzione Incolla speciale
In Excel, non è possibile inserire più commenti contemporaneamente. Puoi, tuttavia, copiare un commento su più celle come segue:
1. Inserisci il tuo commento in una cella.
2. Selezionare la cella del commento e premere il tasto Ctrl + C chiavi per copiarlo.
3. Quindi selezionare e fare clic con il pulsante destro del mouse sull'intervallo in cui si desidera inserire il commento in batch, selezionare Incolla speciale > Incolla speciale dal menu di scelta rapida. Vedi screenshot:
4. Nel Incolla speciale finestra di dialogo, selezionare Commenti opzione, quindi fare clic su OK pulsante. Vedi screenshot:
Quindi gli stessi commenti vengono inseriti immediatamente in tutte le celle selezionate.
Note:: Questo metodo inserirà gli stessi commenti in tutte le celle selezionate. Se desideri inserire gli stessi commenti solo nelle celle visibili di un elenco filtrato, prova il seguente metodo VBA.
Inserisci un commento su più celle con codice VBA
Supponendo di avere un elenco filtrato come mostrato nell'immagine sottostante. E vuoi solo aggiungere commenti in batch a tutte le celle visibili. Si prega di fare quanto segue.
1. premi il altro + F11 chiavi insieme per aprire il Microsoft Visual Basic per le applicazioni finestra.
2. Nel Mocrosoft Visual Basic per applicazioni finestra, fare clic inserire > Modulie inserisci il codice seguente nel modulo:
VBA: raggruppa commenti inerti su più celle (celle visibili solo nell'elenco filtrato)
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. premi il F5 chiave per eseguire il codice. Nel primo spuntando Kutools for Excel finestra di dialogo, selezionare l'intervallo filtrato in cui si desidera aggiungere commenti, quindi fare clic su OK pulsante. Vedi screenshot:
4. Poi un altro Kutools for Excel si apre la finestra di dialogo, inserisci il tuo commento nella casella di testo, quindi fai clic su OK pulsante.
Ora i commenti vengono inseriti in tutte le celle visibili solo nell'elenco filtrato selezionato come mostrato nell'immagine sottostante:
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!