Wie füge ich schnell einen Kommentar in mehrere Zellen in Excel ein?
In einem Arbeitsblatt ist das Einfügen eines Kommentars in eine Zelle sehr einfach. Wenn Sie jedoch denselben Kommentar gleichzeitig in mehrere Zellen einfügen möchten, wie können Sie dies tun?
Fügen Sie mit der Funktion "Inhalte einfügen" einen Kommentar in mehrere Zellen ein
Fügen Sie einen Kommentar in mehrere Zellen mit VBA-Code ein
Fügen Sie mit der Funktion "Inhalte einfügen" einen Kommentar in mehrere Zellen ein
In Excel gibt es keine Möglichkeit, mehrere Kommentare gleichzeitig einzufügen. Sie können einen Kommentar jedoch wie folgt in mehrere Zellen kopieren:
1. Fügen Sie Ihren Kommentar in eine Zelle ein.
2. Wählen Sie die Kommentarzelle aus und drücken Sie die Taste Ctrl + C Schlüssel, um es zu kopieren.
3. Wählen Sie dann den Bereich aus, in den Sie einen Kommentar stapelweise einfügen möchten, und klicken Sie mit der rechten Maustaste darauf Einfügen > Einfügen aus dem Kontextmenü. Siehe Screenshot:
4. In dem Einfügen Wählen Sie im Dialogfeld Ihre Nachricht Option, und klicken Sie dann auf OK Taste. Siehe Screenshot:
Dann werden sofort dieselben Kommentare in alle ausgewählten Zellen eingefügt.
Note: Diese Methode fügt allen ausgewählten Zellen dieselben Kommentare ein. Wenn Sie dieselben Kommentare nur in sichtbare Zellen einer gefilterten Liste einfügen möchten, versuchen Sie die folgende VBA-Methode.
Fügen Sie einen Kommentar in mehrere Zellen mit VBA-Code ein
Angenommen, Sie haben eine gefilterte Liste wie im folgenden Screenshot gezeigt. Und Sie möchten einfach alle sichtbaren Zellen stapelweise mit Kommentaren versehen. Bitte gehen Sie wie folgt vor.
1. Drücken Sie die Taste Andere + F11 Tasten zusammen, um das zu öffnen Microsoft Visual Basic für Anwendungen Fenster.
2. In dem Mocrosoft Visual Basic für Anwendungen Fenster, bitte klicken Insert > Modulund geben Sie den folgenden Code in das Modul ein:
VBA: Batch inerter Kommentar zu mehreren Zellen (sichtbare Zellen nur in gefilterter Liste)
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. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes. Beim ersten Auftauchen Kutools for Excel Wählen Sie im Dialogfeld den gefilterten Bereich aus, in dem Sie Kommentare hinzufügen möchten, und klicken Sie dann auf OK Taste. Siehe Screenshot:
4. Dann noch eine Kutools for Excel Das Dialogfeld wird angezeigt. Geben Sie Ihren Kommentar in das Textfeld ein und klicken Sie auf OK .
Jetzt werden Kommentare in alle sichtbaren Zellen nur in der ausgewählten gefilterten Liste eingefügt, wie im folgenden Screenshot gezeigt:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!