[µo°Ý] »~§R°£¦C¦p¦ó«ì´_

s7659109

Sub v_delete()
Dim k As Integer
Application.ScreenUpdating = False
nn7 = Sheets("¥«®w").[e65536].End(xlUp).Row
For k = 2 To nn7
  If Cells(k, 10) = "v" Then
  Rows(k).Delete
  End If
Next k
Application.ScreenUpdating = True
End Sub

s7659109

¦pªGµ¹¨Ï¥ÎªÌ¡A¥i§_§ï¨}­è°õ¦æ«ö¶s(¥¨¶°)«á¡A¦A°õ¦æ¤@­Ó«ö¶s(¥¨¶°)¡A¤£¥Î°h¥X¡A´N¦¹¥i¥H«ì´_­ì¥´vªº¦C¡C