如何快速將注釋插入Excel中的多個單元格？

如何快速將注釋插入Excel中的多個單元格？

在工作表中，在單元格中插入評論非常容易，但是當您想將同一條評論同時插入多個單元格中時，該怎么辦？

使用選擇性粘貼功能在多個單元格中插入注釋

使用VBA代碼在多個單元格中插入注釋 使用選擇性粘貼功能在多個單元格中插入注釋

在Excel中，無法同時插入多個注釋。 但是，您可以將注釋復制到多個單元格，如下所示：

1.在單元格中插入您的評論。

2.選擇注釋單元格，然后按 按Ctrl + C 鍵復制它。

3.然后選擇并右鍵單擊要批量插入注釋的范圍，選擇  選擇性粘貼 > 選擇性粘貼 從右鍵單擊菜單中。 看截圖：

4.在 選擇性粘貼 對話框，檢查 評論 選項，然后單擊 OK 按鈕。 看截圖：

然后，將相同的注釋立即插入所有選定的單元格。

備注：此方法會將相同的注釋插入所有選定的單元格。 如果僅在過濾列表的可見單元格中插入相同的注釋，請嘗試以下VBA方法。

使用VBA代碼在多個單元格中插入注釋

假設您有一個過濾列表，如下圖所示。 您只想向所有可見的單元格批量添加注釋。 請執行以下操作。

1。 按 其他 + F11 鑰匙一起打開 適用于應用程序的Microsoft Visual Basic 窗口。

2.在 Mocrosoft Visual Basic應用程序 窗口，請點擊 插頁 > 模塊，然后將以下代碼輸入到模塊中：

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 對話框，請選擇要添加注釋的過濾范圍，然后單擊 OK 按鈕。 看截圖：

4.然后另一個 Kutools for Excel 對話框彈出，請在文本框中輸入您的評論，然后單擊 OK 按鈕。

現在，注釋僅插入到選定過濾列表中的所有可見單元格中，如下圖所示：