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所有的实践经验都集中在以下教程中：