excel怎么批量修改批注内容_excel利用VBA批量修改或删除批注

<p>Sub 批量修改批注()</p>
<p>    Dim rng As Range</p>
                    <div class="aritcle_card">
                        <a class="aritcle_card_img" href="/ai/1463">
                            <img src="https://img.php.cn/upload/ai_manual/000/000/000/175680176337096.png" alt="图改改">
                        </a>
                        <div class="aritcle_card_info">
                            <a href="/ai/1463">图改改</a>
                            <p>在线修改图片文字</p>
                            <div class="">
                                <img src="/static/images/card_xiazai.png" alt="图改改">
                                <span>455</span>
                            </div>
                        </div>
                        <a href="/ai/1463" class="aritcle_card_btn">
                            <span>查看详情</span>
                            <img src="/static/images/cardxiayige-3.png" alt="图改改">
                        </a>
                    </div>
                
<p>    Dim cell As Range</p>
<p>    Set rng = Selection ' 使用当前选中区域</p>
<p>    For Each cell In rng</p>
<p>        If Not cell.Comment Is Nothing Then</p>
<p>            cell.Comment.Text "更新后的批注内容" ' 修改此处文本</p>
<p>        End If</p>
<p>    Next cell</p>
<p>End Sub</p>

<p>Sub 批量删除批注()</p>
<p>    Dim rng As Range</p>
<p>    Set rng = Selection</p>
<p>    For Each cell In rng</p>
<p>        If Not cell.Comment Is Nothing Then</p>
<p>            cell.ClearComments</p>
<p>        End If</p>
<p>    Next cell</p>
<p>End Sub</p>

<p>Sub 批量添加批注前缀()</p>
<p>    Dim rng As Range</p>
<p>    Set rng = Selection</p>
<p>    For Each cell In rng</p>
<p>        If Not cell.Comment Is Nothing Then</p>
<p>            cell.Comment.Text "'" & "【补充】" & cell.Comment.Text</p>
<p>        End If</p>
<p>    Next cell</p>
<p>End Sub</p>