
不能这样操作,也没有意义。可以先选中若干格,按住CTRL键,再选若干格,可以连续选若干次。
我有办法,操作如下:
按Ctrl+鼠标左键 先择猜森不需要的单元格
然后右击鼠标选择穗此亩:清空内容
剩下扒携的就是你需要的单元格。
先选择一片单元格。。。在按住 Ctrl 再用鼠标选择要去掉的单元格
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
只有借助ctrl键操作试一下了……