Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/15.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
ExcelVBA\u当前值CU\u过滤器？_Excel_Vba - Fatal编程技术网
Fatal编程技术网
  • excel/
  • ExcelVBA\u当前值CU\u过滤器？

ExcelVBA\u当前值CU\u过滤器？

excel vba

ExcelVBA\u当前值CU\u过滤器？,excel,vba,Excel,Vba,提前谢谢你，抱歉英语不好 我想要 fix100-->当前列和最后一行数字 单元格（100，ActiveCell.Column））-->Cells（？？？，ActiveCell.Column）） 请尝试以下代码： Sub ExcelVBA_CurrentValuecu_Filter() With ThisWorkbook.ActiveSheet .Range(.Cells(1, ActiveCell.Column), .Cells(.Rows.Count, ActiveCe

提前谢谢你，抱歉英语不好

我想要

fix100-->当前列和最后一行数字

单元格（100，ActiveCell.Column））-->Cells（？？？，ActiveCell.Column））

请尝试以下代码：

Sub ExcelVBA_CurrentValuecu_Filter()
    With ThisWorkbook.ActiveSheet
        .Range(.Cells(1, ActiveCell.Column), .Cells(.Rows.Count, ActiveCell.Column).End(xlUp)). _
        AutoFilter Field:=1, Criteria1:=ActiveCell.Value
    End With
End Sub
语句
.Cells（.Rows.Count，ActiveCell.Column）.End（xlUp）
将查找列中包含数据的最后一个单元格。我使用了一个带的
块来正确限定代码中使用的所有范围。这就是为什么在
.Cells
前面有一个点的原因。这与总是写入
ActiveSheet相同。单元格
请尝试以下代码：


Sub ExcelVBA_CurrentValuecu_Filter()
    With ThisWorkbook.ActiveSheet
        .Range(.Cells(1, ActiveCell.Column), .Cells(.Rows.Count, ActiveCell.Column).End(xlUp)). _
        AutoFilter Field:=1, Criteria1:=ActiveCell.Value
    End With
End Sub


语句
.Cells（.Rows.Count，ActiveCell.Column）.End（xlUp）
将查找列中包含数据的最后一个单元格。我使用了一个带
的
块来正确限定代码中使用的所有范围。这就是为什么在
.Cells
前面有一个点的原因。这与总是写入
ActiveSheet.Cells
过滤条件开始---关闭OK过滤条件开始---关闭OK相同