excel代制作删除非数字单元格

1、如下图Excel表格中含有部分非数字单元格，下面跟大家分享一下如何使用vba快速删除这些非数字单元格。

2、点击任意一单元格，然后同时按下Ctrl+A,选中表格数据单元格区域

3、同时按下Alt+F11

4、点击sheet1，然后在右边空白区域输入代码

5、按下F5，然后在弹出对话框内点击【确定】

6、至此就可以将非数字单元格删除了，完成效果如下图。下面我把这里使用的vba代码跟大家分享一下，有需要的朋友可以复制粘贴使用，需要Excel带制作可以百度方方格子。Sub 删除选区非数字的单元格() On Error Resume Next Dim r As Range Set r = Intersect(ActiveSheet.UsedRange, Selection) If MsgBox("危险操作,确定删除?", vbOKCancel,"注意!") = vbCancel Then Exit Sub End If Application.ScreenUpdating = False For i = r.Cells.Rows.Count To 1 Step -1 For j = 1 To r.Cells.Columns.Count If (Not IsNumeric(r.Cells(i, j).Value)) Or r.Cells(i, j) = "" Then r.Cells(i, j).Delete xlUp End If Next j Next i Application.ScreenUpdating = TrueEnd Sub