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

link之家

链接快照平台

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

相关文章推荐

性感的青椒 · 国产工业机器人如何与国际“四大家族”同台竞技 ...· 5 月前 ·

跑龙套的筷子 · 解析东风标致4008 PHEV 4WD - 知乎· 2 年前 ·

有胆有识的大蒜 · 新华社评论员：汇聚起促进祖国统一和民族复兴的 ...· 2 年前 ·

小眼睛的香菜 · 【图】奔驰迈巴赫S级美版降价20万 ...· 2 年前 ·

阳光的弓箭 · 偷星九月天（2014年拍摄的舞台剧）_百度百科· 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

推荐文章

性感的青椒 · 国产工业机器人如何与国际“四大家族”同台竞技？科创板龙头洞察行业演进新风向_央广网

5 月前

跑龙套的筷子 · 解析东风标致4008 PHEV 4WD - 知乎

2 年前

有胆有识的大蒜 · 新华社评论员：汇聚起促进祖国统一和民族复兴的磅礴伟力——写在《台湾问题与新时代中国统一事业》白皮书发表之际

2 年前

小眼睛的香菜 · 【图】奔驰迈巴赫S级美版降价20万欢迎上门试驾_贵阳优惠促销 - 车主之家

2 年前

阳光的弓箭 · 偷星九月天（2014年拍摄的舞台剧）_百度百科

2 年前