如何快速在Excel的多個單元格中插入批註？

在工作表中，向單元格插入批註非常容易，但當你需要同時在多個單元格中插入相同的批註時，該怎麼辦呢？

使用選擇性粘貼功能向多個單元格插入批註
使用VBA代碼向多個單元格插入批註

使用選擇性粘貼功能向多個單元格插入批註

在Excel中，無法一次性插入多個批註。但是，你可以按照以下方法將一個批註複製到多個單元格：

1. 在單元格中插入你的批註。

2. 選擇帶有批註的單元格並按下 Ctrl + C 鍵進行複製。

3. 然後選擇並右鍵點擊你想要批量插入批註的區域，從右鍵菜單中選擇 選擇性粘貼 > 選擇性粘貼。請參見截圖：

4. 在「選擇性粘貼」對話框中，勾選「批註」選項，然後點擊「確定」按鈕。請參見截圖：

接著，相同的批註會立即插入到所有選中的單元格中。

備註：此方法會將相同的批註插入到所有選中的單元格中。如果你只想在篩選列表中的可見單元格中插入相同的批註，請嘗試以下的VBA方法。

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！

使用VBA代碼向多個單元格插入批註

假設你有一個如下截圖所示的篩選列表，並且你只想批量向所有可見單元格添加批註。請按照以下步驟操作：

1. 同時按下 Alt + F11 鍵以打開 Microsoft Visual Basic for Applications 視窗。

2. 在 Microsoft Visual Basic for Applications 視窗中，請點擊 插入 > 模組，並將以下代碼輸入模組中：

VBA：批量插入批註到多個單元格（僅限篩選列表中的可見單元格）

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. 按下 F5 鍵運行代碼。在第一個彈出的 Kutools for Excel 對話框中，請選擇你想添加批註的篩選範圍，然後點擊「確定」按鈕。請參見截圖：

4. 接著另一個 Kutools for Excel 對話框彈出，請在文本框中輸入你的批註，然後點擊「確定」按鈕。

現在，批註已插入到所選篩選列表中的所有可見單元格中，如下截圖所示：