Excel VBA求助：如何删除包含非数值的所有行？

背景与需求 #

我手里有个已经填好数据的工作表，B、C、D列的内容如下：

第2行：Product 1 100 200 300
第3行：Product 2 100 200A 100
第4行：Product 3 AAA 200 300
第5行：Product 4 600 200 300
第6行：Product 5 150 200 300,2A

我的需求是：遍历每一行，只要B、C、D任意一列的内容是非数值型，就把这一行删掉。目前我写了部分代码，看起来暂时没毛病，但还没完成：

Dim xWs As Worksheet
Set xWS = ThisWorkbook.Sheets("sheet1")
lastrow...

完善后的可行代码 #

你已经开了个不错的头，接下来只需要补全判断逻辑和删除操作就行。这里要特别注意删除行必须从下往上遍历，不然会因为行号变动导致漏删。完整代码如下：

Sub DeleteNonNumericRows()
    Dim xWs As Worksheet
    Set xWs = ThisWorkbook.Sheets("sheet1")
    Dim lastRow As Long
    Dim i As Long
    
    ' 定位数据区域的最后一行（通过B列判断）
    lastRow = xWs.Cells(xWs.Rows.Count, "B").End(xlUp).Row
    
    ' 从最后一行往上遍历，避免行号偏移导致漏删
    For i = lastRow To 2 Step -1
        ' 检查B、C、D列是否存在非数值内容
        If Not IsNumeric(xWs.Cells(i, "B").Value) Or _
           Not IsNumeric(xWs.Cells(i, "C").Value) Or _
           Not IsNumeric(xWs.Cells(i, "D").Value) Then
            ' 删除当前行
            xWs.Rows(i).Delete
        End If
    Next i
End Sub

关键细节说明 #

• lastRow = xWs.Cells(xWs.Rows.Count, "B").End(xlUp).Row：通过B列的最后一个非空单元格确定数据范围，避免遍历无效的空白行。
• 从下往上遍历（For i = lastRow To 2 Step -1）：如果从上往下删，删除一行后下方的行会自动上移，导致下一个循环的i跳过了原本要检查的行，从下往上遍历就能完美规避这个问题。
• IsNumeric()函数：专门用来判断单元格内容是否为有效数值，只要B/C/D任意一列不满足数值要求，就触发删除操作。

内容的提问来源于stack exchange，提问作者LatifaShi