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

信息 灵感 创新

I? =Information,Inspiration,Innovation

 
 
 

日志

 
 
关于我

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

网易考拉推荐

Excel中删除符合特定特征的行  

2015-08-04 10:40:50|  分类: Office |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
用于删除单元格中符合特定条件的行,例如,下面的例子中,就是删除B列中内容以四个空格开头的单元格所在的行
Sub XDELETEROW()
 
    '删除B列以四个空格开头的行 
    Dim i, n 
    Dim cellStr As String
    Dim pos As Integer
    n = Sheet1.UsedRange.Rows.Count
    MsgBox n
    For i = n To Step -1'应该从后往前删除
        pos = 0
        cellStr = CStr(Cells(i, 2))
        pos = InStr(cellStr, "    ")
        If pos <> 0 Then
         'delete this row       
         Cells(i, 2).EntireRow.Delete      
  End If
    Next i 
End Sub
需要注意的是,删除行的时候应该是从下往上删除,而不是从上往下删除,不然会有漏删除的现象。另外,有报告称UsedRange存在Bug,个人认为不是Bug,可能是Office VBA开发小组和我们的理解方式不同,我们认为被使用的话,至少单元格中有内容或者单元格样式有变化,但是开发小组的理解是,你使用过就是使用过,即使你把内容清除、格式改为默认格式,还是使用过。
  评论这张
 
阅读(273)| 评论(3)
推荐 转载

历史上的今天

评论

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

页脚

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