vba 剔除html标签,VBA批量清除名称、超级链接、图形、条件格式等源代码示例

①批量删除批注

Sub 批量删除批注()

Dim cm As Comment

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

For Each cm In ws.Comments

cm.Delete

Next cm

Next ws

End Sub

②批量删除名称

sub 批量删除名称()

Dim nm As Name

For Each nm In ThisWorkbook.Names

nm.Delete

Next nm

end sub

③批量超链接

Sub 批量删除超链接()

Dim hl As Hyperlink

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

For Each hl In ws.Hyperlinks

hl.Delete

Next hl

Next ws

End Sub

④批量删除自定义图形图像

Sub 批量删除图形图像()

Dim sp As Shape

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

For Each sp In ws.Shapes

sp.Delete

Next sp

Next ws

End Sub

⑤清除条件格式

Sub 批量清除条件格式()

Cells.FormatConditions.Delete

End Sub

以上代码的实现原理：使用vba中的一些对象集合，然后通过遍历所有的对象将之删除。上面的宏会删掉所有当前工作表的所有工作表中的相应对象。当然也可以用activesheet对象来实现活动工作表中的对象。