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 = True
End Sub