| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1218 人关注过本帖
标题:这代码合理吗?要怎么改
只看楼主 加入收藏
b198375
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2022-9-28
结帖率:0
收藏
已结贴  问题点数:20 回复次数:5 
这代码合理吗?要怎么改
Sub DELCO()
Dim i As Integer
i = 0
xunhuan:
On Error GoTo eend
Cells.Find(What:="关键字").Select     
Selection. EntireRow. Delete
Cells.Find(What:="关键字2").Select   
Selection. EntireRow. Delete
i = i + 1
GoTo xunhuan
eend:
MsgBox (i & "行被删除了")
End Sub

搜索更多相关主题的帖子: 代码 Delete Select Selection 关键字 
2022-09-28 20:29
约定的童话
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:56
帖 子:246
专家分:1442
注 册:2021-8-1
收藏
得分:7 
你是要放VB里面用还是直接在VBA里面用,两个有点区别哈
2022-09-28 20:40
b198375
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2022-9-28
收藏
得分:0 
回复 2楼 约定的童话
用在Excel里
2022-09-28 21:28
yuma
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:银河系
等 级:贵宾
威 望:37
帖 子:1921
专家分:2981
注 册:2009-12-22
收藏
得分:7 
一看就是VBA宏

心生万象,万象皆程序!
本人计算机知识网:http://bbs.为防伸手党,本站已停止会员注册。
2022-09-28 21:35
zilaxiaolin
Rank: 1
等 级:新手上路
帖 子:5
专家分:7
注 册:2012-9-27
收藏
得分:7 
学习一下
2022-10-04 14:35
yuma
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:银河系
等 级:贵宾
威 望:37
帖 子:1921
专家分:2981
注 册:2009-12-22
收藏
得分:0 
改了一下。这样比较合理。

程序代码:
Sub DELCO()
Dim i As Long, j As Long
j = 0
For i = 1 To 1048576  'Excel 2007的总行数
If Cells.Find("关键字6").Select = True Then
Selection.EntireRow.Delete
j = j + 1
End If

If Cells.Find("关键字7").Select = True Then
Selection.EntireRow.Delete
j = j + 1
End If

MsgBox "共删除了" & j & ""

Next
End Sub


[此贴子已经被作者于2022-10-8 18:53编辑过]


心生万象,万象皆程序!
本人计算机知识网:http://bbs.为防伸手党,本站已停止会员注册。
2022-10-08 18:48
快速回复:这代码合理吗?要怎么改
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018167 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved