阅读 8

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

文章分类
百科问答
文章标签
版权声明:本站是系统测试站点,无实际运营。本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 gxwowoo@163.com 举报,一经查实,本站将立刻删除。
相关推荐