wps删除重复项整行-(wps删除重复项整行数据)

wps删除重复项整行-(wps删除重复项整行数据)

wps删除重复项整行

(wps删除重复项整行数据)

分享结果,快乐的正能量人们担心的原因在于记忆;人们累的原因在于徘徊;人们前进的原因在于感激;人们快乐的原因在于开放;人们成熟的原因在于看透;人们放弃的原因在于选择;人们宽容,理解;人之所以是人,在于感情;人之所以充实,在于过程;人之所以成功,在于勤奋;人之所以幸福,在于满足。

《VBA本教程是我最早推出的教程,目前已修订为第二版。

《VBA代码解决方案》这套教程是我最早推出的教程,目前已经是第二版修订了。这套教程定位于入门后的提高,在学习这套教程过程中,侧重点是要理解及掌握我的“

积木编程

。要灵活运用教程中的实例,比如搭积木,把自己喜欢的代码摆好。

本教程共三卷,147篇,内容覆盖面广,也是初级和中级之间的过度教程。修订后的内容主要是提供程序源文件和代码修改为32位和64位。以后会陆续推出给大家。今天的内容是第24讲:如何使用VBA删除重复数据行

第二十四讲 EXCEL如何删除重复数据行?大家好,今天就开始说吧VBA二十四讲代码解决方案:EXCEL在代码的帮助下,如何完成删除重复行。事实上,这项工作经常用于实际工作。判断是否有重复数据是正确的EXCEL数据统计中非常重要的工作之一,也是经常处理的工作之一。若掌握了这一技能,无形中会提高自己的工作效率,同时也能提高工作的准确性。

1 应用场景的具体分析及Countif函数

实例:在实际应用中,可能需要删除工作表中A列的重复内容而只保留一行,如何来解决这个问题呢?在工作表的帮助下CountIf函数来完成.让我们先解释一下Countif函数.

Countif函数: 是Microsoft Excel符合指定条件的单元格计数在指定区域中的函数WPS,Excel2003和Excel2007等版本中均可使用。

语法规则如下:countif(range,criteria)

参数:

a) range 计算非空单元格数的区域b) criteria 以数字、表达式或文本形式定义的条件

2 删除重复数据行的代码和代码解释

解释完这个函数后,让我们来看看代码:

Sub mynz_24() '第24讲 EXCEL中,如何删除重复数据行?

Dim R As Integer

Dim i As Integer

With Sheets("24")

R = .[A65536].End(xlUp).Row

For i = R To 1 Step -1

If WorksheetFunction.CountIf(.Columns(1), .Cells(i, 1)) > 1 Then

.Rows(i).Delete

End If

Next

End With

End Sub

代码截图:

代码解析:mynz_24过程删除工作表A列重复单元格所在的整行内容,只保留一行。

1) 工作表中A列最后一个非空单元格的行号应注意第五行代码Range对象的End属性。

1) 工作表中A列最后一个非空单元格的行号应注意第五行代码Range对象的End属性。不知读者是否掌握了。

2) 从最大行数到最小行数,第6行到第10行代码循环判断A列单元格内容是否重复并删除重复单元格所在的整行。和上一讲一样,这里For...Next循环也要从最大行数到最小行数来判断,否则可能会被删除。

3) 第7行和第8行代码使用工作表CountIf函数判断单元格的内容是否重复,如果重复,则删除单元格的行。

运行前mynz_工作表区域下24个截图:

运行后截图:

运行结果后,可以看到和预期的一样。

今日内容回:

1 删除工作表中重复数据的想法是什么?

2 COUNTIF 有什么意义?

3 上面代码中.Columns(1)意思是什么?

本内容参考程序文件:VBA修改代码解决方案(1-48).xlsm

我20多年的VBA所有的实践经验都集中在以下教程中:

推荐阅读