常用办公小技巧

 1、标记选择范围内为空或为零的单元格

Sub Macro1()
Dim ss As Range
    For Each ss In [D2:O430]
        If ss = "" Or ss = 0 Then
            ss.Interior.Color = 5
        End If
    Next ss
End Sub

2、删除当前工作表内所有超级链接

Sub macro2()
    Cells.Hyperlinks.Delete
End Sub
3、删除当前文本中所有超级链接

首先按“Ctrl+A”选择全部文档，然后再按快捷键“Ctrl+Shift+F9”