With ws
lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row '获取该工作表最后一行的行号
For I = 1 To lastRow '从第一行开始遍历每一行
If .Range("F" & I) = 0 And .Range("F" & I) <> "" Then （这儿报类型不匹配）
'判断指定列（此处示例为F列）数值为0并且不为空
.Rows(I).Copy Destination:=newWs.Cells(newWs.Rows.Count, "A").End(xlUp).Offset(1) '将符合条件的行复制到新建工作表的下一行
End If
Next I
End With

F是字符型的，i却是数值型的，在这句前面要加个变量，转换一下数值型为字符型

可以多次修改试着测试一下，看看单元格数据格式呗，取值以后再转换一下呗

range 作用失败吗