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