| 如何快速将注释插入Excel中的多个单元格？ | 您所在的位置：网站首页 › excel表格中如何添加备注内容 › 如何快速将注释插入Excel中的多个单元格？ |
如何快速将注释插入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 Sub3。 按 F5 键来运行代码。 在第一个弹出 Kutools for Excel 对话框，请选择要添加注释的过滤范围，然后单击 OK 按钮。 看截图：
4.然后另一个 Kutools for Excel 对话框弹出，请在文本框中输入您的评论，然后单击 OK 按钮。
现在，注释仅插入到选定过滤列表中的所有可见单元格中，如下图所示：
使用 Kutools for Excel 增强您的 Excel 技能，体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。 单击此处获取您最需要的功能... 
阅读更多
免费下载...
|
【本文地址】