获取窗口的标题

ActiveWindow.Caption

获取工作簿的文件夹路径和完整路径

Application.ActiveWorkbook.path
Application.ActiveWorkbook.FullName
    

判断单元格是否为空

IsEmpty(ActiveSheet.range("E2"))

如何使用否定条件进行筛选

Field参数为列的索引

Criteria1参数是条件，比如只筛选出值为"一月"的行，Criteria1参数就可以是字符串"一月"，假如传递字符串"<>一月"，那么就会把所有不是"一月"的筛选出来

ActiveSheet.UsedRange.AutoFilter Field:=columnIndex, Criteria1:="<>" & key

如何只选中筛选出的行

该代码会选中2至100行中所有可见的行然后删除

ActiveSheet.Cells.Rows("2:100").SpecialCells(xlCellTypeVisible).Delete

取消VBA执行时的UI更新

Application.ScreenUpdating = False