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

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

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

同时按下Alt+F11

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

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

至此就可以将非数字单元格删除了，完成效果如下图。下面我把这里使用的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