今天在工作中通过编写vb宏解决了工作中的一点问题
单位年底总结,需要一些数据,汇总的数据中有大量重复记录,要求把重复记录去掉,只要没有重复的,这可把大家难住了,要知道这些保存在execl中的数据有近3000条,每条记录有5个字段,手工诸条对比筛选可能得挑选半个月.为了解决这个问题,我看了看execl的vb帮助,在execl的宏中编写了如下几行代码,通过多重循环只用了几十秒的时间,重复记录全部标记出来了,排序,然后删掉重复的记录,很快得到了省下的500条不重复的记录,爽!
代码如下,也许能帮助你解决类似问题
For counter = 1 To 2856
If Worksheets("Sheet1").Cells(counter, 1).Value <> "haved" Then
For lll = counter + 1 To 2856
test = 1
For heng = 2 To 6
If Worksheets("Sheet1").Cells(counter, heng).Value <> Worksheets("Sheet1").Cells(lll, heng).Value Then test = 0
Next heng
If test = 1 Then Worksheets("Sheet1").Cells(lll, 1).Value = "haved"
Next lll
End If
Next counter
单位年底总结,需要一些数据,汇总的数据中有大量重复记录,要求把重复记录去掉,只要没有重复的,这可把大家难住了,要知道这些保存在execl中的数据有近3000条,每条记录有5个字段,手工诸条对比筛选可能得挑选半个月.为了解决这个问题,我看了看execl的vb帮助,在execl的宏中编写了如下几行代码,通过多重循环只用了几十秒的时间,重复记录全部标记出来了,排序,然后删掉重复的记录,很快得到了省下的500条不重复的记录,爽!
代码如下,也许能帮助你解决类似问题
For counter = 1 To 2856
If Worksheets("Sheet1").Cells(counter, 1).Value <> "haved" Then
For lll = counter + 1 To 2856
test = 1
For heng = 2 To 6
If Worksheets("Sheet1").Cells(counter, heng).Value <> Worksheets("Sheet1").Cells(lll, heng).Value Then test = 0
Next heng
If test = 1 Then Worksheets("Sheet1").Cells(lll, 1).Value = "haved"
Next lll
End If
Next counter
