Excel如何用宏删除制定的行

比如,我想删除从第3行到第8行,然后,再从第7行删除第20行.哪位高手帮我写个宏语句,万分感谢... 比如,我想删除从第3行到第8行,然后,再从第7行删除第20行.
哪位高手帮我写个宏语句,万分感谢
展开
 我来答
我是月亮yl0978
2014-09-03 · 超过69用户采纳过TA的回答
知道答主
回答量:115
采纳率:100%
帮助的人:130万
展开全部
ALT+F11 粘帖下面代码 运行此宏即可

Sub 删除指定内容行()
Dim fincell As Range
On Error Resume Next
Do
With ActiveSheet.Rows("3:65536")
Set findcell = .Cells.Find("分析表", LookAt:=xlPart)
findcell.EntireRow.Delete
Set findcell = .Cells.Find("土建工程", LookAt:=xlPart)
findcell.EntireRow.Delete
Set findcell = .Cells.Find("投标人", LookAt:=xlPart)
findcell.EntireRow.Delete
End With
Loop Until findcell Is Nothing
End Sub
skyzxh

2015-12-19 · 知道合伙人软件行家
skyzxh
知道合伙人软件行家
采纳数:2623 获赞数:8345
毕业于中科院,硕士,30年工程从业经验。现任公司技术负责。

向TA提问 私信TA
展开全部
如要删除C列为“已完成" 行,则可用下面的宏程序:
Sub test()
For i=Celss(rows.count,3).end(3).row to 1 Step -1
if Cells(i, 3)=“已完成" Then
Range("A" & i).EntireRow.Delete
End if
Next
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
詹年0HL
2014-09-03 · 超过44用户采纳过TA的回答
知道小有建树答主
回答量:88
采纳率:0%
帮助的人:69万
展开全部
Sub Macro1()
'
' Macro1 Macro
' 宏由 User 录制,时间: 2014-9-3
'

'
Rows("3:8").Select
Selection.Delete Shift:=xlUp
Rows("7:20").Select
Selection.Delete Shift:=xlUp
End Sub
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
downcaster
2015-12-01 · 知道合伙人IT服务行家
downcaster
知道合伙人IT服务行家
采纳数:179 获赞数:542
通信行业从业10年。

向TA提问 私信TA
展开全部
例如,删除第一行
Worksheets("Sheet1").Rows(1).Delete
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式