Vba excel удалить комментарии

Excel, just like other Office products, supports comments. Although comments are helpful to add tips or other details into your spreadsheets, deleting them may become time consuming while trying to find and select all of them. In this article, we’re going to show you how to delete all comments in Excel using VBA.

How to delete all comments in Excel

Comments are stored in the comments collection under a worksheet object. This means that we can loop through comments in a worksheet and delete them one by one (automatically of course!).

    For Each cmt In ActiveSheet.Comments
        cmt.Delete
    Next cmt

To delete the Comments in whole workbook, we need to check every sheet as well.

    For Each ws In ActiveWorkbook.Worksheets
       For Each cmt In ws.Comments
            cmt.Delete
        Next cmt
    Next ws

You can use codes in two ways:

• Module
• Immediate Window

In the Module method, you need to add the module into the workbook or the add-in file. Copy and paste the code into the module to run it. The main advantage of the module method is that it allows saving the code in the file, so that it can be used again later. Furthermore, the subroutines in modules can be used by icons in the menu ribbons or keyboard shortcuts. Remember to save your file in either XLSM or XLAM format to save your VBA code.

The Immediate Window method, on the other hand, is essentially a quick and dirty method where you can simply copy and paste the code into the Immediate Window and press the Enter key to run it. Unfortunately, any code you use in the Immediate Window will not be saved. Also note that icons and keyboard shortcuts will not be available.

Delete Comments in an active sheet

Module method:

Sub DeleteCommentsInActiveWorksheet()
    Dim cmt As Comment
    For Each cmt In ActiveSheet.Comments
        cmt.Delete
    Next cmt
End Sub

Immediate Window method:

For Each cmt In ActiveSheet.Comments: cmt.Delete: Next cmt

Delete Comments in a workbook

Module method:

Sub DeleteCommentsInActiveWorkbook()
    Dim ws As Worksheet
    Dim cmt As Comment
    For Each ws In ActiveWorkbook.Worksheets
        For Each cmt In ws.Comments
            cmt.Delete
        Next cmt
    Next ws
End Sub

Immediate Window method:

For Each ws In ActiveWorkbook.Worksheets: For Each cmt In ws.Comments: cmt.Delete: Next cmt: Next ws

All you really need to do is get a range, then clear comments:

Worksheets("MySheet").Activate 
ActiveSheet.UsedRange.ClearComments

Does that help?

More Detail
To get the above code to work, there are several approaches. The one I recommend here is:

• Open your Excel workbook.
• Click the Visual Basic option on the Developer tab. This opens a VBA window with a tree control to the left, which shows the worksheets and workbooks.
• Right-click the worksheet and select Insert Module.
• In the module window that opens, paste the code I show at the bottom of these instructions.
• Save the worksheet as type Excel Macro-Enabled Workbook.
• Close the VBA window.

When back in Excel, hit to bring up the Run Macro window. You should see your RemoveComments macro listed. Now click Run and your comments should be removed.

I actually tested this, so it will work if done properly. If it still doesn’t work for you, be sure that the worksheet in question is the first worksheet in your workbook. If it isn’t, then change Worksheets(1).Activate in your RemoveComments Sub so that it refers to the correct worksheet.

Sub RemoveComments() 
  Worksheets(1).Activate 
  ActiveSheet.UsedRange.ClearComments 
End Sub

Как удалить все комментарии на листе / книге?

В целом, большинство пользователей знают, как удалить один комментарий в Excel, но если у вас есть рабочий лист или книга с несколькими комментариями, знаете ли вы, как массово удалить все комментарии? Теперь я расскажу вам несколько быстрых способов удалить все комментарии с листа или всей книги.

Удалите все комментарии на листе с помощью Удалить в Excel

Удалите все комментарии на листе с помощью функции Перейти в Excel

Удалить все комментарии на листе или в книге с помощью VBA

Сбросить расположение всех комментариев с помощью Kutools for Excel

Удалите все комментарии на листе с помощью Удалить в Excel

Вы можете использовать ярлык, чтобы выбрать все комментарии на листе, а затем удалить их.

1. Откройте лист, из которого вы хотите удалить все комментарии, и нажмите Ctrl + чтобы выделить весь лист.

2. Затем нажмите Обзор > Удалить, то все комментарии в текущем листе удаляются. Смотрите скриншот:

Удалите все комментарии на листе с помощью функции Перейти в Excel

В Excel, если вы хотите удалить все комментарии на листе, вы можете сделать следующее:

1. Нажмите F5 Показать Перейти к диалоговое окно и щелкните Специальный… , чтобы открыть Перейти к Специальный диалог, затем отметьте Комментарии и нажмите OK чтобы закрыть диалог. Смотрите скриншоты:

2. Затем щелкните правой кнопкой мыши, чтобы открыть контекстное меню, и щелкните Удалить комментарий, и теперь все комментарии в текущем листе удалены.

Удалить все комментарии на листе или в книге с помощью VBA

Существует также VBA, который может помочь вам удалить комментарии с рабочего листа или всей книги.

1. Нажмите Alt + F11 для отображения Microsoft Visual Basic для приложений окно.

2. В окне нажмите Вставить > Модули чтобы отобразить новое окно модуля, затем скопируйте следующий код VBA в окно модуля.

VBA: удаление комментариев с листа.

Sub Remove_All_Comments_From_Worksheet()
Cells.ClearComments
End Sub

VBA: удалить все комментарии из всей книги

Sub DeleteAllComments()
'Updateby20140613
For Each xWs In Application.ActiveWorkbook.Sheets
    For Each xComment In xWs.Comments
        xComment.Delete
    Next
Next
End Sub

3. Нажмите Run кнопку, чтобы запустить код, и вы увидите, что все комментарии удалены из текущего рабочего листа или всей книги.

Сбросить расположение всех комментариев с помощью Kutools for Excel

Если вы вставили несколько комментариев в книгу, и вы, вероятно, можете перетащить комментарии, как показано ниже. И теперь вы хотите сбросить расположение комментариев обратно, вы можете использовать Kutools for ExcelАвтора Сбросить позицию комментария чтобы быстро их сбросить.

После бесплатная установка Kutools for Excel, пожалуйста, сделайте следующее:

Нажмите Кутулс > Больше > Сбросить позицию комментария. Смотрите скриншот:

Затем выберите Активный лист для сброса позиции комментариев на активном листе, или Все листы чтобы сбросить положение всех комментариев во всей книге.

Сбросить расположение всех комментариев