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

link之家

链接快照平台

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

相关文章推荐

安静的饼干 · 较ClickHouse降低50%成本，湖仓一 ...· 1 年前 ·

沉稳的炒饭 · 寒假里一群合肥孩子的冬奥“冰雪梦”_央广网· 2 年前 ·

发财的熊猫 · 直播带货的爱与恨店主:直播很辛苦但不得不 ...· 2 年前 ·

细心的筷子 · Rhino（3D造型软件）_百度百科· 2 年前 ·

朝气蓬勃的野马 · 奇瑞、华为、腾讯加持，凯翼昆仑将是15万内最 ...· 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

推荐文章

安静的饼干 · 较ClickHouse降低50%成本，湖仓一体在B站的演进 - 知乎

1 年前

沉稳的炒饭 · 寒假里一群合肥孩子的冬奥“冰雪梦”_央广网

2 年前

发财的熊猫 · 直播带货的爱与恨店主:直播很辛苦但不得不做--经济・科技--人民网

2 年前

细心的筷子 · Rhino（3D造型软件）_百度百科

2 年前

朝气蓬勃的野马 · 奇瑞、华为、腾讯加持，凯翼昆仑将是15万内最强SUV？_太平洋号

2 年前