展开全部
很遗憾,excel目前并不自带 反向选择。只能选择你需要的表格复制在新的空白表格中粘贴。或是全选后把他们的边框都消除,然后在重做需要的表格边框。
另外有一个办法,用VAB解决。单击“工具”“宏”“visual basic编辑器”“视图”“工程资源管理器”在左边的列表中双击ThisWorkBook,在代码窗口中粘贴如下代码。返回excel中可在宏(alt+F8)中运行 反选,本人对VAB掌握十分欠缺,此代码非本人所编,经本人测试效果并不很理想,仅供参考
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
另外有一个办法,用VAB解决。单击“工具”“宏”“visual basic编辑器”“视图”“工程资源管理器”在左边的列表中双击ThisWorkBook,在代码窗口中粘贴如下代码。返回excel中可在宏(alt+F8)中运行 反选,本人对VAB掌握十分欠缺,此代码非本人所编,经本人测试效果并不很理想,仅供参考
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询