excel选定区域如何实现反选

Question

如题所述

Answer 1

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，查找其他格式。

Answer 2

加辅助列用公式可以处理。

还有种做法是：CTRL+H选出条件单元格，替换成某种格式（按对话框的选项按钮调出格式）；然后CTRL+F，查找其他格式。