Question

Excel如何用宏删除制定的行

比如，我想删除从第3行到第8行，然后，再从第7行删除第20行.
哪位高手帮我写个宏语句，万分感谢

Answer 1

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

Answer 2

如要删除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

Answer 3

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

Answer 4

例如，删除第一行
Worksheets("Sheet1").Rows(1).Delete