If Day(Date) = 1 Then Else ws.Range("B1").AutoFilter Field:=2, Criteria1:="<>*る*" End If
时间: 2024-03-04 21:52:18 浏览: 119
Excel-VBA-编程教程(完整版)excel高级教程==.docx
这是一段 VBA 代码,它的作用是对一个 Excel 表格进行过滤。如果当前日期是月初(即日期为1号),则不对表格进行过滤;否则,对第二列的数据进行过滤,只显示那些不包含字符“る”的行。具体来说,它使用了 AutoFilter 方法,其中 Field 参数指定要过滤的列数,Criteria1 参数指定过滤的条件。
阅读全文