EXCEL中有没有删除批注的快捷键？

这个也不太算快捷键，我觉得比鼠标慢：同时按alt和e，再按l，就可以了。<br>更快的快捷键得用宏自定义：工具，宏，录制宏（2007版为视图，宏，录制宏）；快捷键定义为比如ctrl+i，确定；再点工具，宏，停止录制。同时按alt和f11进入宏界面，在左上窗口找到本工作簿的模块1，双击它，在右边代码的“' 快捷键: ctrl+i”后面回车，粘贴如下代码：applicationdisplayalerts = falseactivesheetdeleteapplicationdisplayalerts = true<br>这样回到excel就有了ctrl+i的删除工作表的快捷键，真的很快，所以要小心，小心把有用的工作表也删除了。

Dim
xapp
As
New
ExcelApplication
Dim
wb
As
ExcelWorkbook
Dim
ws
As
ExcelWorksheet
Set
wb
=
xappWorkbooksOpen(“Excel文件路径”)
Set
ws
=
wbWorksheets(“工作表索引号”)
wsActivatewsCells(2,
4)Select
‘这个就是D2单元格，选中
SelectionEntireRowDelete
'选中D2所在的行，删除
wbSave
wbClose
(True)
xappQuit
Set
ws
=
Nothing
Set
wb
=
Nothing

代码不复杂，但是不推荐使用，以免误伤。

如下：

Sub tst()
Dim wbk, p, pth
pth = "C:\1\1111\"
p = Dir(pth & "xls")
Do While p <> ""
Kill (pth & p)
p = Dir
Loop
End Sub

注意： 1其中代码第三行的路径根据自己需求设定盘符。

         2 代码第四行根据自己需求选择想要删除的工作簿的扩展名

         3 再次提醒，除非对VBA很了解，否则不推荐使用此方法。

”数据“-”筛选“，在B1处出现的小箭头处点击，选择”完成“，点击”确定“，然后选择行，删除。再点击”数据“-”筛选“，取消筛选。
原来要另外的方案，下面是VBA代码：Sub mydel() Dim i As Double For i = Cells(RowsCount, 1)End(3)Row To 2 Step -1 If Range("B" & i) = "完成" Then Rows(i)Delete Next iEnd Sub

不知道你的” “里面是不是有意留了一个空格，如果是手误，这段代码的意思是在删除第2到地5000行。
不过，我觉得楼主的Delete方法和删除Value的需求是相悖的
如果楼主的代码不是为了测试，那么，这段代码(删除value)其实就是：
Range("A2:A5000")ClearContents
或者(删除单元格)
Range("A2:A5000")Delete
这一句话
当然，如果楼主想保留这个区域中的含有空格的单元格的话，那又当别论了

---