注册    登录
今天看啥  ›  专栏  ›  完美Excel

VBA示例程序：筛选并获取不重复日期

完美Excel  · 公众号  · Excel  · 2024-05-12 13:55
学习Excel技术，关注微信公众号：excelperfect标签：VBA如下图1所示，在名为“工作簿1.xlsm”的工作簿的工作表Sheet1中，标题为“StartDate”的列有一系列日期，但其中有很多重复的日期，现在要对其进行筛选，获取不重复日期，示例结果如图1中的列C所示。图1打开VBE，插入一个标准模块，在其中输入代码：Sub GetDates() Const adOpenStatic = 3 Const adLockOptimistic = 3 Const adCmdText = &H1 Dim cn As Object, rs As Object Set cn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset")  cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _   "Data Source=" & ThisWorkbook.FullName & ";" & _   "Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1;TypeGuessRows=0;ImportMixedTypes=Text"""  rs.Open "SELECT DISTINCT [Sheet1$].[StartDate] FROM [Sheet1$] ………………………………

原文地址：访问原文地址
快照地址： 访问文章快照
推荐文章
Excel之家ExcelHome  ·  字符拆分好帮手，谁见了她都乐意瞅
昨天
完美Excel  ·  高考，祝福所有考生
昨天
Excel之家ExcelHome  ·  5个典型应用，学会Excel高级筛选
3 天前
Excel之家ExcelHome  ·  财务会计必会的Excel数据处理技巧 - 第2季
2 天前
Excel之家ExcelHome  ·  FREQUENCY函数，还不会的请举手
2 天前
Python绿色通道  ·  进百度了 | 菜鸟的数据分析求职之路
2 年前
阿尔法工场研究院  ·  北上、南下资金最新动向
3 年前
航空制造网  ·  航空喷气发动机 — 制造，测试，更换 — 原理
3 年前
庐陵米店  ·  新年愿望是艾丽丝·门罗再活五百年。 -20190104162248
5 年前
有车以后  ·  【实测】美国人最喜欢的日系车，国产后10.98万起，底盘到底如何？
6 年前
关于   移动版   ·   Py中国   ·   RSS之家   ·   codingpro   ·   Code   ·   link之家   ·   卧龙AI搜索   ·   藏经阁   ·   小百科
今天看啥 - 微信公众号rss订阅, 微信rss, 稳定的RSS源
© 2024 ~ 沪ICP备11025650号