如何用VBA筛选某列单元格内容为数值的行？

荒烟平楚

  下面这段代码筛选的条件是：假如第34列中，单元格的内容<> "" ，那么就将这一行筛选出来。我要将它改为：假如第34列中，单元格的内容<> "" 并且单元格内容为数值，就将相应的行筛选出来，怎么改代码？请大家指教，谢谢!

       如附件中点击“分解订单评审表” 以后，就将“订单评审汇总表”里面的第34列不为空的单元格所在的行复制到了“注塑”表格中，但是单元格中如果有文字而不是数值，这一行也一起复制过去了（如注塑表中标了灰色的行），我只要复单元格为数值的行过去。



Sub 分解为注塑表()
Dim h, arr
h = 6
With Sheets("注塑")
.Range("a6:CR65536").ClearContents
For Each sh In Sheets
    If sh.Name = "订单评审汇总表" Then
        For i = 6 To sh.[a65536].End(xlUp).Row
            If CStr(sh.Cells(i, 34).Value) <> "" Then
               
                arr = sh.Cells(i, 1).Resize(1, 45)
                .Cells(h, 1).Resize(1, 45) = arr
                .Cells(h, 46).Value = i
                h = h + 1
            End If
        Next i
    End If
Next
End With
End Sub

roych

IsNumeric(sh.Cells(i, 34))