excel选定区域怎么实现反选

1：可以加个辅助列用公式搞定。 Sub 反选() Application.DisplayAlerts = False Application.ScreenUpdating = False Dim raddress As String, taddress As String raddress = Selection.Address taddress = ActiveSheet.UsedRange.Address With Sheets.Add .Range(taddress) = 0 .Range(raddress) = =0 raddress = .Range(taddress).SpecialCells(xlCellTypeConstants, 1).Address .Delete End With ActiveSheet.Range(raddress).Select Application.ScreenUpdating = True End Sub 2：还有一种方法是：用CTRL+H先把符合条件的单元格替换成特定格式（点选项调出格式设置）；然后用CTRL+F查找其他格式，就能反选了。