Option Explicit

Sub DelRows()

Dim i As Integer
Dim Worksheet As Worksheet

Sheets("Sheet1").Select

For i = 9 To 1 Step -1

 If Cells(i, 1) = "±¸ºÐ" Then
 Rows(i).Select
 Selection.Delete shift:=xlUp
 End If
 Next i

End Sub



-------------------
1¿­ÀÇ ³»¿ë Áß "±¸ºÐ"ÀÌ ÀÖÀ¸¸é ÇØ´ç Çà »èÁ¦ÇÏ°í ÇÑ Ç྿ ¿Ã·Á¶ó.