Note: The other languages of the website are Google-translated. Back to English

如何快速將註釋插入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 鍵來運行代碼。 在第一個彈出 Excel的Kutools 對話框,請選擇要添加註釋的過濾範圍,然後單擊 OK 按鈕。 看截圖:

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

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



最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (17)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
感謝您分享這篇文章。再次感謝。 真的很酷。 bcgdgfaegkdgafaa
網站主持人對此評論進行了最小化
感謝您的信息。
網站主持人對此評論進行了最小化
謝謝,它確實有效。
網站主持人對此評論進行了最小化
謝謝! 節省了我的時間!
網站主持人對此評論進行了最小化
謝謝; 它節省了我的時間
網站主持人對此評論進行了最小化
這只是我到處都能找到的信息。 謝謝你的博客,我只是訂閱你的博客。 這是一個不錯的博客。 勇 http://www.gofastek.com
網站主持人對此評論進行了最小化
這真的很有幫助。 謝謝。
網站主持人對此評論進行了最小化
[quote]當我在做一個課堂項目時,我研究了關於這一點的有價值的信息。 感謝您發布有用的信息,現在完成這項任務變得更加容易。 在線字體轉換器
網站主持人對此評論進行了最小化
如果 excel 中的工作表在過濾器中,這是否僅適用於過濾的單元格????
網站主持人對此評論進行了最小化
對於過濾的單元格,它不起作用
網站主持人對此評論進行了最小化
親愛的我,
VBA 代碼現已更新。 它不僅支持在正常範圍內批量插入註釋,還支持僅在過濾列表中的可見單元格中插入註釋。
感謝您的評論!
網站主持人對此評論進行了最小化
這真的是非常有用的帖子..


感謝您的精彩帖子
數碼地板
網站主持人對此評論進行了最小化
任何人都可以在 VBA 代碼中幫助我,
我希望我做多條評論,並且可以選擇在每個單元格中添加圖片,而無需一次又一次地進行格式化。
然後該單元格的圖片將保存在具有相同單元格名稱的 excel 文件的文件夾中。
如果有人在這方面幫助我,我將不勝感激
網站主持人對此評論進行了最小化
Exceente aporte, gracias por el dato !!!!
網站主持人對此評論進行了最小化
非常感謝
網站主持人對此評論進行了最小化
你如何讓它忽略沒有合併的單元格,只為選定的合併單元格添加註釋?
網站主持人對此評論進行了最小化
你好,解析器
要解決您的問題,請應用以下代碼:
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
        If xRgEach.MergeCells Then
            With xRgEach
            .ClearComments
            .AddComment
            .Comment.Text Text:=xText
            End With
        End If
    Next xRgEach
End Sub


請試一試,希望對您有所幫助!
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護