Office中国论坛/Access中国论坛

标题: 如何用VBA筛选某列单元格内容为数值的行？ [打印本页]

作者: 荒烟平楚 时间: 2011-12-14 20:49
标题: 如何用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 时间: 2011-12-15 15:33
IsNumeric(sh.Cells(i, 34))

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)