搜索
首页 电脑/网络 软件 办公软件

VBA

请教高手帮我写个语句,要求是怎样的:我要在A列查找所有符合条件然后删除行,例如:我要在A列查找200905,200906,200907然后删除行怎么写。谢了

全部回答

2009-12-24

59 0
    Sub 按钮1_单击() Application。ScreenUpdating = False Dim rng As Range arr = Range(Cells(1, 1), [a65536]。
  End(xlUp)) For i = 1 To UBound(arr) If arr(i, 1) Like "20090[567]" Then If rng Is Nothing Then Set rng = Rows(i) Else Set rng = Union(rng, Rows(i)) End If End If Next i rng。
    Delete shift:=xlUp Set rng = Nothing: Erase arr Application。ScreenUpdating = True End Sub 不太明白你的意思,最好上传附件。
  

类似问题换一批

热点推荐

热度TOP

相关推荐
加载中...

热点搜索 换一换

电脑/网络
办公软件
程序设计
电脑装机
操作系统/系统故障
硬件
笔记本电脑
百度
互联网
反病毒
软件
软件
办公软件
多媒体软件
系统软件
网络软件
图像处理软件
办公软件
办公软件
举报
举报原因(必选):
取消确定举报