【Office三件套】excel批注提取

excel批注提取

• 前言
• 操作步骤
• • [1. 使用VB编辑器](#1. 使用VB编辑器)
  • [2. 插入模块，输入VB代码](#2. 插入模块，输入VB代码)
  • [3. 保存为支持宏的表格](#3. 保存为支持宏的表格)
  • [4. 运行宏](#4. 运行宏)
  • 5.提取成功

前言

项目进入到cosmic评估阶段，某设计院反馈评估结果将某列每行填上了批注，查看起来非常不便，故想全部提取单独成列，再利用AI处理一波哈哈哈。

操作步骤

1. 使用VB编辑器

2. 插入模块，输入VB代码

Sub ExtractComments()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long

    Set ws = ThisWorkbook.Sheets("2、功能点拆分表") ' 替换为实际工作表名称
        lastRow = ws.Cells(ws.Rows.Count, "H").End(xlUp).Row ' 假设批注在列H,需要拆分到Q列

For i = 1 To lastRow
If Not ws.Cells(i, "H").Comment Is Nothing Then
    ws.Cells(i, "Q").Value = ws.Cells(i, "H").Comment.Text
End If
Next i
End Sub

3. 保存为支持宏的表格

4. 运行宏

选择并运行该模块

5.提取成功