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

link之家

链接快照平台

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

相关文章推荐

阳光的墨镜 · Modbus_查询modbus地址-CSDN博客· 1 年前 ·

深情的烈酒 · 高盛面试官：定了，今年我们只招会Python ...· 2 年前 ·

直爽的电脑桌 · JavaScript ...· 2 年前 ·

干练的仙人球 · WinDbg 命令行选项 - ...· 2 年前 ·

帅气的山羊 · java - ...· 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

推荐文章

阳光的墨镜 · Modbus_查询modbus地址-CSDN博客

1 年前

深情的烈酒 · 高盛面试官：定了，今年我们只招会Python的！|python|编程语言|程序员_网易订阅

2 年前

直爽的电脑桌 · JavaScript 循环中调用异步函数的三种方法，及为什么 forEach 无法工作的分析_循环异步调用_GoldenaArcher的博客-CSDN博客

2 年前

干练的仙人球 · WinDbg 命令行选项 - Windows drivers | Microsoft Learn

2 年前

帅气的山羊 · java - @SuppressWarnings vs @SuppressLint - Stack Overflow

2 年前