注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

信息 灵感 创新

I? =Information,Inspiration,Innovation

 
 
 

日志

 
 
关于我

we are 5. Mathematics, Computation, Programming, Engineering, and Making fun of life.

网易考拉推荐

Excel 显示重复项  

2013-03-23 19:36:57|  分类: Office |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
嗯,最近记单词,准备好好考六级了,于是从网络单词本中将单词导出,放入Excel中,准备打印下来好好记一下,但是由于每次都是来自不同的单词本,肯定有重复的单词,原本打算将单词排序之后再一个个看,但是单词太多还是有点麻烦,看在自己学了一点EXcel宏的份上,我就写个宏,将重复的单词逐个显示出来,然后抄下来,等程序执行完成之后“秋后算账”,嗯,说干就干。
这个是单词本:
Excel 显示重复项 - Lemniscate - 趁年轻,多折腾
 黄色的是目检发现的,但是看多了肯定眼睛会看花的。
下面是一个宏:
Sub ShowDuplicatedMembers()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets(1)
    Dim rg As Range
    Dim s As String
    s = ""
    Set rg = ws.Range("A1")
    Do Until IsEmpty(rg)
        If rg.Text = rg.Offset(1, 0).Text Then
        s = s + rg.Text + Chr(13)
        End If
        Set rg = rg.Offset(1, 0)
    Loop
    MsgBox s
    Set rg = Nothing
    Set ws = Nothing
End Sub
OK,然后保存执行,下面是重复的项:
Excel 显示重复项 - Lemniscate - 趁年轻,多折腾
 然后按图索骥,将重复的都删除就行了。
如果要是我的VBA学的再好一点的话,就可以让程序自动删除了,我先研究研究。
  评论这张
 
阅读(808)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2016