回覆列表
  • 1 # 永中軟體

    Excel表格中如果需要批次提取批註內容,一般的表格工具是能借用VBA功能,下面我來介紹下具體操作流程,希望可以幫助到大家。

    批註在同一列

    1,右擊檔名稱,選擇【檢視程式碼】,在程式碼介面輸入以下程式碼,並關閉頁面;

    Sub GetComment()

    For Each cell In Range("D1:D11")

    cell.Offset(0, 1) = cell.Comment.Text

    Next cell

    End Sub

    2,選擇【開發工具】-【宏】,在【宏】彈出框中選擇【執行】,此時就會執行剛才輸入的程式碼,該列所有程式碼將會執行。

    批註不在同一列

    批註不在同一列時,還執行剛才的程式碼將會報錯,此時需要對該程式碼進行最佳化,加入過濾條件。

    具體操作和上述流程一致,輸入程式碼如下所示:

    Sub GetComment()

    For Each cell In Range("D1:D11")

    If Not cell.Comment Is Nothing Then

    cell.Offset(0, 1) = cell.Comment.Text

    End If

    Next cell

    End Sub

    輸入完畢後,執行該程式碼,右側會顯示該列所有批註,如該列沒有批註則會跳過。

  • 中秋節和大豐收的關聯?
  • ESPN記者:霍頓為什麼敢於Diss孫楊,國際泳聯的宣告更是助長氣焰,怎麼評價?