Πώς να καταχωρίσετε όλα τα σχόλια σε ένα νέο φύλλο εργασίας ή βιβλίο εργασίας στο Excel;

Εάν έχετε βιβλίο εργασίας με πάρα πολλά σχόλια σε αυτό και θέλετε να παραθέσετε όλα τα σχόλια σε ένα νέο φύλλο εργασίας ή βιβλίο εργασίας για την αναθεώρηση όλων των σχολίων, πώς μπορείτε να το κάνετε; Οι ακόλουθες μέθοδοι μπορούν να σας βοηθήσουν να απαριθμήσετε γρήγορα όλα τα σχόλια ενός φύλλου εργασίας / βιβλίου εργασίας σε ένα νέο φύλλο εργασίας ή βιβλίο εργασίας στο Excel.

Λίστα όλων των σχολίων σε ένα νέο φύλλο εργασίας με κωδικό VBA

Καταγράψτε όλα τα σχόλια σε ένα νέο φύλλο εργασίας ή βιβλίο εργασίας με το Kutools για Excel

Λίστα όλων των σχολίων σε ένα νέο φύλλο εργασίας με κωδικό VBA

Ο ακόλουθος κώδικας VBA θα εμφανίσει όλα τα σχόλια σε ένα νέο φύλλο εργασίας στο τρέχον βιβλίο εργασίας. Στο νέο φύλλο εργασίας, θα εμφανίσει όλα τα σχόλια ολόκληρου του βιβλίου εργασίας σε μια λίστα με το όνομα φύλλου, τη διεύθυνση κελιού, το περιεχόμενο σχολίων και το όνομα κελιού. Χρησιμοποιήστε αυτήν τη μέθοδο ως εξής:

1. Πατήστε Εργολάβος > Visual Basic, εμφανίζει το Microsoft Visual Basic για εφαρμογές παράθυρο. Και κάντε κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, εισαγάγετε τους ακόλουθους κωδικούς VBA στο Module.

VBA: παραθέτει όλα τα σχόλια σε ένα νέο φύλλο εργασίας.

Sub ShowCommentsAllSheets()
'Update 20140508
Dim commrange As Range
Dim rng As Range
Dim ws As Worksheet
Dim newWs As Worksheet
Set newWs = Application.Worksheets.Add
newWs.Range("A1").Resize(1, 4).Value = Array("Sheet", "Address", "Value", "Comment")
Application.ScreenUpdating = False
On Error Resume Next
For Each ws In Application.ActiveWorkbook.Worksheets
    Set commrange = ws.Cells.SpecialCells(xlCellTypeComments)
    If Not commrange Is Nothing Then
        i = newWs.Cells(Rows.Count, 1).End(xlUp).Row
        For Each rng In commrange
            i = i + 1
            newWs.Cells(i, 1).Resize(1, 4).Value = Array(ws.Name, rng.Address, rng.Value, rng.Comment.Text)
        Next
    End If
    Set commrange = Nothing
Next
newWs.Cells.WrapText = False
Application.ScreenUpdating = True
End Sub

2. Στη συνέχεια κάντε κλικ στο κουμπί  κουμπί για να εκτελέσετε τον κώδικα και θα λάβετε ένα νέο φύλλο εργασίας με όλα τα σχόλια στο τρέχον βιβλίο εργασίας. Δείτε το στιγμιότυπο οθόνης:

Καταγράψτε όλα τα σχόλια σε ένα νέο φύλλο εργασίας ή βιβλίο εργασίας με ένα κλικ

Με την Δημιουργία λίστας σχολίων of Kutools για Excel, μπορείτε να αναφέρετε γρήγορα όλα τα σχόλια σε ένα νέο φύλλο εργασίας ή σε ένα νέο βιβλίο εργασίας.

Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα του Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Αποκτήστε το τώρα.

1. Εάν έχετε εγκαταστήσει το Kutools για Excel, κάντε κλικ στο Kutools > Περισσότερο > Δημιουργία λίστας σχολίων, δείτε το στιγμιότυπο οθόνης:

2. Στην Δημιουργία λίστας σχολίων κουτί διαλόγου:

• Επιλέξτε το εύρος που θέλετε να αναφέρετε το σχόλιο, μπορείτε να επιλέξετε Ενεργό φύλλο or Όλα τα φύλλα.
• Στη συνέχεια, καθορίστε τη θέση που θέλετε να βάλετε τη λίστα σχολίων, μπορείτε να παραθέσετε τα σχόλια σε ένα νέο βιβλίο εργασίας ή σε ένα νέο φύλλο, δείτε το στιγμιότυπο οθόνης:

3. Και στη συνέχεια κάντε κλικ στο κουμπί Δημιουργίακουμπί. Ένα νέο φύλλο εργασίας θα προστεθεί για να απαριθμήσει όλα τα ενεργά σχόλια του φύλλου εργασίας με τα χαρακτηριστικά του, όπως όνομα φύλλου, αναφορές κελιού, σειρά και στήλη. Δείτε το στιγμιότυπο οθόνης:

Για περισσότερες πληροφορίες σχετικά με το Δημιουργία λίστας σχολίων, Μπορείτε να επισκεφθείτε Δημιουργία περιγραφής λίστας σχολίων.

Σχετικά άρθρα:

• Αλλαγή όλων των μορφών σχολίων στα κελιά
• Αλλάξτε το όνομα του συντάκτη όλων των σχολίων
• Βρείτε και αντικαταστήστε κείμενο μέσα σε σχόλια
• Εμφάνιση ή απόκρυψη όλων των σχολίων και των δεικτών σχολίων στο Excel
• Μετατροπή περιεχομένου κελιού σε σχόλια στο Excel
• Μετατροπή σχολίων σε περιεχόμενο κελιού στο Excel