Excel 区域-反向选择-VBA
分类:Excel
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 '重新设置raddress为含有常量的单元格地址
.Delete '删除新工作表
End With
ActiveSheet.Range(raddress).Select '反向区域选择
Application.ScreenUpdating = True '开启屏幕更新
End Sub