
Excel如何用宏删除制定的行
比如,我想删除从第3行到第8行,然后,再从第7行删除第20行.哪位高手帮我写个宏语句,万分感谢...
比如,我想删除从第3行到第8行,然后,再从第7行删除第20行.
哪位高手帮我写个宏语句,万分感谢 展开
哪位高手帮我写个宏语句,万分感谢 展开
4个回答
展开全部
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
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
2015-12-19 · 知道合伙人软件行家
关注

展开全部
如要删除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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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
'
' Macro1 Macro
' 宏由 User 录制,时间: 2014-9-3
'
'
Rows("3:8").Select
Selection.Delete Shift:=xlUp
Rows("7:20").Select
Selection.Delete Shift:=xlUp
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
例如,删除第一行
Worksheets("Sheet1").Rows(1).Delete
Worksheets("Sheet1").Rows(1).Delete
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询