Excel表格中如果需要批次提取批註內容,一般的表格工具是能借用VBA功能,下面我來介紹下具體操作流程,希望可以幫助到大家。
批註在同一列
1,右擊檔名稱,選擇【檢視程式碼】,在程式碼介面輸入以下程式碼,並關閉頁面;
Sub GetComment()
For Each cell In Range("D1:D11")
cell.Offset(0, 1) = cell.Comment.Text
Next cell
End Sub
2,選擇【開發工具】-【宏】,在【宏】彈出框中選擇【執行】,此時就會執行剛才輸入的程式碼,該列所有程式碼將會執行。
批註不在同一列
批註不在同一列時,還執行剛才的程式碼將會報錯,此時需要對該程式碼進行最佳化,加入過濾條件。
具體操作和上述流程一致,輸入程式碼如下所示:
If Not cell.Comment Is Nothing Then
End If
輸入完畢後,執行該程式碼,右側會顯示該列所有批註,如該列沒有批註則會跳過。
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
輸入完畢後,執行該程式碼,右側會顯示該列所有批註,如該列沒有批註則會跳過。