首页 > 解决方案 > 过滤一个值,然后删除该过滤器下的所有值(有自己的代码,但似乎不起作用)

问题描述

我收到了一个代码,但是当我到达第 4 行时,它实际上并没有过滤掉我需要它的值。其他一切工作正常。我没有包含 Delete_Visible_Cells 子,因为我只需要过滤器来实际过滤掉我需要的值。

Application.ScreenUpdating = False
Dim LastRow As Long
LastRow = ActiveSheet.UsedRange.Rows.count
ActiveSheet.Range("L1").CurrentRegion.AutoFilter Field:=1, Criteria1:="6.1.1"
Call Delete_Visible_Cells
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = True

标签: excelvba

解决方案


推荐阅读