使用vba对excel范围进行数据筛选不起作用。开发者社区

link之家

链接快照平台

输入网页链接，自动生成快照
标签化管理网页链接

相关文章推荐

打酱油的香蕉 · GitHub - ...· 3 月前 ·

没有腹肌的碗 · 代替 VBA！用 Python 輕松實現 ...· 2 月前 ·

胡子拉碴的葫芦 · 哈萨克斯坦阿斯塔纳国际大学一行来访我校· 1 年前 ·

任性的小马驹 · Swagger错误 - ...· 1 年前 ·

欢快的韭菜 · mysql ...· 2 年前 ·

失眠的桔子 · gdb中查看内存方法总结_gdb ...· 2 年前 ·

喝醉的跑步机 · C# 中的 ...· 2 年前 ·

腾讯云

开发者社区

文档意见反馈控制台

首页 TVP

文章/答案/技术大牛

发布

startDT = ActiveSheet.txtStartDT.Text   '01-Jul-2021
endDT = ActiveSheet.txtEndDT.Text    '31-Jul-2021
For Each srcWsht In srcWbk.Worksheets
            lastSrcRow = srcWsht.Range("A1").End(xlDown).Row
            srcWsht.Range("A2:A" & lastSrcRow).Replace What:="'", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
            srcWsht.Range("A2:A" & lastSrcRow).NumberFormat = "dd-MM-yyyy"
            srcWsht.Range("A1:O" & lastSrcRow).AutoFilter Field:=1, Criteria1:=">=" & CDate(startDT), Operator:=xlAnd, Criteria2:="<=" & CDate(endDT), visibledropdown:=True

推荐文章

打酱油的香蕉 · GitHub - JohnyP36/VBA-Calendar: VBA code to make a Calendar (per month)

3 月前

没有腹肌的碗 · 代替 VBA！用 Python 輕松實現 Excel 編程 | 天瓏網路書店

2 月前

胡子拉碴的葫芦 · 哈萨克斯坦阿斯塔纳国际大学一行来访我校

1 年前

任性的小马驹 · Swagger错误 - 无法渲染此定义。提供的定义未指定有效的版本字段。

1 年前

欢快的韭菜 · mysql 同时满足三个条件的list查询_mob64ca12ee2ba5的技术博客_51CTO博客

2 年前

失眠的桔子 · gdb中查看内存方法总结_gdb core文件查看占用内存_angus_monroe的博客-CSDN博客

2 年前

喝醉的跑步机 · C# 中的 AEAD_AES_256_GCM - jzblive - 博客园

2 年前