Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
以零结尾的Excel筛选器编号_Excel_Vba - Fatal编程技术网

以零结尾的Excel筛选器编号

以零结尾的Excel筛选器编号,excel,vba,Excel,Vba,我有一个excel列,格式是一个小数点后一位的数字。 我只想过滤以0结尾的数字。 1 2 40.0 当我使用以0结尾的数字手动过滤时,它会过滤掉所有内容。 当我使用下面的代码时,我得到了相同的结果(尽管我使用了多个条件)。 Excel 2016 Sub ImmediateMain() With ActiveSheet .AutoFilterMode = False With ActiveSheet.Range("$A$1:$T$200") .AutoFilter

我有一个excel列,格式是一个小数点后一位的数字。 我只想过滤以0结尾的数字。 1 2 40.0

当我使用以0结尾的数字手动过滤时,它会过滤掉所有内容。 当我使用下面的代码时,我得到了相同的结果(尽管我使用了多个条件)。 Excel 2016

Sub ImmediateMain()

With ActiveSheet
        .AutoFilterMode = False
With ActiveSheet.Range("$A$1:$T$200")
        .AutoFilter
        .AutoFilter Field:=1, Criteria1:="Immediate"
        .AutoFilter Field:=5, Criteria1:="*0"
End With
End With

End Sub

将此视为解决问题的一种选择

向数据中添加一列并为所有行添加以下公式,然后可以根据公式的结果进行筛选:-

=IF(ISERR(FIND(“.”,A1,1)),“整体”、“非整体”)

当您在单元格中存储
1.0
时,仅存储
1
,它们的意思是相同的,但如果需要,Excel会将其格式化为
1.0
(即显示到小数点后N位)

上面使用了
find
查看是否有小数点,如果没有引发错误,则使用
iserr
,如果有错误,则没有小数点


注意:您可能希望随后复制新列并将其自身粘贴为“粘贴特殊”>“值”,以简化筛选。

您可以添加另一列(B列),其中公式引用现有列(a列):


然后过滤值为0的列B。

单击数字过滤器下的下拉列表,在搜索框中键入
“*.0”
,然后按enter键。这是一个解决方案

对数据应用条件格式:

类型:基于公式,公式:
=IF(A2=INT(A2))
格式:例如黄色内饰颜色

并根据内饰颜色进行过滤

=A1-floor(A1)