一种使用VBA数组去重的思路

最新推荐文章于 2024-05-15 13:17:53 发布

Sagittar_Will

最新推荐文章于 2024-05-15 13:17:53 发布

阅读量2.2k

点赞数

分类专栏： #去重文章标签： vba 算法

本文链接：https://blog.csdn.net/qq_42812863/article/details/104304599

版权

本文介绍了如何使用VBA通过两层循环和数组实现数据去重。首先提取所需日期，然后创建两个数组，arr()用于存放所有数据，key()用于存储去重后的数据。在外循环遍历arr()时，内循环检查key()，若当前元素不在key()中，则添加到key()，最终得到去重结果。作者表示此方法为尝试性学习，自己在动态调整循环次数方面还需提升。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

一种使用VBA数组去重的思路

下面这个表是要去重的部分数据，这次我需要做的是
把数据中的日期提取出来去重
日后计算需要用到
在这里插入图片描述
为了能够达到去重的目的，首先要先把日期提取出来，如果只是为了提取日期，那么可以使用format很方便，今天尝试用string写，只是一种尝试，以便以后处理其他数据，代码如下


Sub 时间去重()
Application.ScreenUpdating = False
'把所有的日期数据放到arr()数组中,arr数组的大小等于行数
Dim r As Integer, rc As Integer, str As String, arr() As String
rc = Range("A1").CurrentRegion.Rows.Count
ReDim arr(